tabelle mit wert eines textfeldes befüllen
Hallo Ihr!
hoff es kann mir jemand von euch helfen.
hab ein formular auf dem sich ein Kombinationsfeld (cmbbezeichnung) und ein textfeld (txtnotiz) befinden.
ebenso einen button "cmdspeichern"
beide felder werden mit Werten aus der Tabelle tblNotizen befüllt.
z.B. cmbbezeichnung = Test1
z.B. txtnotiz = Notiz1
jetzt kann ich mir ja durch das Kombinationsfeld einen Datensatz aussuchen. Mein Textfeld aktualisiert sich automatisch. Jetzt hab ich folgendes Problem. Ich möchte gerne, dass wenn ich in meinem Textfeld die Notiz ändere z.B. aus Notiz1 einfach Notiz2 machen, mir das ganze in der Tabelle eben beim richtigen Datensatz abgespeichert wird.
Mein Makro:
---------------------------------------------------------------------------------------
Private Sub cmdspeichern_Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim rs As Recordset
Dim i As Integer
Dim proove As Boolean
proove = False
Set db = CurrentDb
For Each tdf In db.TableDefs
If tdf.Name = "tblNotizen" Then
proove = True
Exit For
End If
Next tdf
If proove = False Then
Set tdf = db.CreateTableDef("tblNotizen")
Set fld = tdf.CreateField("Bezeichnung", dbText)
tdf.Fields.Append fld
Set fld = tdf.CreateField("Notizen", dbText)
tdf.Fields.Append fld
db.TableDefs.Append tdf
End If
Me.RecordSource = "tblNotizen"
cmbbezeichnung.ControlSource = "Bezeichnung"
txtnotizen.ControlSource = "Notizen"
End sub
---------------------------------------------------------------------------------------
Die Werte werden übernommen in die Tabelle doch leider wird immer der erste in der Tabelle befindliche Datensatz überschrieben. Ich hätte es doch gern so, dass eben das Feld "Notiz" dort überschrieben wird, wo sich auch der richtige Datensatz befindet.
hoffe ihr könnt mir helfen
gruß
tobias
Antwort schreiben