Hallo,
Den Rest machste dann mal ganz allein. Viel Spass beim Auseinandersetzen mit dem Scheiss.
ich hab das jetz mal ausprobiert mit dem Script:
folgende Tabellen bestehen:
+--------------------------------+
| T_USER |
+----+---------+----------+------+
| ID |UserName | passwort | mail |
+----+---------+----------+------+
ID ist ein Autowert.
Dann hab ich ein Formular namens 'F_NeuerBenutzer'. Dieses hat folgenden Aufbau:
+---------------------------------------------+
| |
| Benutzername: [Textfeld:input_benutzername] |
| Passwort: [Textfeld:input_passwort] |
| E-Mail: [Textfeld:input_email] |
| |
| [Button:addbtn] |
| |
+---------------------------------------------+
In den Textfeldern steht von Anfang an "Ungebunden" drin.
Dann habe ich folgendes VBA-Script:
Private Sub addbtn_Click()
On Error GoTo Err_addbtn_Click
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("T_User")
rs.AddNew
rs!UserName = Forms.F_NeuerBenutzer.input_benutzername.Value
rs!passwort = Forms.F_NeuerBenutzer.input_passwort.Value
rs!mail = Forms.F_NeuerBenutzer.input_email.Value
rs.Update
Exit_addbtn_Click:
Exit Sub
Err_addbtn_Click:
MsgBox Err.Description
Resume Exit_addbtn_Click
End Sub
Sobald ich also auf "Registrieren" klicke, soll ein neuer Datensatz in der Tabelle T_User eingefügt werden und dieser mit den Daten befüllt werden. Nur ich kann so oft auf den Button klicken wie ich will. Da passirt einfach nix. Aber Warum?
MfG. Christoph Ludwig
Wo die Sprache aufhört, fängt die Musik an...
Selfcode: sh:) fo:) ch:° rl:( br:^ n4:} ie:{ mo:} va:) js:| de:] zu:) fl:( ss:| ls:~
Go to this