Datensatz suchen und ändern

16/05/2010 - 09:58 von Reiner Selting | Report spam
Guten Morgen zusammen,
ich habe eine Fehlermeldung 3070 bei folgenden Versuch.

Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_AktuellerBenutzer", dbOpenDynaset)
strUser = "[AKTUELLERBENUTZER_Name] = " & GetUser()
rs.MoveLast
rs.MoveFirst
rs.FindFirst strUser
If rs.NoMatch Then
MsgBox ("Du bist nicht als Benutzer eingetragen")
Else
With rs
.Edit
![AKTUELLERBENUTZER_BaustellenNummer] = Me!cbo_Baustellenwechsel
.Update
End With
End If

Ich möchte folgendes: In der Tabelle tbl_AktuellerBenutzer gibt es 2
Felder
AKTUELLERBENUTZER_Name und AKTUELLERBENUTZER_BaustellenNummer
Mit der Funktion GetUser() ermittele ich den aktuellen User.

Aufgabe:
Suche im Feld AKTUELLERBENUTZER_Name den User und àndere im Feld
AKTUELLERBENUTZER_BaustellenNummer mit dem Inhalt von der Kombobox
cbo_Baustellenwechsel.


Kann mir jemand einen Tipp geben?
Gruß
Reiner
 

Lesen sie die antworten

#1 Thomas Möller
16/05/2010 - 10:18 | Warnen spam
Hallo Reiner,

Am 16.05.2010 09:58, schrieb Reiner Selting:
ich habe eine Fehlermeldung 3070 bei folgenden Versuch.



es ist immer gut, zusàtzlich auch den Fehlertext mit anzugeben. Das
macht die Sache für die Antwortenden leichter. In diesem Fall lautet der
Fehlertext:
"Das Microsoft Office Access-Datenbankmodul erkennt '|' nicht als
gültigen Feldnamen oder Ausdruck."

Setz mal bitte einen Haltepunkt in Deinen Code. Dann lass den Code Zeile
für Zeile (F8) ausführen.
In welcher Zeile tritt der Fehler auf?
Ist das in der Zeile genannte Feld vorhanden? Schreibfehler?


Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_AktuellerBenutzer", dbOpenDynaset)
strUser = "[AKTUELLERBENUTZER_Name] = "& GetUser()



Der Feldname "AKTUELLERBENUTZER_Name" legt für mich nahe, dass es sich
hier um einen String handelt. In diesem Fall fehlen die umschließenden
Hochkommas:

strUser = "[AKTUELLERBENUTZER_Name] = '" & GetUser() & "'"


Ich möchte folgendes: In der Tabelle tbl_AktuellerBenutzer gibt es 2
Felder
AKTUELLERBENUTZER_Name und AKTUELLERBENUTZER_BaustellenNummer
Mit der Funktion GetUser() ermittele ich den aktuellen User.

Aufgabe:
Suche im Feld AKTUELLERBENUTZER_Name den User und àndere im Feld
AKTUELLERBENUTZER_BaustellenNummer mit dem Inhalt von der Kombobox
cbo_Baustellenwechsel.



Das könntest Du auch (kürzer) mit einer Aktionsabfrage erledigen:

strSQL = "UPDATE tbl_AktuellerBenutzer " & _
"SET AKTUELLERBENUTZER_BaustellenNummer = " & _
Me!cbo_Baustellenwechsel & " " & _
"WHERE AKTUELLERBENUTZER_Name = '" & getUser() & "';"

CurrentDb.Execute strSQL, dbFailOnError


HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen