Ｐａｇｅ 335 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼カレントレコードが削除できない。 じゅんいち 03/7/16(水) 15:09 ┗Re:カレントレコードが削除できない。 YU-TANG 03/7/16(水) 21:45 ┗Re:カレントレコードが削除できない。 じゅんいち 03/7/17(木) 12:51 ─────────────────────────────────────── ■題名 ： カレントレコードが削除できない。 ■名前 ： じゅんいち ■日付 ： 03/7/16(水) 15:09 -------------------------------------------------------------------------
| フォームに設けた削除ボタンで表示されているレコード(カレントレコード？) を削除したいのですが、削除ボタンをクリックすると、なぜか先頭のレコード が削除されてしまい困っております。 コードは下のように書きました。どなたかご教授頂きますようお願い致します。 ・使用OS WindowsME ・使用アクセス ACCESS2002 Private Sub 削除ボタン_Click() On Error GoTo エラー処理 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim myRet Dim modorichi1 Dim check As Integer Do modorichi1 = MsgBox("削除しますか？" & Chr$(13), 4 + 32, "■ 削除の確認 ■") If modorichi1 = "" Then Exit Sub If modorichi1 = False Then Exit Sub Select Case modorichi1 Case 6 'はい check = 0 Case 7 'いいえ Exit Sub End Select Loop Until check = 0 Set cn = CurrentProject.Connection rst.Open "katalog_tbl", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect rst.Delete adAffectCurrent rst.CLOSE エラー処理: Exit Sub End Sub |
| > 削除ボタンをクリックすると、なぜか先頭のレコード > が削除されてしまい困っております。 レコードセットを開いた直後は、先頭レコードですよ。 直接の回答ではないかもしれませんが、RunCommand acCmdDeleteRecord じゃいけませんかね。 1 行書くのが面倒なら、コマンドボタンウィザードで勝手にレコード削除 ボタンを作ってもらえますけど。 |
| ▼YU-TANG さん： >> 削除ボタンをクリックすると、なぜか先頭のレコード >> が削除されてしまい困っております。 > >レコードセットを開いた直後は、先頭レコードですよ。 > >直接の回答ではないかもしれませんが、RunCommand acCmdDeleteRecord >じゃいけませんかね。 >1 行書くのが面倒なら、コマンドボタンウィザードで勝手にレコード削除 >ボタンを作ってもらえますけど。 ご回答ありがとうございました。 早速試してみます。。 ありがとうございました。 |