Code Falsch? (Suchmaske)

[Carpe_Diem]

Hallo!

Ich habe eine Suchmaske erstellt, die in einem Unterformular die Datensätze anzeigt. Neben den Datensätzen habe ich einen Ok Button erstellt. Wenn man auf den Button klickt, soll der Datensatz zum bearbeiten in dem Forumular (frmAlben) geöffnet werden, wo auch neue Datensätze eingegeben werden. Der Ok Button hat folgenden Code. Vielleicht könnt ihr mir sagen wo der Fehler ist:

Private Sub btnOK_Click()
On Error GoTo Err_btnOK_Click

Me.RecordsetClone.Bookmark = Me.Bookmark

With Forms!frmAlben
.SetFocus
.RecordsetClone.FindFirst ("[AlbumID] = " & Me!AlbumID)
.Bookmark = .RecordsetClone.Bookmark
End With

DoCmd.Close acForm, "frmAlbenSuchen", acSaveNo

Exit_btnOK_Click:
Exit Sub

Err_btnOK_Click:
MsgBox Err.Description
Resume Exit_btnOK_Click

End Sub

Gruss Carpe_Diem

[O. Helper]

Hallo,
warum so umständlich? Mit den Eigenschaften "Verknüpfen nach" / "Verknüpfen von" des SubForms kannst Du das Unterformular per Relation (bei Dir also AlbumID) an das Hauptformular binden.

Gruß, Ola

[Fritz Reimer]

Hallo,

wenn ich dich richtig verstanden habe, willst du mit der AlbumID und dem Recordset aus dem Unterformular weiterarbeiten.

So wie ich das sehe, verweist du mit Me!.. aber immer aufs Hauptformular. Um also zum Beispiel die AlbumID aus dem Unterformular zu bekommen, muß man auch darauf verweisen:

Me.frmAlbenSuchen_Unterformular!AlbumID

MfG
Frit