Error assigning pass through query to report recordsource in VBA code
问题 I have the following code : Private Sub Report_Open(Cancel As Integer) On Error GoTo ErrorHandler Dim isPTQueryExists As Integer isPTQueryExists = IsQuery("myTestQuery") If isPTQueryExists = -1 Then Set qdf = CurrentDb.QueryDefs("myTestQuery") qdf.SQL ="my SQL query" Me.RecordSource = "myTestQuery" End If Else Dim DatabaseName As String Dim ServerName As String ServerName = "XXXX" DatabaseName = "XXXX" Set qdf = CurrentDb.CreateQueryDef("myTestQuery") strConnectionString = "XXXX" qdf.Connect