データベースから該当するデータを抽出するには？ (ID:104121)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 オプションボタンの件は上記のようなプログラムになっていて、 ブレークポイントで確認を取っているのですが、画面上に表示されないです。 データベースへのアクセス(接続)には”DAO”です。 ①については分かりますが②については分からないです。 Delete処理 Private Sub cmdDel_Click() Dim db As Database, ws As Workspace, td As TableDef Dim fd As Field, rs As Recordset Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("C:\work\kokyaku.mdb") Set rs = db.OpenRecordset("Kokyaku") rs.AddNew rs!顧客ID = txtID.Text rs!顧客名称 = txtKokyakuName.Text rs!カナ = txtKana.Text rs!〒1 = txtAdNo1.Text '3桁分 rs!〒2 = txtAdNo2.Text '4桁分 rs!住所1 = txtAd1.Text rs!住所2 = txtAd2.Text rs!TEL1 = txtTel1.Text '5桁分 ［ ］- rs!TEL2 = txtTel2.Text '5桁分 ［ ］- rs!TEL3 = txtTel3.Text '5桁分 ［ ］という意味です。 rs!FAX1 = txtFax1.Text '5桁分 ↓ 以下同じです rs!FAX2 = txtFax2.Text '5桁分 rs!FAX3 = txtFax3.Text '5桁分 rs!携帯1 = txtHp1.Text '3桁分 rs!携帯2 = txtHp2.Text '4桁分 rs!携帯3 = txtHp3.Text '4桁分 rs!取引開始日 = CDate(txtStart.Text) rs!取引終了日 = CDate(txtEnd.Text) rs!赤 = Option1.Value rs!青 = Option2.Value rs!黄 = Option3.Value rs!白 = Option4.Value rs!黒 = Option5.Value rs!緑 = Option6.Value rs.Delete end sub ちなみに”Update”は”rs.Delete”の部分が”rs.Update”に変わっただけです。