Office: (Office 2000) Per VBA Formular öffnen und best. Datensatz anspringen

Hi,

ich kriege absolut die Krise:

Bekomme einfach eine einfache Funktion nicht hin.

Ich habe ein Formular, indem per Klick ein anderes Formular geöffnet werden soll und dort direkt zu einem bestimmten Datensatz gesprungen werden soll.

Bisher habe ich folgendes probiert:

dim auftragsnummernsuche as string
auftragsnummernsuche = aufnr

DoCmd.OpenForm "frm_Auftrag_bearbeiten", , , stLinkCriteria

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[AufNr] = " & Str(auftragsnummernsuche)
Me.Bookmark = rs.Bookmark


Dann kommt Laufzeitfehler 91:
Objektvariable oder With-Blockvariable nicht festgelegt.

Suchfunktion funktioniert innerhalb des geöffneten Formulare einwandfrei; nur nicht ausserhalb per vba.

Ich möchte nicht das Formular mit Kriterien öffnen, da dann nur der einzelne Datensatz angezeigt wird.

Das Formular soll geöffnet werden und alle Datensätze angezeigt werden; jedoch direkt als erster Datensatz der geewählte in der variable auftragsnummernsuche.

Hat jemand eine Idee?

Vielen Dank im Voraus

:)

 

Hallo
gerade so habe ich Keine Lösung
doch fühge einmal zei Debug.Print ein
etwa so:
rs.FindFirst "[AufNr] = " & Str(auftragsnummernsuche)
Me.Bookmark = rs.Bookmark
Debug.Print Str(auftragsnummernsuche)
Debug.Print rs.Bookmark

dann schaue im Direkt Fenster (lies im Anhang)

Frage ist AufNr Text/string oder Zahl ?
und wie ist aufnr definiert Text/string oder Zahl ?

definiere doch auftragsnummernsuche als Variant:
dim auftragsnummernsuche as Variant

dann kanst Du evtel mehr erzählen/Zeigen *Smilie z.B welche werte geben die Debug.Print zurück ?

 

Danke, habe aber auch schon die Variable rausgenommen und direkt mit einer Nummer versucht:

also
rs.FindFirst "[AufNr] = " & Str(2)

aber klappt leider auch net.

ich vermute das problem da, dass die vba-prozedur nicht direkt im geöffneten neuen Formular ausgeführt wird.

 

und warum ist das so?

 

Hallo,

versuch es doch mal so:

Code:

Gruß

LL

Update:
Ich würde auch die (nachfolgende) Lösung von gpswanderer empfehlen *wink.gif*!!

 

Hallo,
eigentlich sollte das völlig ausreichen:
Code:

Im zu öffnenden Formular brauchst Du gar keinen Code.
Wenn "aufnr" nicht nummerisch ist, sind noch Hochkommas anzuwenden.

 

\@gpswanderer

Die Funktion ist mir bekannt, löst aber nicht mein Problem, da im geöffneten Formular alle Datensätze erscheinen sollen; nur vorab, der gesuchte ausgewählt werden soll.


@Louisleon
kommt leider eine Fehlermeldung:

Fehler beim Komilieren:
Benutzerdefinierter Typ nicht definiert

Debugzeile:
Dim rs As DAO.Recordset

 

Hallo,
übergib die AufNr in den Öffnungsargumenten.

Code:

Beim Laden des 2.Formulars dann folgende Prozedur.
Code:

 

Hallo
ich habe noch gefragt wie die felder Definiert sind also wie?

wie so Str .. Str(2) gibt 2
wie so nicht direkt .FindFirst "[AufNr] = " & Str(auftragsnummernsuche)


versuche so was:
Code:

 

Dann fehlt der Verweis auf die DAO-Lib ! (z.b. "Microsoft DAO 3.6 Object Library")

Gruß

LL

 

\@gpswanderer
Funktioniert einwandfrei - Vielen herzlichen Dank


Auch an alle anderen Vielen Dank

Gruß