More than 1 year has passed since last update.

アクセスVBAでIDENTITY付きのレコードを削除するとき

VBA
access

Posted at 2022-09-01

lans = MsgBox("ID:" & id.Value & " を削除してもよろしいですか？", vbYesNo + vbInformation, "確認")
If lans = vbYes Then
  strSql = "DELETE FROM table WHERE [id] = " & id.Value
  DoCmd.SetWarnings False
  DoCmd.RunSQL (strSql)
  DoCmd.Requery
  DoCmd.SetWarnings True
End If

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up