Office: (Office 2010) Formular das nach mehreren Suchkriterien sucht und daraus ein neues Formular erstellt

Kannst du bitte den Wortlaut der Fehlermeldungen nennen und beschreiben wann sie auftreten?

 

Hi Anne,

wenn ich auf den Suchen Button klicke taucht die Fehlermeldung:

Fehler beim Komplimieren: Variable nicht definiert.

Ich habe die Variable Employees eingetragen und habe mich an der Vorlage gehalten. In der Vorlage wurde ja nicht Umsatzklassen gefiltert und das wurde ich auch tun nur für Mitarbeiter.

Der Quellcode lautet wie folgt:
Option Compare Database
Option Explicit
Dim Krit, SQL

Private Sub Suchen_Click()
MakeSQL
Me!frmLieferanten1.Form.RecordSource = SQL
'Me!ufrmAdresseSuchen.Visible = True
Me!Lieferantenname.SetFocus
End Sub

Private Sub MakeSQL()
Dim EmployeesVon As Double, EmBis As Double, Tmp1 As String, Tmp As String, Itm
Krit = ""
' hier sind verschiedene Vergleichskriterien für unterschiedliche Felddatentypen exemplarisch aufgeführt:

' generelle Anmerkungen: LIKE gibt nur bei Textfeldern Sinn
' ein "*" am Anfang eines LIKE-Vergleichsstrings sollte man aus Effizienzgründen vermeiden
' Textliterale müssen in Apostrophe oder Anführungsstriche eingeschlossen sein
' Datumsliterale in Nummern-(Hash-)Zeichen und im ISO-Format ("yyyy-mm-dd"),
' alternativ im US-Format ("mm/dd/yyyy")
' Ganzzahlige Werte werden ohne weitere Konversion (und ohne Begrenzungszeichen) verglichen.
' Bei Gleitkommaliteralen muss das Dezimalkomma in einen Punkt gewandelt werden (z.B. mit Str()).

If Not IsNull(Me!FAA) Then Krit = Krit & " AND FAA = " & IIf(Me!FAA, "True", "False")
If Not IsNull(Me!EASA) Then Krit = Krit & " AND EASA = " & IIf(Me!EASA, "True", "False")
If Not IsNull(Me!TCCA) Then Krit = Krit & " AND TCCA = " & IIf(Me!TCCA, "True", "False")
If Not IsNull(Me!Others) Then Krit = Krit & " AND Others = " & IIf(Me!Others, "True", "False")
If Not IsNull(Me!PrivateOwner) Then Krit = Krit & " AND PrivateOwner = " & IIf(Me!PrivateOwner, "True", "False")
If Not IsNull(Me!PMADER) Then Krit = Krit & " AND PMADER = " & IIf(Me!PMADER, "True", "False")
If Not IsNull(Me!OEM) Then Krit = Krit & " AND OEM = " & IIf(Me!OEM, "True", "False")
If Not IsNull(Me!MRO) Then Krit = Krit & " AND MRO = " & IIf(Me!MRO, "True", "False")
If Not IsNull(Me!Airline) Then Krit = Krit & " AND Airline = " & IIf(Me!Airline, "True", "False")
If Not IsNull(Me!Broker) Then Krit = Krit & " AND Broker = " & IIf(Me!Broker, "True", "False")
If Not IsNull(Me!Handlingagents) Then Krit = Krit & " AND Handlingagents = " & IIf(Me!Handlingagents, "True", "False")
If Not IsNull(Me!Avionics) Then Krit = Krit & " AND Avionics = " & IIf(Me!Avionics, "True", "False")
If Not IsNull(Me!Hydraulics) Then Krit = Krit & " AND Hydraulics = " & IIf(Me!Hydraulics, "True", "False")
If Not IsNull(Me!Pneumatics) Then Krit = Krit & " AND Pneumatics = " & IIf(Me!Pneumatics, "True", "False")
If Not IsNull(Me!Electromechanics) Then Krit = Krit & " AND Electromechanics = " & IIf(Me!Electromechanics, "True", "False")
If Not IsNull(Me!Else) Then Krit = Krit & " AND Else = " & IIf(Me!Else, "True", "False")


If Not IsNull(Me!Employees) Then
If Me!Employees "Alle" Then
Tmp = Me!Employees
Tmp1 = "0" & Trim(Mid(Tmp, 1, InStr(Tmp, "..") - 1))
EmployeesVon = CDbl(Tmp1)
If EmployeesVon 0 Then Krit = Krit & " AND Employees >=" & Str(EmployeesVon)
Tmp1 = "0" & Trim(Mid(Tmp, InStr(Tmp, "..") + 2))
EmployeesBis = CDbl(Tmp1)
If EmlpoyeesBis 0 Then Krit = Krit & " AND Employees

 

Hallo,

kannst Du Deinen Code bitte künftig in Code-Tags setzen?

Code:

Fällt Dir etwas auf?

Und: Das IIF-Getöse kann wegfallen, du kannst Dich auf den boolschen Wert beziehen.

Und schließlich könnte man das meiste elegant in einer Schleife über die Kontrollkästchen erledigen.

 

Hallo Maxel,

ich kenne mich leider nicht in VBA aus. Wie meinst du das? Solle ich alles ersetzten? Was meinst du mit:
Und: Das IIF-Getöse kann wegfallen, du kannst Dich auf den boolschen Wert beziehen.

Und schließlich könnte man das meiste elegant in einer Schleife über die Kontrollkästchen erledigen.

Viele Grüße,

Lisa

P.S. Ich habe die Datenbank hochgeladen in meinen vorherigen Kommentar *frown.gif*

 

Hi Lisa,

dann schau doch einfach mal genau hin, welche Variable da angemeckert wird, wie sie geschrieben ist und wie der Name tatsächlich lauten sollte.

Nicht deklarierte Variablen (bzw. Schreibfehler) werden halt bei Angabe von "Option Explicit" nicht toleriert.

Und was das betrifft:

so kennt Maxel vermutlich das Problem und bspw. diesen Thread (Link auf die Lösung von Josef P.) nicht.

 

Hi Anne,

ich habe die Variablennamen angepasst. Jedoch taucht jetzt die Fehlermeldung:
Laufzeitfehler 2465. Access kann in Ihrem Ausdruck angesprochene Feld 'Employees' nicht finden.
Diese Feld existiert als Tabellle und ist auch im Unterformular frmLieferanten1.

Der Quellcode lautet wie folgt:

Option Explicit
Dim Krit, SQL

Private Sub Suchen_Click()
MakeSQL
Me!frmLieferanten1.Form.RecordSource = SQL
'Me!ufrmAdresseSuchen.Visible = True
Me!Lieferantenname.SetFocus
End Sub

Private Sub MakeSQL()
Dim Employees As Double, Tmp1 As String, Tmp As String, Itm
Krit = ""
' hier sind verschiedene Vergleichskriterien für unterschiedliche Felddatentypen exemplarisch aufgeführt:

' generelle Anmerkungen: LIKE gibt nur bei Textfeldern Sinn
' ein "*" am Anfang eines LIKE-Vergleichsstrings sollte man aus Effizienzgründen vermeiden
' Textliterale müssen in Apostrophe oder Anführungsstriche eingeschlossen sein
' Datumsliterale in Nummern-(Hash-)Zeichen und im ISO-Format ("yyyy-mm-dd"),
' alternativ im US-Format ("mm/dd/yyyy")
' Ganzzahlige Werte werden ohne weitere Konversion (und ohne Begrenzungszeichen) verglichen.
' Bei Gleitkommaliteralen muss das Dezimalkomma in einen Punkt gewandelt werden (z.B. mit Str()).

If Not IsNull(Me!FAA) Then Krit = Krit & " AND FAA = " & IIf(Me!FAA, "True", "False")
If Not IsNull(Me!EASA) Then Krit = Krit & " AND EASA = " & IIf(Me!EASA, "True", "False")
If Not IsNull(Me!TCCA) Then Krit = Krit & " AND TCCA = " & IIf(Me!TCCA, "True", "False")
If Not IsNull(Me!Others) Then Krit = Krit & " AND Others = " & IIf(Me!Others, "True", "False")
If Not IsNull(Me!PrivateOwner) Then Krit = Krit & " AND PrivateOwner = " & IIf(Me!PrivateOwner, "True", "False")
If Not IsNull(Me!PMADER) Then Krit = Krit & " AND PMADER = " & IIf(Me!PMADER, "True", "False")
If Not IsNull(Me!OEM) Then Krit = Krit & " AND OEM = " & IIf(Me!OEM, "True", "False")
If Not IsNull(Me!MRO) Then Krit = Krit & " AND MRO = " & IIf(Me!MRO, "True", "False")
If Not IsNull(Me!Airline) Then Krit = Krit & " AND Airline = " & IIf(Me!Airline, "True", "False")
If Not IsNull(Me!Broker) Then Krit = Krit & " AND Broker = " & IIf(Me!Broker, "True", "False")
If Not IsNull(Me!Handlingagents) Then Krit = Krit & " AND Handlingagents = " & IIf(Me!Handlingagents, "True", "False")
If Not IsNull(Me!Avionics) Then Krit = Krit & " AND Avionics = " & IIf(Me!Avionics, "True", "False")
If Not IsNull(Me!Hydraulics) Then Krit = Krit & " AND Hydraulics = " & IIf(Me!Hydraulics, "True", "False")
If Not IsNull(Me!Pneumatics) Then Krit = Krit & " AND Pneumatics = " & IIf(Me!Pneumatics, "True", "False")
If Not IsNull(Me!Electromechanics) Then Krit = Krit & " AND Electromechanics = " & IIf(Me!Electromechanics, "True", "False")
If Not IsNull(Me!Else) Then Krit = Krit & " AND Else = " & IIf(Me!Else, "True", "False")
If Not IsNull(Me!Employees) Then
If Me!Employees "Alle" Then
Tmp = Me!Employees
Tmp1 = "0" & Trim(Mid(Tmp, 1, InStr(Tmp, "..") - 1))
Employees = CDbl(Tmp1)
If Employees 0 Then Krit = Krit & " AND Employees >=" & Str(Employees)
Tmp1 = "0" & Trim(Mid(Tmp, InStr(Tmp, "..") + 2))
Employees = CDbl(Tmp1)
If Employees 0 Then Krit = Krit & " AND Employees

 

Hallo!

Das ist dem VBA-Compiler ziemlich egal, wenn es mit Me!Employees angesprochen wird und der gezeigte Code nicht der Code vom Unterformular "frmLieferanten1" ist. *wink.gif*

mfg
Josef

BTW:
ich wiederhole die Bitte von Maxel noch einmal:

 

Hallo Lisa,

schau nach, wie das Kombifeld in deinem Formular heißt!

PS:
Und es ist nicht nötig, den Code immer wieder zu posten, einmal genügt. *wink.gif*

 

Hi Josef,

ich kenne mich mit VBA Programmmierung überhaupt nicht aus und verstehe deine Antwort nicht *frown.gif*

Kannst du dir die Datenbank mal anschuen evtl. habe ich was vergessen.

Danke im Voraus

 

Mit Me!Employees spricht ein Steuerelement auf dem Formular an, das gibt es aber nicht.
(die Beschriftung spielt hierbei keine Rolle *wink.gif*)

 

Danke Anne,

ich habe das Steuerelement Employees genannt und dieser Fehler wurde beseitigt. Jetzt tauch wieder die Fehlermeldung 2465 auf:
Das Access das Feld frmLieferanten1 nicht findet.
Der Quellcode ist wie folgt:

Private Sub Suchen_Click()
MakeSQL
Me!frmLieferanten1.Form.RecordSource = SQL
'Me!ufrmAdresseSuchen.Visible = True
Me!Lieferantenname.SetFocus
End Sub

Sorry für die Belästigungen

 

Gibt es ein Formular mit dem Namen frmLieferanten1 und ist es zur Laufzeit des Codes geöffnet?

Auch von mir die Bitte: Verwende für Code die entsprechenden Code-Tags!
s. auch: http://ms-office-forum.net/forum/sho...d.php?t=102899

 

@Benny: Ich würde die Frage eher so stellen: Gibt es ein Unterformularsteuerelement mit dem Namen frmLieferanten1?

 

Hi,

es gibt ein Untersteuerformularsteuerelement mit dem Namen:
frmLieferanten1 und es ist während der Laufzeit des Codes geöffnet. Es taucht eine neue Fehlermeldung das das Feld Lieferantenname nicht gefunden werden kann, obwohl diese im frmLieferanten1 enthalten ist.
Code:

Ich habe die Screenshots angehängt.

Danke nochmals,

Lisa

 

Nein, schau doch einfach mal ganz genau hin!

Und wenn du hiermit (nach Korrektur des Namens) das Unterformular ansprichst: Code:

so brauchst du denselben "Zugriffspfad" für das im Unterformular befindliche Steuerelement: Code: