laufzeitfehler 3079
Das angegebene Feld `STATUS`kann sich auf mehr als eine der Tabellen beziehen, die im FORM-Abschnitt der SQL-Anweisung angegeben werden.
Diese Meldung wird bei diesem Code ausgespuckt ..
Public Sub Sendungsuchen()
' **************************************
' * SENDUNGEN SUCHEN *
' **************************************
Dim krit As String
krit = ""
'Beispiel für Filtersetzen mit Text, Zahl, Datum
If Not IsNull(Me!LfdNr) Then krit = krit & " And LfdNr =" & Me!LfdNr
If Not IsNull(Me!STATUS_ÜB) Then krit = krit & " And STATUS =" & Me!STATUS_ÜB
If Not IsNull(Me!STATUS_SNDG) Then krit = krit & " And STATUS_SNDG =" & Me!STATUS_SNDG
If Not IsNull(Me!Woche) Then krit = krit & " And Woche Like '" & Me!Woche & "*'"
If Not IsNull(Me!Monat) Then krit = krit & " And Monat Like '" & Me!Monat & "*'"
If Not IsNull(Me!Jahr) Then krit = krit & " And Jahr Like '" & Me!Jahr & "*'"
If Not IsNull(Me!TOURNR) Then krit = krit & " And TourNr =" & Me!TOURNR
If Not IsNull(Me!SNDG_ART) Then krit = krit & " And SNDG_ART =" & Me!SNDG_ART
If Not IsNull(Me!Auftragsnummer) Then krit = krit & " And Auftragsnummer Like '*" & Me!Auftragsnummer & "*'"
If Not IsNull(Me!LieferscheinNr) Then krit = krit & " And LieferscheinNr Like '" & Me!LieferscheinNr & "*'"
If Not IsNull(Me!Verkäufer) Then krit = krit & " And Verkäufer Like '" & Me!Verkäufer & "*'"
If Not IsNull(Me!Kostenstelle) Then krit = krit & " And Kostenstelle Like '" & Me!Kostenstelle & "*'"
If Not IsNull(Me!Buchungsdatum) Then krit = krit & " And Buchungsdatum Like '" & Me!Buchungsdatum & "*'"
'Auftraggeber
If Not IsNull(Me!AG_ID) Then krit = krit & " And AG_ID =" & Me!AG_ID
If Not IsNull(Me!AG_MatchCode) Then krit = krit & " And AG_MatchCode Like '" & Me!AG_MatchCode & "*'"
If Not IsNull(Me!AG_FirmenName1) Then krit = krit & " And AG_FirmenName1 Like '" & Me!AG_FirmenName1 & "*'"
If Not IsNull(Me!AG_Land) Then krit = krit & " And AG_Land Like '" & Me!AG_Land & "*'"
If Not IsNull(Me!AG_Plz) Then krit = krit & " And AG_Plz Like '" & Me!AG_Plz & "*'"
If Not IsNull(Me!AG_Ort) Then krit = krit & " And AG_Ort Like '" & Me!AG_Ort & "*'"
If Not IsNull(Me!AG_RefNr) Then krit = krit & " And AG_RefNr Like '" & Me!AG_RefNr & "*'"
If Not IsNull(Me!AG_Ext_KommNr) Then krit = krit & " And AG_Ext_KommNr Like '" & Me!AG_Ext_KommNr & "*'"
If Not IsNull(Me!EMPF_ObjektCode) Then krit = krit & " And EMPF_ObjektCode Like '" & Me!EMPF_ObjektCode & "*'"
'Absender
If Not IsNull(Me!ABG_ID) Then krit = krit & " And ABG_ID =" & Me!ABG_ID
If Not IsNull(Me!ABG_MatchCode) Then krit = krit & " And ABG_MatchCode Like '" & Me!ABG_MatchCode & "*'"
If Not IsNull(Me!ABG_FirmenName1) Then krit = krit & " And ABG_FirmenName1 Like '" & Me!ABG_FirmenName1 & "*'"
If Not IsNull(Me!ABG_Land) Then krit = krit & " And ABG_Land Like '" & Me!AG_Land & "*'"
If Not IsNull(Me!ABG_Plz) Then krit = krit & " And ABG_Plz Like '" & Me!ABG_Plz & "*'"
If Not IsNull(Me!ABG_Ort) Then krit = krit & " And ABG_Ort Like '" & Me!ABG_Ort & "*'"
If Not IsNull(Me!Ladedatum) Then krit = krit & " And Ladedatum Like '*" & Me!Ladedatum & "*'"
If Not IsNull(Me!Ladetag) Then krit = krit & " And Ladetag Like '*" & Me!Ladetag & "*'"
'Empfänger
If Not IsNull(Me!EMPF_ID) Then krit = krit & " And EMPF_ID =" & Me!EMPF_ID
If Not IsNull(Me!EMPF_MatchCode) Then krit = krit & " And EMPF_MatchCode Like '" & Me!EMPF_MatchCode & "*'"
If Not IsNull(Me!EMPF_FirmenName1) Then krit = krit & " And EMPF_FirmenName1 Like '" & Me!EMPF_FirmenName1 & "*'"
If Not IsNull(Me!EMPF_Land) Then krit = krit & " And EMPF_Land Like '" & Me!EMPF_Land & "*'"
If Not IsNull(Me!EMPF_Plz) Then krit = krit & " And EMPF_Plz Like '" & Me!EMPF_Plz & "*'"
If Not IsNull(Me!EMPF_Ort) Then krit = krit & " And EMPF_Ort Like '" & Me!EMPF_Ort & "*'"
If Not IsNull(Me!EntLadedatum) Then krit = krit & " And EntLadedatum Like '*" & Me!EntLadedatum & "*'"
If Not IsNull(Me!Entladetag) Then krit = krit & " And EntLadetag Like '*" & Me!Entladetag & "*'"
'Spedition
If Not IsNull(Me!TU_ID) Then krit = krit & " And TU_ID =" & Me!TU_ID
If Not IsNull(Me!TU_MatchCode) Then krit = krit & " And TU_MatchCode Like '" & Me!TU_MatchCode & "*'"
If Not IsNull(Me!TU_FirmenName1) Then krit = krit & " And TU_FirmenName1 Like '" & Me!TU_FirmenName1 & "*'"
If Not IsNull(Me!TU_Land) Then krit = krit & " And TU_Land Like '" & Me!TU_Land & "*'"
If Not IsNull(Me!TU_Plz) Then krit = krit & " And TU_Plz Like '" & Me!TU_Plz & "*'"
If Not IsNull(Me!TU_Ort) Then krit = krit & " And TU_Ort Like '" & Me!TU_Ort & "*'"
'Fahrzeug
If Not IsNull(Me!Fahrzeugart) Then krit = krit & " And Fahrzeugart Like '" & Me!Fahrzeugart & "*'"
If Not IsNull(Me!TU_LKW_Nr_A) Then krit = krit & " And TU_LKW_Nr_A Like '" & Me!TU_LKW_Nr_A & "*'"
If Not IsNull(Me!TU_LKW_Nr_B) Then krit = krit & " And TU_TU_LKW_Nr_B Like '" & Me!TU_LKW_Nr_B & "*'"
If Not IsNull(Me!TU_Fahrzeug_ID) Then krit = krit & " And TU_Fahrzeug_ID =" & Me!TU_Fahrzeug_ID
If Not IsNull(Me!Tourenart) Then krit = krit & " And Tourenart =" & Me!Tourenart
If Not IsNull(Me!TU_Fahrzeug) Then krit = krit & " And TU_Fahrzeug Like '" & Me!TU_Fahrzeug & "*'"
If Not IsNull(Me!Express) Then krit = krit & " And Express =" & Me!Express
If Not IsNull(Me!LTW) Then krit = krit & " And LTW Like '" & Me!LTW & "*'"
If Not IsNull(Me!Info_Paletten) Then krit = krit & " And Info_Paletten =" & Me!Info_Paletten
If Not IsNull(Me!Info_Schäden) Then krit = krit & " And Info_Schäden =" & Me!Info_Schäden
If Not IsNull(Me!Info_Notes) Then krit = krit & " And Info_Notes =" & Me!Info_Notes
If krit <> "" Then krit = Mid(krit, 6)
Me!ÜBERSICHT_DT_ERFASSUNG_UFO.Form.Filter = krit
Me!ÜBERSICHT_DT_ERFASSUNG_UFO.Form.FilterOn = True
End Sub
Was läuft da falsch ? checks net
Danke für eure Antworten
Gruss Bernie
Oh Mann ich bin irgendwie zu schnell mit meinen Frage.
Verzeihung.
habs gefunden.. das Ufo basiert auf eine Abfrage...
jetzt basiert es auf eine Tabelle und dann funktioniert es auch...
mann mann mann
schuldigung :-X
Hallo,
die Fehelrmeldung ist doch ziemlich verständlich in diesem Fall....
Das Feld "Status" befindet sich in mehreren Tabellen, die in der Abfrage (SQL-String aus Datenherkunft des Unterforms im UFO "ÜBERSICHT_DT_ERFASSUNG_UFO" ) herangezogen werden.
Deshalb weiß Access nicht, aus welche Tabelle es nun den "Status"-Wert benutzen soll.
Schreib den entspr. Tabellenamen vor den Feldnamen:
& " And tblDieTabelleMitDemRichtigenStatusFeld.STATUS =" & Me!STATUS_ÜB
Hi Franz,
danke für die Antwort..
Ja ist mir auch gerade aufgefallen... War einfach zu schnell mit meiner Frage ... ::)
Sorry nochmals !
Danke trotzdem !!!
Gruss aus Bayern ;-)
Kein Problem (mehr) ;D ;)
nein ! ;D aber vielleicht kommen ja nochn paar :D