Access Daten durch Formular in Tabelle einfügen

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

ich arbeite im Moment in Access (und bin darin mehr als wenig bewandert) :smile:
Ich habe folgendes Problem, ich habe eine Tabelle „User“ mit Feldern: ID (Autowert), Name, Wohnort etc.
Dazu hab ich das Formular „Login“ dort sind die gleichen Felder (Textfelder) und eine Schaltfläche, hinterlegt mit einem VBA Code, dieser sollte eigentlich dafür sorgen das die eingegebenen Daten im Formular, als neuer Datensatz in die Tabelle eingefügt werden.
Ich bekomme aber den Fehler „Objekt unterstützt diese Eigenschaft oder Methode nicht“. Vielleicht kann mir jemand helfen und endlich dafür sorgen das diese Datenbank einen Sinn bekommt (^^,)

VBA Code der auf der Schaltfläche liegt lautet:

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(„User“)

rs.AddNew
rs!Datum = Forms.User.input_Bewerbungsdatum.Value
rs!Name = Forms.User.input_Name.Value
rs!Wohnort = Forms.User.input_Wohnort.Value
rs!Telefonnummer = Forms.User.input_Telefonnummer.Value
rs.Update

Exit_addbtn_Click:
Exit Sub

Err_addbtn_Click:
MsgBox Err.Description
Resume Exit_addbtn_Click

End Sub

Lieben Gruß
Caro

#2

Hi,
da ich nicht deine Form kenn, probiere einfach mal das aufs Blaue:

rs.AddNew
rs![Datum] = Me.input\_Bewerbungsdatum
rs![Name] = Me.input\_Name
rs![Wohnort] = Me.input\_Wohnort
rs![Telefonnummer] = Me.input\_Telefonnummer
rs.Update

Gruss
Joey

#3

Hallo,

ich arbeite im Moment in Access (und bin darin mehr als wenig
bewandert) :smile:

Das ist doch besser als weniger als wenig. :wink:

Noch zwei Anmerkungen:

Ich habe folgendes Problem, ich habe eine Tabelle „User“ mit
Feldern: ID (Autowert), Name, Wohnort etc.

Name ist ein sehr schlechter Feldname, weil es auch die Access-interne Eigenschaft des Feldes „Name“ gibt.

Dim db As Database
Dim rs As Recordset

Probier einmal

Dim db As DAO.Database
Dim rs As DAO.Recordset

und schau nach, ob in den Modulen unter Extras >Verweise der Haken bei Microsoft DAO 3.6 gesetzt ist.

MfG,

ujk

#4

Hallo nochmal,

ich hab die Daten wie unten abgeändert und es funktioniert endlich :smile:
vielen vielen Dank, ich hätte wohl mit meinem gefährlichen Halbwissen noch sehr lange nach dem Fehler gesucht.

Dim db As DAO.Database
Dim rs As DAO.Recordset

rs.AddNew
rs![Datum] = Me.input_Bewerbungsdatum
rs![Bewerber] = Me.input_Bewerber
rs![Wohnort] = Me.input_Wohnort
rs![Telefonnummer] = Me.input_Telefonnummer
rs.Update

LG Caro