Bagaimana saya bisa menulis makro di MS Access yang secara otomatis menjalankan beberapa kueri SQL dan juga menyimpannya secara bersamaan? Jika saya memilih tindakan OpenQuery maka diperlukan kueri yang sudah disimpan tetapi saya ingin menjalankan kueri pada beberapa tabel menggunakan makro, apakah ada cara untuk melakukan ini!

0
steve 29 Maret 2019, 10:14

1 menjawab

Jawaban Terbaik

Gunakan fungsi sederhana untuk membuat kueri. Maka Anda hanya perlu menjalankannya. Jika Anda tidak memberikan nama, kueri tidak akan disimpan (sementara).

Buat kueri:

Private Function CreateQueryDefinition(ByVal qryName As String, ByVal sqlCommand As String) As DAO.QueryDef
    Set CreateQueryDefinition = CurrentDb().CreateQueryDef(qryName, sqlCommand)
End Function

Untuk menyebutnya:

Private Sub Form_Load()

    Dim q As DAO.QueryDef
    Set q = CreateQueryDefinition("QueryName", "UPDATE Table SET Table.Field = 'Whatever';")
        q.Execute dbFailOnError

End Sub

Catatan kesalahan akan muncul jika Anda mencoba membuat kueri yang sudah ada.

1
Kostas K. 29 Maret 2019, 14:27