daten in eine Tabelle einlesen

[pepperoni]

hi!

also ich habe folgendes problem :confused:

ich möchte in mittels vba daten von einem formular in eine tabelle einfügen

dabei tritt ein fehler auf:

Aktualisieren nicht möglich; Datenbank oder Objekt ist schreibgeschützt

falls der code weiterhilft, hier ein ausschnitt des codes:

Private Sub ActiveXStr2_Click()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = DBEngine.OpenDatabase("D:\projekt.mdb")

Set rs = db.OpenRecordset("Select * FROM tblKunden, tblkalender", dbOpenDynaset)

rs!kalender = Me.ActiveXStr2.Value

End Sub

bin für jede hilfe sehr dankbar ; )

greez sabine

[BenjieAul]

Hast du schonmal geguckt, ob die Datei nicht wirklich schreibgeschützt ist ?

Kann ja immer mal passieren. Oder du fügst einen Wert über das VBA ein, was ein Primärschlüssel hat, also nicht nochmal eingefügt werden kann.

Bsp.: Datenbank

ID(PRI) Name

1 Karl

2 Paul

Wenn du jetzt versuchst in die Tabelle den Wert 1 reinzuschreiben, dann wird er dir ne Fehlermeldung ausgeben. Prob mal beides aus =)