Zwei Parameter an Formular übergeben

[dierk1804]

Hallo und Guten Morgen zusammen,

wieder mal ein Anfängerproblem. Ich möchte 2 Parameter an ein Formular übergeben, dass dann nur diese anzeigt.
Bei meinem Messmittelprogramm steht nun bei mehreren [Modell] Messschieber [Benennung]150 mm eine Kalibrierung an. Ich möchte diese Messschieber nun Kalibrieren und öffne das Form Kalibrierung. Hier sollen nur alle Messschieber 150 mm angezeigt werden. Irgendwie komme ich mit den Beispielen aus den Foren nicht mit.
Hier der Code vom Auslöser:
If Me!sp1 = "Kalibrieren" Then
  If Forms!Messmittel!abfuformsupport_Unterformular![nächste Kalibrierung] >= Date Then
   MsgBox ("Messmittel muss nicht kalibriert werden")
    Else
      stDocName = "Kalibrierplanung"
      stLinkCriteria = "[Modell]=" & "Forms!Messmittel!abfuformsupport_Unterformular![Modell]"
      DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
End If

Wie bekomme ich nun die Werte Modell und Benennung in das neu Formular Kalibrierplanung und bekomme nur dies dort angezeigt. Alles was ich bis jetzt unternommen hatte ist gescheitert, da das Uform nie gefunden wurde.

Kann mir da jemand helfen?

[bahasu]

Hi,

ist der Inhalt von Modell ein Textfeld oder Zahlenfeld (Fremdschlüssel)?
Ist gewährleistet, dass beide Felder immer gefüllt sind?

wenn Textfeld: Was passiert mit?
stLinkCriteria = "[Modell]= '" & nz(Forms!Messmittel!abfuformsupport_Unterformular![Modell], "") & "' and Benennung = '" & nz(Forms!Messmittel!abfuformsupport_Unterformular![Benennung], "") & "'"

Harald

[DF6GL]

Hallo,

ich befürchte, das liegt Einiges im Argen mit der Tabellen- und Datenkonstuktion....


Wenn Du Dir zukünftige Arbeit erleichtern, bzw. gar nicht aufhalsen willst, dann konstruiere das Grundgerüst der Tabellen ( und ihren Beziehungen) entspr. den Normalisierungsregeln (Atomisierung, Beziehungen, Primärschlüssel, etc...,  sieh auch u. st. Links in meiner Sign. zum Thema) nochmal neu....


So jedenfalls (nach diesem oberflächlichen Einblick in die Datenstruktur)  ist die DB nicht zu gebrauchen.

Z. B.  Ein "Modell" kann kein "Messschieber" sein, allenfalls steht da die Modellbezeichnung des Herstellers drin, wie auch eine Benennung "150 mm" Unsinn ist.

Messschieber:  Geräteart
150:   Messbereich
mm:  Einheit

[dierk1804]

Hallo,
es sind Textfelder die übergeben werden.

in dem Code ist ein Fehler versteckt:
stLinkCriteria = "[Modell]= '" & nz(Forms!Messmittel!abfuformsupport_Unterformular![Modell], '') & "' and Benennung = '" & nz(Forms!Messmittel!abfuformsupport_Unterformular![Benennung], '') & "'"

Hier wird der Fehler angezeigt:
stLinkCriteria = "[Modell]= '" & nz(Forms!Messmittel!abfuformsupport_Unterformular![Modell], '') & "' and Benennung = '" & nz(Forms!Messmittel!abfuformsupport_Unterformular![Benennung], '') & "'" <-

[Stapi]

Hallo
Wenn das Feld im Ufo nicht gefunden wird, sowird das Feld nicht richtig Angesprochen, schau mal unter dem Link ob das dein Problem löst.

http://www.donkarl.com/FAQ4.2

Was @DF6GL  dir Empfolen hat sollte aber weiter deine Beachtung finden.

[dierk1804]

@Stapi
das Ufo funktioniert ja bei einem Parameter.
PS: der Link funktioniert nicht mehr.

Mein Problem mit der DB ist, dass die Daten aus einer Excel Anwendung stammen. Ab dem Punkt die Daten zu sammeln beginnt meine Datenbankstruktur. Ich nutze die Tabelle aus Excel nur zur Datenfindung.

[dierk1804]

@bahasu,

ich habe einen Fehler gemacht. Dein Code funktioniert.

Danke für die schnelle Hilfe. Jetzt geht es in den Kalibrierplan.