Datensatz aktualisieren
Andreas Feigl
zwei Fragen,die mich quälen:
1. Wie erreiche ich, dass ein Datensatz, welcher über einen Dialog bzw. über
eine UserForm aufgerufen wurde nach Änderungen einzelner TextBoxen,
an seine ursprüngliche Stelle zurückgeschrieben wird?
2. Wie erreiche ich, daß der Inhalt einer TextBox (es handelt sich um ein
Datum)
in der UserForm auch als Datum im Format "TT.MM.JJJJ" in der Tabelle
gespeichert wird?
Es kommt mir darauf an, dass man in dieser TextBox das Datum sowohl als
"TT.MM.JJJJ" als auch
"T.M.JJ" eingeben kann.
Ich denke diese NG kann mir dabei helfen.
Andreas
Hç
zu 1.
Deine Frage müßte präziser formuliert werden. Ist für Dich ein Datensatz der
Inhalt verschiedener Zellen einer Excel-Tabelle oder ein Datensatz einer
Datenbank-Tabelle?
zu 2.
Worksheets("Tabelle1").Cells(1, 1) = _
Format(UserForm1.TextBox1.Text, "dd.mm.yyyy")
Gruß Ulrich
Andreas Feigl <A.F...@t-online.de> schrieb in im Newsbeitrag:
8psrut$so1$16$1...@news.t-online.com...
Andreas Feigl
Ich habe mich wohl etwas unglücklich ausgedrückt.
Der Datensatz kommt aus einer Datenbank-Tabelle.
Ich könnte den Datensatz zwar über den Menüpunkt DATEN | MASKE
ändern, doch das bringt mir nicht viel, da ich den Datensatz aus der
UserForm heraus
dann gleich zur weiteren Verwendung in ein anderes Blatt übernehmen will.
Ich hoffe, mich jetzt etwas verständlicher ausgedrückt zu haben.
zu 2.:
Das war es. Erst einmal, Danke.
Gruß Andreas
Ulrich Bäthge
ich muß immer noch raten, da es mehrere Möglichkeiten gibt von Excel aus auf
eine Datenbank zuzugreifen. Sollte Excel über die DAO-Objektbibliothek auf
eine Access-Datenbank zugreifen, kannst Du den geänderten Datensatz mit
folgenden VBA-Anweisungen in die Access-Datenbanktabelle zurückschreiben:
Private Sub CommandButton1_Click()
Dim db As Database
Dim rst As Recordset
Set db = OpenDatabase("a:\Artikel.mdb")
Set rst = db.OpenRecordset("Kunden")
'Schreibt geänderten Datensatz in Datenbank zurück
rst.Edit
rst.Fields!PLZ.Value = Me.TextBox1.Value
rst.Fields!Wohnort.Value = Me.TextBox2.Value
rst.Update
End Sub
Im obenstehenden Beispiel wird werden die Inhalte der TextBoxes in die
Felder "PLZ" und "Wohnort" des aktuellen Datensatzes in der Tabelle "Kunden"
der Datenbank "Artikel.mdb" zurückgeschrieben.
Gruß Ulrich
Andreas Feigl <A.F...@t-online.de> schrieb in im Newsbeitrag:
8ptdkc$957$10$1...@news.t-online.com...
Andreas Feigl
ich bin wohl etwas durcheinander gekommen.
Mit der Datenbank-Tabelle meinte ich eigentlich ein Excel-Datenblatt, dass
in der Excel-Datei "Adressen.xls" steht. Diese "Adressen.xls" steht im
XLStart-Verzeichnis und wird mit Excel geladen.
Meine UserForm habe ich in der Datei "Rechnung.xls" hinterlegt.
Nun möchte ich, wenn ich die UserForm aufrufe und Änderungen an einem der
durch die UserForm aufgerufenen Daten eines Kunden, z.B. die Anschrift
ändert sich, dass dieser nicht als neuer Kunde angehängt wird, sondern nur
die entsprechenden Felder geändert werden.
Ich hoffe, Du verzeihst mir meine unkorrekte Fragestellungen.
Gruß Andreas
Ulrich Bäthge <ulrich....@t-online.de> schrieb in im Newsbeitrag:
8q37nj$i9q$14$1...@news.t-online.com...