Extreme Veteran
Beiträge: 567
| Hallo,
eagle - 27.11.11 11:18
habe inzwischen weiter gesucht was es sein könnte. Schätze, es liegt an der Where Bedingung und/oder dem Ampersand??
Eher weniger.
Quote Abfrage/Bericht A26
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "Select * From A26_U"
If Len(GL_szReportWhere) > 0 Then
Me.RecordSource = Me.RecordSource & " Where " & GL_szReportWhere
End If
End Sub
Du solltest nicht staendig die RecordSource aendern, sondern einen String aufbereiten und am Ende erst die RecordSource setzen:
Dim strSQL As String
strSQL = "Select * From A26_U"
If Len(GL_szReportWhere) > 0 Then
strSQL = strSQL & " Where " & GL_szReportWhere
End If
Me.RecordSource = strSQL
Und natuerlich waere interessant zu sehen, was in GL_szReportWhere steht.
----- Gruss - Peter |