Habe folgendes Problem ...
Daten werden aus einer Datenbank gelesen, anschließend in Variablen gespeichert und dann in txt Felder geschrieben um den aktuellen Datanbankeintrag zu ändern.
Das 2. Frame soll nur zur Abfrage dienen, ob die alten Werte aus den Variablen mit den neuen Werten aus den Textfeldern übernommen werden sollen:
Form1 verstecken
Form2 zeigen
>>>>>>
Labelbeschriftung = Variable (alterwert) ----> Textfeld (neuer Wert)
<<<<<<
Abfrage Button1 = JA Button 2 = NEIN
Wenn ja dann neue werte in die Variablen übernehmen und ab damit in die Datanbank.
Wenn nein, halt einfach wieder Form1 zeigen und Form2 unload me
Mein Problem besteht in Form2 an der Oben markierten Text.
Frage ... wieso sagt er mir an der stelle
lblalt.Caption = Client.Vorname
immer einen Fehler: "Methode oder Mietgliedsdaten nicht gefunden!" ?
Das Textfeld mit dem neuen zu editierenden Fald gibt keinen Fehler zurück sondern wird korrekt in die 2. Form übernommen nur die Variable nicht.
Anlagen:
im Form1 (Client.frm) sieht es so aus:
Im Form2 (Bearbeiten.frm) sieht der Code so aus:
Daten werden aus einer Datenbank gelesen, anschließend in Variablen gespeichert und dann in txt Felder geschrieben um den aktuellen Datanbankeintrag zu ändern.
Das 2. Frame soll nur zur Abfrage dienen, ob die alten Werte aus den Variablen mit den neuen Werten aus den Textfeldern übernommen werden sollen:
Form1 verstecken
Form2 zeigen
>>>>>>
Labelbeschriftung = Variable (alterwert) ----> Textfeld (neuer Wert)
<<<<<<
Abfrage Button1 = JA Button 2 = NEIN
Wenn ja dann neue werte in die Variablen übernehmen und ab damit in die Datanbank.
Wenn nein, halt einfach wieder Form1 zeigen und Form2 unload me
Mein Problem besteht in Form2 an der Oben markierten Text.
Frage ... wieso sagt er mir an der stelle
lblalt.Caption = Client.Vorname
immer einen Fehler: "Methode oder Mietgliedsdaten nicht gefunden!" ?
Das Textfeld mit dem neuen zu editierenden Fald gibt keinen Fehler zurück sondern wird korrekt in die 2. Form übernommen nur die Variable nicht.
Anlagen:
im Form1 (Client.frm) sieht es so aus:
Code:
Vorname = zws(1)
txtVorname(1).Text = zws(1)
Im Form2 (Bearbeiten.frm) sieht der Code so aus:
Code:
Private Sub Form_Load()
lblalt.Caption = Client.Vorname
lblneu.Caption = Client.txtVorname(1)
End Sub