i have the following code and am stuck how to set mySQL as an existing SQL query named Qry_Report1
could anyoneone help me with what i am missing please
Sub SQLTransfer()
Dim dayFrom As String
Dim dayTo As String
Dim MySQL As String
dayFrom = Me.TextFrom
dayTo = Me.TextTo
MySQL = "SELECT Main.FaultNumber, Main.DateFault, Main.TimeFault, Main.NGTEngineer, Main.NGTEngineerTelephone, Main.Site, Main.BriefDescription, Main.PassedTo, Main.Additional" & _
"From Main" & _
"WHERE (((Main.TimeFault)>=#" & dayFrom & "# And (Main.TimeFault)<=#" & dayTo & "#));"
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
myRecordSet.ActiveConnection = cnn1
myRecordSet.Open MySQL
End Sub
Thanks
Ste
Bookmarks