Supportnet / Forum / Datenbanken
Bericht aus gefiltertem Formular
Frage
Hallo
Kann mir jemand helfen ich habe in der DB einen formularbasierten Filter der auf 2 Tabellen beruht leider funzt das Kombifeld, welches aus der zweiten Tabelle ist nicht bei der Erstellung eines Autoberichtes.
Ich bin total verzweifelt.
Wer mir helfen eventuell helfen kann sag bescheid. Leider hab ich keinen offenen Fileserver zur Verfügung aber ich schicke sie gern mal.
Antwort 1 von Herbert
Hi Christan,
welche DB Sprache setzt Du ein ?
Access ? Wenn ja welche Version? A97, A2000 oder AXP ?
Wenn Du davon etwas mehr Details angibts, können wir Dir sicher helfen.
Gruß Herbert.
Ps. Wenn es A97 oder A2000 ist kannst Du mir auch ne Mail schicken bzw. über den Pager mir Deine E-Mail Adresse senden.
Ansonsten: heine10623@web.de
welche DB Sprache setzt Du ein ?
Access ? Wenn ja welche Version? A97, A2000 oder AXP ?
Wenn Du davon etwas mehr Details angibts, können wir Dir sicher helfen.
Gruß Herbert.
Ps. Wenn es A97 oder A2000 ist kannst Du mir auch ne Mail schicken bzw. über den Pager mir Deine E-Mail Adresse senden.
Ansonsten: heine10623@web.de
Antwort 2 von Christian111
Ich hab ne A2000 DB und den Autobericht hab ich mit VBA geschrieben
Antwort 3 von yuna
Könntest du den VBA Code zum Öffnen des Berichts hier mal posten. Hast du den Code für den Filter auch selber geschrieben, oder verwendest du die Access Assistenten?
Antwort 4 von Christian111
Ich habe den Code von einem anderen Forum abe die wusten auch nicht mehr weiter.
Private Sub Befehl429_Click()
On Error GoTo Err_Befehl429_Click
Dim stDocName As String
stDocName = "Verbraucher Abfrage1"
DoCmd.OpenReport stDocName, acPreview, , Me.Filter
Exit_Befehl429_Click:
Exit Sub
Err_Befehl429_Click:
MsgBox Err.Description
Resume Exit_Befehl429_Click
End Sub
Das mit dem .MeFilter funktioniert anscheinend nur auf eine Tabelle oder einen Feldtyp (Textfeld).
Private Sub Befehl429_Click()
On Error GoTo Err_Befehl429_Click
Dim stDocName As String
stDocName = "Verbraucher Abfrage1"
DoCmd.OpenReport stDocName, acPreview, , Me.Filter
Exit_Befehl429_Click:
Exit Sub
Err_Befehl429_Click:
MsgBox Err.Description
Resume Exit_Befehl429_Click
End Sub
Das mit dem .MeFilter funktioniert anscheinend nur auf eine Tabelle oder einen Feldtyp (Textfeld).

