| |
| Hallo Gunter,
habe inzwischen weiter gesucht was es sein könnte. Schätze, es liegt an der Where Bedingung und/oder dem Ampersand??
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
Quote Abfrage/Bericht A26_U
Private Sub Report_Open(Cancel As Integer)
Dim szRecSrc As String
szRecSrc = _
"SELECT [Beruf], CLngNull(Sum([1])) AS Maennlich, CLngNull(Sum([2])) AS Weiblich " & _
"FROM [A26_U] "
'
If GL_szReportWhere <> "" Then
szRecSrc = szRecSrc & _
"WHERE " & GL_szReportWhere & " "
End If
'
szRecSrc = szRecSrc & _
"GROUP BY [Beruf] "
'
On Error Resume Next
Me.RecordSource = szRecSrc
End Sub
Habe aber noch keinen Hinweis irgendwo gefunden, was man anstelle setzen kann oder muss.
Gruß Gitta und danke Dir für noch einmal drüber schauen
| |
|
