Access XP : Perintah select dan result dari SQL Server

Dim rst As New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.Open "select tm.No_Bukti,k.Nama,k.nik from trMemoRetur tm left join karyawan k on k.ID_Karyawan = tm.operator where tm.ID_trMemoRetur='" & Me.ID_trMemoRetur & "'"
With rst
     Me.No_Bukti = .Fields("No_Bukti").Value
     Me.Operator = .Fields("Nama").Value
     Me.NIK = .Fields("nik").Value
End With

Share: