Excelを入力画面にしてAccessデータベースを参照・更新・削除する際の便利テクニック：VBA／マクロ便利Tips（3/3 ページ）

Private Sub UserForm_Activate()
  Dim myCon As New ADODB.Connection
  Dim myRecordSet As New ADODB.Recordset
  Dim mySQL As String
  Dim dbFile As Variant
    
  dbFile = "K:\Access_Excel VBA Tips\商品管理データベース.accdb"
  myCon.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & dbFile & ""
  myCon.Open
  
  mySQL = "SELECT 商品NO FROM 商品管理テーブル"
  
  myRecordSet.Open mySQL, myCon, adOpenDynamic
  
  Do Until myRecordSet.EOF
    商品NOリストボックス.AddItem (myRecordSet!商品NO)
    myRecordSet.MoveNext
  Loop
  
  myRecordSet.Close
  Set myRecordSet = Nothing
  myCon.Close
  Set myCon = Nothing
End Sub

Private Sub 削除ボタン_Click()
  Dim myCon As New ADODB.Connection
  Dim myRecordSet As New ADODB.Recordset
  Dim dbFile As Variant
  
  dbFile = "K:\Access_Excel VBA Tips\商品管理データベース.accdb"
  myCon.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & dbFile & ""
  myCon.Open
   
  myRecordSet.Open Source:="商品管理テーブル", ActiveConnection:=myCon, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
  
  With myRecordSet
    .Find Criteria:="商品NO='" &商品NOリストボックス.Text & "'"
    If .EOF = True Then
      MsgBox ("該当レコードはありません。")
      Exit Sub
    End If
    .Delete
  End With
  
  MsgBox (商品NOリストボックス.Text & "のレコードを削除しました。")
  
  myRecordSet.Close
  Set myRecordSet = Nothing
  myCon.Close
  Set myCon = Nothing
  
  ListBox1.Clear
  Call UserForm_Activate
End Sub

Sub レコード削除フォーム()
 UserForm1.Show
End Sub