Hallo
Ich bin auf der suche nach einem VBA Code, welcher den inhalt eines Feldes einer Accestabelle (mit Primärschlüssel) regelt.
Ich vermute, dass ich das mit dem Fields oder Field Objekt erledigen kann.
Kennt jemand ein Codebeispiel (vermutlich mit recordsets) wo der Wert eines Feldes gelesen werden kann, welches hinter dem Primärschlüsselfeld aufgelistet wird.
besten dank für jeden Hinweis.
Grüsse
Sebastian
Hallo
Ich bin auf der suche nach einem VBA Code, welcher den inhalt
eines Feldes einer Accestabelle (mit Primärschlüssel) regelt.
Ich vermute, dass ich das mit dem Fields oder Field Objekt
erledigen kann.
Kennt jemand ein Codebeispiel (vermutlich mit recordsets) wo
der Wert eines Feldes gelesen werden kann, welches hinter dem
Primärschlüsselfeld aufgelistet wird.
…nun, …??? hä?
sry, aber wirklich verstanden hab ich das nicht.
Ein Feld einer Tabelle kannst du z.B. mit DomWert (DLookup) auslesen.
X=DLookup("[AuszulesendesFeld]",„Tabellenname“,„WHERE-Klausel“)
Die Where-Klausel wird als Abfragekriterium verwendet, um die Auswahl auf ein eindeutigen Datensatz zu begrenzen.
sieht dann z.B so aus: „[SuchFeld]= ‚Vergleichstext‘“ oder „[Suchfeld] = Zahl“
Mittels Recordset (DAO) kommt darauf an, was du wirklich damit vor hast… hier mal nur zum auslesen eines einzelnen Wertes aus dem zweiten Feld der Tabelle.
dim VarPrimSchl 'Variable für Primärschlüsselwert, der gesucht werden soll…
dim rs as DAO.Recordset
VarPrimSchl= … 'Dein Wert aus Formular?
set rs=CurrentDB.OpenRecordset(„SELECT * FROM DeineTabelle WHERE ID=“ &VarPrimSchl)
Suchwert=rs.fields(1) 'Fields-Zählung beginnt bei 0 für das erste Feld
oder
Suchwert=rs!DeinFeldinTabelle 'gleiche Wirkung…
rs.close
set rs=Nothing
Danke für den hinweis Jan
Jetzt kann ich das Problem etwas konkreter schreiben, weil ich endlich etwas ausgedüftelt habe. Jetzt habe ich „nur“ noch ein Problem. Wie kann man den Bookmark Befehl auf den letzten Datensatz lenken, oder wie kann man den letzten Datensatz Editieren.
Public Sub Geber_der_Auftragnummer1()
Dim rc
Dim rs
Set rs = CurrentDb.OpenRecordset(„test“)
rc = rs.RecordCount
With rs
.Bookmark = .LastModified
.Edit
.Fields(„Test“).Value = „pi“
.Update
.Close
End With
End Sub
Besten dank für jeden Hinweis.
Gruss Sebastian
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke für den hinweis Jan
Jetzt kann ich das Problem etwas konkreter schreiben, weil ich
endlich etwas ausgedüftelt habe. Jetzt habe ich „nur“ noch ein
Problem. Wie kann man den Bookmark Befehl auf den letzten
Datensatz lenken, oder wie kann man den letzten Datensatz
Editieren.Public Sub Geber_der_Auftragnummer1()
Dim rc
Dim rs
Set rs = CurrentDb.OpenRecordset(„test“)
rc = rs.RecordCount
RecordCount liefert an dieser Stelle 1, da du kein rs.MoveLast davor stehen hast…ist also reichlich überflüssig.
With rs
.Bookmark = .LastModified
hmm. anstelle des Bookmark mal
.MoveLast
damit stehst du dann immer auf dem letzten Datensatz des Recordsets.
.Edit
.Fields(„Test“).Value = „pi“
.Update
.Close
End With
End SubBesten dank für jeden Hinweis.
Gruss Sebastian
HTH
Super, jetzt funktionierts!
Besten Dank
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]