Office: (Office 2007) Einfache Aufgabe

Hallo zusammen.
Ich hätte da mal ein Problem das eigentlich gar kein Problem sein dürfte.
Seit 2 Tagen versuch ich die einfachste Aufgabe zu lösen und bekomm es einfach nicht hin.

Folgender Fall:

Ich habe ein Formular in dem eine Adresse angezeigt wird.
In diesem Formular befindet sich ein Unterformular in dem verschiedene Artikel passend zur Adresse angezeigt werden.
Soweit so gut.
Ich habe im Detailbereich des Unterformulars einen Button gesetzt. Jetzt habe ich neben jedem Artikel (tabelarisch aufgelistet) den Button "Details anzeigen"
Auch noch alles richtig.

Als ich zum ersten mal auf den obersten Button geklickt habe freute ich mich wie ein Schneekönig. Das Detailfenster ging auf und zeigte mir den ersten Datensatz an.
Dann schloss ich das DetailFormular wieder und Klickte voller Hoffnung auf den DetailButton des vierten Datensatzes. Das Detailformular öffnete sich wieder *grins *grins
Und was wurde angezeigt? Wieder der erste Datensatz*mad.gif* *mad.gif* *mad.gif*

Auch bei anderen Adressen kam immer der Datensatz mit der ID 1

Der Button war mit dem Assistenten erstellt.
Im Makro folgende Einstellungen:
Aktion: OffnenFormular
Argumente: frm_gsg_bearb; Formular; ; "[GSG_ID]=" & [GSG_ID]; ; Normal

Button wieder gelöscht. Neuen Button erstellt.
Ereignisprozedur beim klicken.
Code:
DoCmd.OpenForm "frm_gsg_bearb"
Forms!frm_gsg_bearb.Form.Recordset.FindFirst "GSG_ID] =" & Me![GSG_ID]

Wieder getestet..

Und was soll ich sagen, Access hat sich für den Klick auf den Button genau so interessiert wie es mich interessiert wenn ich China n Sack Reis umfällt. Nämlich garnicht. Nichtmal das Formular wurde geöffnet. Nix hats gebracht.

Ich hab keine Ahnung wie es weiter geht.
Vielleicht kann mir hier einer helfen.

Danke fürs lesen

:)

 

Moin,

könntest du bitte mal die komplette VBA-Prozedur posten (Von Private Sub bis End Sub)?
Ist beim Button in den Eigenschaften/Ereignis beim Ereignis Klick auch Ereignisprozedur ausgewählt?

Für das Öffnen eines Formulars mit einem bestimmten Datensatz reicht übrigens:
Code:

(Übergabe als Where-Condition).

maike

 

Du hast in deinem Code ne Eckige Klammer vergessen..

Genau den selben Code hab ich schon tausend mal probiert.. Hat nie geklappt..

Ich hab mir grad gedacht, was solls, probieren wirs halt nochmal..
Deinen Code kopiert, ausprobiert --> Syntaxfehler
Eckige Klammer eingesetzt, nochmal Probiert und was soll ich sagen.. Ich könnte kotzen.. Jetzt funktioniert es..
2 Tage fürn Arsch..

Mein letzter Code sah folgendermaßen aus:

Private Sub Befehl26_Click()

DoCmd.OpenForm "frm_gsg_bearb"
Forms!frm_gsg_bearb.Form.Recordset.FindFirst "[GSG_ID] =" & Me![GSG_ID]

End Sub

Tausend dank für deine Hilfe. Vielleicht kannst du mir noch sagen was an meinem Code falsch ist..
Wobei ich den deinigen auch schon versucht hatte..

 

Hallo,

an deinem Code ist nichts falsch.
Kannst in diesem Detail-Formular Datensätze wechseln?
Also, werden alle Datensätze angezeigt?
Ist es ein (hfrm) Einzelformular mit einem (ufo) Endlos?

 

Ich könnte die Datensätze Wechseln wenn ich wollte. Will ich aber nicht.

Ja, jetzt wird alles so angezeigt wie ich es eigentlich haben wollte

Ja, es ist ein (hfrm) Einzelformular mit einem (ufo) Endlos..

Dank deiner Hilfe kann ich endlich weiter machen. Wobei ichs halt immer noch net versteh warum es vorher nicht funktioniert hat. Ich hab des vor fast 20 Jahren gelernt und zweifle gerade echt an mir. Wobei ich dazu sagen muss das ich nach meiner Ausbildung nicht mehr viel mit Access und VBA gemacht hab.

 

Ich könnte so auch nicht sagen, warum es auf deine Art nicht klappen will.
Aber da der direkte und imho auch bessere Weg zum Ziel führt, würde ich mir deswegen nicht (noch mehr *wink.gif* ) graue Haare wachsen lassen.
maike

 

Ich nochmal..
Zum Thema "graue Haare" hätte ich da noch was.
Als ich heute an der DB weiter gearbeitet habe ist mir aufgefallen das ich das Formular wieder nicht öffnen kann.
Ich dreh noch durch. Der Code passt, aber beim klicken tut sich nichts *frown.gif*

 

Hallo,

hast schon mal getestet, eine neue DB zu erstellen und alle Objekte einfügen?
Oder, Komprimieren und reparieren?

Wenn es solche eigenartige Fehler gibt, mache ich das immer!

 

Man sollte die Augen auf machen..
Sicherheitswarnungen sind nicht zum ignorieren da..
Läuft wieder