textfelder befüllen
Hallo!
Hätte da mal eine Frage.
ich hab eine Tabelle, die heißt tblAuswahlliste.
In der Tabelle hab ich verschiedene Spalten.
Beschreibung, Ansprechpartner, Beschreibung.
Jetzt hab ich die Bemerkung in ein Kombinationsfeld reingetan mit Namen cmbBezeichnung.
Dann hab ich 2 Textfelder angelegt txtAnsprechpartner und txtBeschreibung.
Nun möchte ich, dass wenn ich beim Kombinationsfeld einen Wert auswähle, die Textfelder entsprechend mit den dazugehörigen WErten aus der Tabelle befüllt werden.
Kann mir da viell. jemand mal nen Tipp geben wie ich das anstelle?
gruß
tobias
Antwort schreiben
Antwort 1 von Teddy7 vom 31.07.2019, 15:21 Options
schau mal hier
http://www.donkarl.com/
in der FAQ Punkt 4.15
Gruß
Teddy
Antwort 2 von gast1000 vom 09.08.2019, 12:47 Options
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ß
gast1000