I am running pass through query in Access 2013 VBA code back end is SQL Server. I want to pass parameter to query.
Private Sub Command4_Click()
Dim db As DAo.Database
Dim rs As DAo.Recordset
Set db = OpenDatabase("", False, False, "ODBC;")
Set rs = db.OpenRecordset("SELECT PO as PurchDoc, DATE as [Created on], VDRBNBR as Vendor, TM1 as TERM1, TM2 as [TERM2] FROM tblPO where vdrnbr ='Parameter'", dbOpenDynaset, dbSeeChanges)
If Not rs.EOF Then rs.MoveFirst
Do Until rs.EOF
I want to open result in edit mode so that I could I export in excel what is criteria will fit here. Please help.
move next
Loop
End Sub