Formular B öffnen über Schaltfläche in Formular A mit aktuellen Datensatz A

[herb54]

Hallo, ich bin gerade mal am Ausprobieren: Ich habe eine Formular frmA und einer Datensatzquelle von Tabelle tblA. Über eine Schaltfläche möchte ich ein Formular frmB öffnen das die gleiche Datensatzquelle (tblA) hat. Es soll der aktuelle Datensatz von Formular frmA in Formular frmB angezeigt werden.
 
Dim rs As DAO.Recordset
    Dim lngID As Long

    With Forms!frmA
        Set rs = .frmB.Form.RecordsetClone
            rs.FindFirst "ID = " & lngID
            If Not rs.NoMatch Then
                .frmB.Form.Bookmark = rs.Bookmark
            End If

        Set rs = Nothing
    End With

Klappt aber nicht. Wo liegt da der Fehler?
Gruß

[DF6GL]

Hallo,

Es soll der aktuelle Datensatz von Formular frmA in Formular frmB angezeigt werden.

Der  Code für diese Aufgabe ist völlig ungeeignet.

Einfach so:

Code [Auswählen] Erweitern

Sub btnÖffneForm_Click()  'Schaltfläche in frmA
  Docmd.Openform "frmB",,,"ID = " & Me!ID   'Filterung nicht Positionierung auf den DS
End Sub


Es muss dir aber klar sein, dass dies zu Datensatzsperrungen, bzw. Zugriffsfehler-Meldungen führen kann.

[herb54]

Hallo Franz,

vielen Dank für deine Hilfe! Ja, das hatte ich mir schon so gedacht. Mein Problem bei diesem Formular A:
es ist mittlerweile vollkommen belegt mit Steuerelementen. Hätte ich vor ca. 4 Jahren gewusst, was da alles noch für dieses Formular kommen soll, hätte ich gleich Registerkarten angelegt. Das könnte man jetzt auch noch machen - ist aber wahnsinnig zeitaufwändig, da auch sehr viel Code hinterlegt ist. Ich mache dies jetzt mit einem Formular B welches über eine Abfrage auf die Daten von tblA zugreift.
Nochmals vielen Dank!
Gruß Herri

[Beaker s.a.]

Hallo Herbert,
Sind die Controls denn alle gebunden? Meint, wie breit ist denn
deine Tabelle?
Da könnte man vermuten, dass es da noch Normalisierungsbedarf
gibt.
gruss ekkehard

[herb54]

Hallo Ekkehard, das ist eine ältere Access-Datenbank. Da gibt es mit Sicherheit Normalisierungsbedarf. Andernfalls
hat man alles im Überblick (ohne zu scrollen oder oder eine  Liste bzw. Abfrage etc. zu öffnen) was eigentlich gar nicht so schlecht ist. Zudem ist viel Platz durch Schaltflächen belegt. Da könnte ich bestimmt einiges auslagern bzw. Platz schaffen.
Gruß
Herri