Hallo,
ich bitte Euch um Hilfe, weil ich trotz einiger Beiträge hier im Forum meinen Fehler noch nicht gefunden habe. Sorry, ich bin noch Anfänger...
Ich habe ein Formular frmAusschreibung mit dem Schlüssel "aus_id". Dieser Wert soll übergeben werden an das Formular subfrmCheckliste mit dem Fremdschlüssel "aus_id_f", wenn ich einen neuen Datensatz im Formular subfrmCheckliste anlege bzw. den passenden Datensatz zuordnen.
Folgenden Code habe ich verwendet:
Private Sub Befehl721_Click()
Dim rs As Recordset
Set rs = Me.Recordset.Clone
DoCmd.OpenForm "subfrmCheckliste"
rs.FindFirst "[aus_id] = " & Forms!subfrmCheckliste!aus_id_f
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Else
DoCmd.GoToRecord , , acNewRec
Form_subfrmCheckliste!aus_id_f = Form_frmAusschreibung.aus_id
End If
rs.Close
Set rs = Nothing
End Sub
Ich habe zwei Fehler: Zum einen wird auf einen Syntax-Fehler hingewiesen, so dass der Wert nicht übergeben wird.
Vielen Dank für Eure Unterstützung!
Hallo,
Form_subfrmCheckliste!aus_id_f = Form_frmAusschreibung.aus_id
sollte wohl heißen
Forms!subfrmCheckliste!aus_id_f = Forms!frmAusschreibung!aus_id
Und: Gehe ich recht in der Annahme, dass subfrmCheckliste trotz seines richtungsweisenden Namens kein Unterformular ist?
Hallo,
das ganze Vorhaben ist verquert und führt zu nichts...
Ich nehme jetzt an, dass "subfrmCheckliste" tatsächlich ein Unterformular werden soll und die entspr. Detaildatensätze zu solchen im Form "frmAusschreibung" angezeigten Datensätzen darstellen soll.
Wenn so, dann platziere in "frmAusschreibung" ein UFO-Steuerelement an geeigneter Stelle und weise dessen Eigenschaft "Herkunftsobjekt" den Namen des Unterformulares zu ("subfrmCheckliste") . Die Eigenschaften "Verknüpfen von/nach" werden auf die Schlüsselfelder gesetzt (von: "aus_id_f", nach: "aus_id").
Damit macht Access automatisch das, was Du mit Deinem Code (vergeblich) erreichen willst.
Mit dem UFO-Steuerelement habe ich nun im Formular den Fremdschlüssel übergeben, aber er wird nicht in der entsprechenden db-Tabelle tblCheckliste gespeichert.
Könnt Ihr mir auch dabei einen Tip geben, was ich jetzt noch machen muss?
Danke Euch!
Sorry, habe meinen Fehler gefunden...
Vielen Dank für die Hilfen!