VBA Access Eksekusi Query ditampilkan ke Text Box

Pada VBA untuk eksekusi sebuah Query anda harus membuat Object Recordset yang akan menampung hasil Query dan querynya sendiri dapat dieksekusi dengan menggunakan object Database (CurrentDB) menjalankan method OpenRecordSet. Berikut contoh programnya :

Private Sub Form_Current()

Dim sql As String
Dim db As Database
Dim rs1 As Recordset

sql = "SELECT sum(qty * harga) FROM pembelian WHERE nofaktur='" & txtnofaktur & "'"
Set db = CurrentDb
Set rs1 = db.OpenRecordset(sql)
rs1.MoveFirst
txtTotal = rs1.Fields(1)
End Sub

Post a Response