Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dringend Hilfe benötigt
Autor: berd01
Datum: 04.02.02 12:11
Habs mal kurz übersichtlicher gestaltet: Dim Db As DAO.Database Dim Tabelle As DAO.Recordset Dim dbFile As String Dim zähler As Long Private Sub Form_Load() '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 Private Sub cmd_KontaktBearbeitenOK_Click() '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 cmd_KontaktBearbeitenAbbrechen_Click() Unload Me End Sub

Dringend Hilfe benötigt	87	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	334	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