• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Feldübertragung von Werten in Tabelle

Hallo,

habe folgende Sub:

Private Sub ComboBox2_Change()
Dim t, s As String

t = "Buchungen"
s = "[ArtikelText]='" & Me.ComboBox2.Column(1) & "'"

Me.Text2.Value = ""
Me.Text11.Value = ""
Me.Text82.Value = ""

If Nz(DLookup("ArtikelText", t, s), "") <> "" Then
MsgBox "Datensatz bereits vorhanden"
Dim rs As RecordsetClone
Me.Text2.Value = rs.Fields("Datum").Value
Me.Text11.Value = rs.Fields("WarenEingang").Value
Me.Text82.Value = rs.Fields("Lieferdatum").Value
Else
Me.Text2.Value = Date
Me.Text11.Value = ""
Me.Text82.Value = ""
End If
End Sub

klappt auch soweit alles.
Wenn ich im Textfeld(11) Änderungen vornehme,
um diese zu speichern, bekomme ich die Fehlermeldung,
das "Save" keine entsprechende Methode verfügbar ist:

Private Sub Text11_Change()
Dim rs As dao.Recordset
Set rs = RecordsetClone
rs.Edit
rs.Fields("WarenEingang").Value = Val(Me.Text11.Text)
rs.Save  '<--- Error
Exit Sub
End Sub

Woran kann das liegen bzw. was kann ich machen, das
Änderungen in der Tabelle Buchungen gespeichert werden?

Danke für Infos!
Gruß
Jens
Jens

Antworten