Laufzeitfehler 3079

[Bernie110]

Code [Auswählen] Erweitern

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 ..

Code [Auswählen] Erweitern

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

[Bernie110]

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 

[DF6GL]

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

[Bernie110]

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 ;-)

[DF6GL]

Kein Problem (mehr)   

[Bernie110]

nein !  aber vielleicht kommen ja nochn paar