Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dringend Hilfe benötigt
Autor: berd01
Datum: 04.02.02 12:06
Hallo Jungs und Mädels, ich hab da nen Problem und blicke nicht mehr durch: Ich möchte einen Datensatz in einer Adressverwaltung ändern. Zuvor sollen natürlich die vorhandenen Daten im Änderungsformular angezeigt werden. Klappt auch alles wunderbar, nur das der Datensatz plötzlich nicht mehr verändert wird. Ich ändere z.B. den Vornamen, nachdem ich mit Ok bestätigt habe bleibt der Datensatz im ListView allerdings unverändert. Noch eine anmerkung für die die mir helfen wollen: Wenn ich die Daten nicht vorher in das Formular übertrage geht alles wunderbar und der geänderte datensatz wird korrekt ausgegeben! Hier das Listing: (achtet bitte nicht auf die Deklarationen, weiß slebst das sie sch**** sind, wird alles noch angenehmer gestaltet) Private Sub cmd_KontaktBearbeitenOK_Click() Dim Db As DAO.Database Dim Tabelle As DAO.Recordset Dim dbFile As String Dim zähler As Long 'Datenbank öffnen dbFile = App.Path + "Adress.MDB" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) Set Tabelle = Db.OpenRecordset("Adressen") For zähler = 1 To 6 'Abfrage ob Änderungen vorgenommen worden sind If txt_KontaktBearbeiten(zähler).Text <> "" Then Tabelle.Edit Tabelle(zähler) = txt_KontaktBearbeiten(zähler).Text End If Next Tabelle.Update frm_TrayFastadress.cmd_ListViewAnzeigen = True Unload Me End Sub Private Sub Form_Load() Dim Db As DAO.Database Dim Tabelle As DAO.Recordset Dim dbFile As String Dim zähler As Long 'Datenbank öffnen dbFile = App.Path + "Adress.MDB" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) Set Tabelle = Db.OpenRecordset("Adressen") 'Textfelder mit Datensatzinformationen füllen For zähler = 1 To 6 txt_KontaktBearbeiten(zähler).Text = Tabelle(zähler) Next Tabelle.Close Db.Close Set Tabelle = Nothing Set Db = Nothing End Sub

Dringend Hilfe benötigt	88	berd01	04.02.02 12:06
Re: Dringend Hilfe benötigt	58	berd01	04.02.02 12:11
Re: Dringend Hilfe benötigt	85	berd01	04.02.02 12:54
Re: Dringend Hilfe benötigt	240	Dieter	04.02.02 13:04
Re: Dringend Hilfe benötigt	50	berd01	04.02.02 13:09
Re: Dringend Hilfe benötigt	335	Dieter	04.02.02 13:17
Re: Dringend Hilfe benötigt	53	berd01	04.02.02 14:16

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen