bisa dengan membuat tombol/button on click, kemudian event di dalamnya sbb;
Private Sub Command16_Click()
Dim strSql As String
'Query append dalam bentuk string
strSql = "INSERT INTO tblRptCetakSuratJalan ( Tgl, NoPol, sopir, DONo, PONo, SONo, Banyaknya, kodeBarang ) " & _
"SELECT NamaTabel.Tanggal, NamaTabel.NoPol, NamaTabel.Supir, NamaTabel.NoDo, NamaTabel.NoPo, NamaTabel.NoSo, NamaTabel.Qty, NamaTabel.kodebrg " & _
"FROM NamaTabel;"
DoCmd.SetWarnings False
DoCmd.RunSQL strSql 'perintah menjalankan query strSql diatas
DoCmd.SetWarnings True
MsgBox "insert update data finish", _
vbOKOnly, "Insert"
End Sub
Dim strSql As String
'Query append dalam bentuk string
strSql = "INSERT INTO tblRptCetakSuratJalan ( Tgl, NoPol, sopir, DONo, PONo, SONo, Banyaknya, kodeBarang ) " & _
"SELECT NamaTabel.Tanggal, NamaTabel.NoPol, NamaTabel.Supir, NamaTabel.NoDo, NamaTabel.NoPo, NamaTabel.NoSo, NamaTabel.Qty, NamaTabel.kodebrg " & _
"FROM NamaTabel;"
DoCmd.SetWarnings False
DoCmd.RunSQL strSql 'perintah menjalankan query strSql diatas
DoCmd.SetWarnings True
MsgBox "insert update data finish", _
vbOKOnly, "Insert"
End Sub
Thank you | Terima Kasih | Matur Suksema
Sumiyanto
Sumiyanto
From: Muhamad Safei <safeimuhamad@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Tuesday, 4 December 2012 11:14 AM
Subject: [belajar-access] tanya (cara menjalankan query uppend scr otomatis)
slamat siang semuanya....mhon bantuannya..bagai mana cara menjalankan query uppend scr otomatis??
thnks.....
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
SPAM IS PROHIBITED
.
__,_._,___
No comments:
Post a Comment