Bookmark setzen

Hallo
Ich habe eine Tabelle mit z.B. 100 einträgen. Nun möchte ich mittels VBA Code
currentdb.openrecordset(…), den lesecursor auf einen bestimmten datensatz setzen und zwar auf denjenigen, welcher im Schlüsselfeld die Zahl 7 hat.

Wie sieht der entsprechende Code aus, welcher mir den Datensatz, welcher im Schlüsselfeld die Zahl 7 besitzt, auswählt?

set rs currentdb.openrecordset(…)

Datensatz mit Zahl 7 im Primärfeld aktivieren.

rs.colse

Besten dank für jeden Hinweis

Hallo

auch hallo…

set rs currentdb.openrecordset(…)

set rs=currentdb.openrecordset(…)

schau dir mal FindFirst in der OnlineHilfe an.

Danke für den hinweis. Gibt es dann keine alternative?

Gruss Sebastian

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hi,
wie soll das denn gehen? Du musst schließlich den Datensatz mit dem Inhalt „7“ als Primärschlüssel erstmal finden bevor du ihn bookmarken kannst.

Du kannst höchsten:
set rs=currentdb.openrecordset(„select y,x from z where x=7“)
machen. Dann reicht ein rs.movefirst (Wenn die 7 dann existiert)

Oder die dlookup() Funktion benutzen, wenn du nur bestimmte Werte aus diesem Satz brauchst.

aber finden mußt du den Satz in jedem Fall.

Gruss
Quaser

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Jetzt gibt es doch aber hierfür die Seek Methode oder?

Gruss Sebastian

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Also jetzt habe ich da mal was Programmiert, was nicht läuft.

Dim rs
Dim Angabe(2) as string

Angabe(0) = „7“ 'Gibt den zu suchenden Datensatz an

'Kunden_Nummer ist der Primärschlüssel, nach dem soll gesucht werden,
'nur, wo liegt der Fehler?
'Es wird nämlich immer nur der erste Datensatz gefunden, nicht aber der siebte.

Set rs = CurrentDb.OpenRecordset("SELECT Kunden_Nummer, Firma, Name, Strasse, Nummer, Postfach, PLZ, Ort, Land, Tel, Fax, EMail, Webseite, TelII, FaxII, EMailII, Rabatt " & „FROM Auftrag_Kunden ORDER BY Kunden_Nummer“) 'Öffnet die angegebene Datenbank

With rs
.FindFirst („Kunden_Nummer = '“ & Angabe(0) & „’“)
Form_Auftrag_Kunden_Registrierung.tboxFirma.Value = !Firma
Form_Auftrag_Kunden_Registrierung.comboxAnrede.Value = !Anrede
Form_Auftrag_Kunden_Registrierung.tboxName.Value = !Name
Form_Auftrag_Kunden_Registrierung.tboxVorname.Value = !Vorname
usw…

Danke für jeden Hinweis
Gruss Sebastian

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hi,

Jetzt gibt es doch aber hierfür die Seek Methode oder?

die seek Methode sucht aber auch…
Nur in dem Fall dem angegeben Index entlang. Diesen Index benutzen aber auch alle anderen Suchmethoden, wenn er denn existiert.

Die seek Methode geht im Übrigen nicht ohne weiteres bei eingebundenen Tabellen. Bei solchen Tabellen muss man die DB im eigenen Workspace separat öffnen.

Gruss
Quaser

Hi
Also das heisst in dem Falle ist die Seek Methode für mich ungeignet, weil ich mit den Eingebundenen Tabellen Arbeite.
Besten dank für deinen Hinweis
Gruss Sebastian

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]