online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon tobias1985 vom 31.07.2019, 15:00 Options

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

Ähnliche Themen

Textfelder beim Öffnen automatisch leeren
Micxel  05.03.2007 - 114 Hits - 2 Antworten

Haben Textfelder in Access Index
maxim66  19.09.2007 - 48 Hits - 5 Antworten

PowerPoint - Neue Folie - Layout einstellen
johannes11  22.03.2008 - 46 Hits - 1 Antwort

in excel leere zellen befüllen
brs  03.06.2008 - 109 Hits - 4 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026