| |
こんばんは。
いつもお世話になっています。
再クエリについて質問なのですが、
表形式のフォームで、削除ボタンを用意しています。
それで、削除ボタンを押すと、カーソルのあるレコードを削除するように
したいのですが、削除するところまではうまく行くのですが、
フォーム上は、表示されたままになります。
それで、削除した行のところをクリックすると、#Deletedと
表示されてしまいます。
再クエリがうまく動けばフォーム上も削除行がなくなる形に
なるのではと思っているのですが、うまくいきません。
できれば、アドバイスを頂きたいです。
よろしくお願いいたします。
Private Sub レコード削除_Click()
On Error GoTo Err_レコード削除_Click
Dim strSQL As String
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
' ｍｄｂのオープン
strDatabase = "d:\a.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & strDatabase
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
' KOKマスタ削除
strSQL = "DELETE * FROM KOKマスタ WHERE KOK_ID = " & Me.KOK_ID
cmd.CommandText = strSQL
cmd.Execute , , adCmdText
Me.Requery '再クエリー
Set cmd = Nothing
cn.Close
Set cn = Nothing
Exit_レコード削除_Click:
Exit Sub
Err_レコード削除_Click:
MsgBox "error"
cn.Close
Set cn = Nothing
End Sub
|
|
hito
- 07/2/24(土) 20:37 -
