Memo Feld & SQL

18/09/2007 - 09:53 von Jan Nitsch | Report spam
Hallo

Ich möchte in einer Datenbankanwendung den Usern ermöglichen,
Rückmeldungen zu Eintràgen zu machen.
Bis jetzt habe ich das über ein Memofeld gelöst, welches in einem
eigenen Formular ausgefüllt werden soll.
Dabei soll allerdings standartmàßig neben der eigentlichen Rückmeldung
immer auch der Username, und das aktuelle Datum mit in die Rückmeldung
übertragen werden.

Bis jetzt sieht mein Code so aus:
Private Sub rm_eintragen_Click()
On Error GoTo Err_rm_eintragen_Click



strSql = "UPDATE info SET info.Rückmeldung = True"
strSql = strSql & " WHERE info.ausw True" 'ausw = Kontrollkàstchen, welcher
Datensatz ausgewàhlt ist
strSql = "UPDATE info SET info.rm1 as CurrentUser()Jetzt() = Me!
rm_feld"
strSql = strSql & "WHERE info.ausw = True"

Debug.Print strSql
CurrentDb.Execute strSql

Exit_rm_eintragen_Click:
Exit Sub

Err_rm_eintragen_Click:
MsgBox Err.Description
Resume Exit_rm_eintragen_Click

End Sub

Mfg
Jan Nitsch
 

Lesen sie die antworten

#1 Mark Doerbandt
18/09/2007 - 10:06 | Warnen spam
Hallo, Jan,

Jan Nitsch:

Bis jetzt habe ich das über ein Memofeld gelöst, welches in einem
eigenen Formular ausgefüllt werden soll.
Dabei soll allerdings standartmàßig neben der eigentlichen Rückmeldung
immer auch der Username, und das aktuelle Datum mit in die Rückmeldung
übertragen werden.

strSql = "UPDATE info SET info.Rückmeldung = True"
strSql = strSql & " WHERE info.ausw > True" 'ausw = Kontrollkàstchen, welcher
Datensatz ausgewàhlt ist
strSql = "UPDATE info SET info.rm1 as CurrentUser()Jetzt() = Me!
rm_feld"
strSql = strSql & "WHERE info.ausw = True"



versuche

strSql = "UPDATE info SET Rückmeldung=True, " & _
"rm1='" & Me!rm_feld & "',rm1Usr=CurrentUser(),rm1Dat=Now() " & _
"WHERE ausw=True;

und lege ggf. die beiden Felder rm1Usr und rm1Dat neu an.

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen