Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: insert into...ersetzt nur bisherigen wert
Autor: Zwackel
Datum: 25.08.04 17:47
Also, meine Form startet immer mit dem ersten Adresseintrag. Mittels des Datafeldes fülle ich die einzelen Labelfelder mit Namen, Ort, Telefonnummer usw. Dieses Datafeld erlaubt mir durch die Pfeilnavigation auch wie gesagt die Datensätz vor- und rückwärts durchzublättern. Wenn ich eine neue Adresse hinzufügen möchte, klicke ich auf einen Button (z.b. Neue Adresse) und der löst folgenden Code aus: (sieht bestimmt fürchterlich anfängerhaft aus) ------- Private Sub Command2_Click() ' aktuell angezeigte Daten wegen Rücknahme-Option sichern... Dim label1_sicher As String label1_sicher = Label1 Dim label8_sicher As String label8_sicher = Label8 Dim label7_sicher As String label7_sicher = Label7 Dim label11_sicher As String label11_sicher = Label11 Dim label2_sicher As String label12_sicher = Label12 Dim label9_sicher As String label9_sicher = Label9 Dim label14_sicher As String label14_sicher = Label14 Dim vorname As String vorname = InputBox("Bitte den Vornamen eingeben:") Label1 = vorname Dim name As String name = InputBox("Bitte den Nachnamen eingeben:") Label8 = name Dim strasse As String strasse = InputBox("Bitte die Strasse eingeben:") Label7 = strasse Dim plz As String plz = InputBox("Bitte die Postleitzahl (PLZ) eingeben:") Label11 = plz Dim stadt As String stadt = InputBox("Bitte den Ort (Stadt) eingeben:") Label12 = stadt Dim telefon As String telefon = InputBox("Bitte die Telefonnummer eingeben:") Label9 = telefon ' Frage ob Adresse gespeichert werden soll Dim Btn As Long Btn = MsgBox("Adresse in Kartei aufnehmen ?", vbQuestion + vbYesNo, "Aufzunehmende Adresse...") If Btn = vbYes Then SQL$ = "insert into adressenliste (Vorname, Nachname, Adresse, Postleitzahl, Ort, TelefonPrivat) VALUES ('Label1','Label8','Label7','Label11','Label12','Label9')" Data1.Database.Execute SQL$ MsgBox "Adresse gespeichert !" mainmenu.Show Unload Me Else ' zuvor gesicherte Daten zurückholen... Label1 = label1_sicher Label8 = label8_sicher Label7 = label7_sicher Label11 = label11_sicher Label12 = label12_sicher Label9 = label9_sicher Label14 = label14_sicher MsgBox "Adresse wurde nicht gespeichert !" mainmenu.Show Unload Me End If End Sub ---------------------------------

insert into...ersetzt nur bisherigen wert	899	Zwackel	25.08.04 12:37
Re: insert into...ersetzt nur bisherigen wert	554	Dieter	25.08.04 15:27
Re: insert into...ersetzt nur bisherigen wert	531	Zwackel	25.08.04 17:37
Re: insert into...ersetzt nur bisherigen wert	495	Dieter	25.08.04 17:41
Re: insert into...ersetzt nur bisherigen wert	543	Zwackel	25.08.04 17:47
Re: insert into...ersetzt nur bisherigen wert	533	Dieter	25.08.04 17:55
Re: insert into...ersetzt nur bisherigen wert	472	Zwackel	25.08.04 18:04
Re: insert into...ersetzt nur bisherigen wert	528	LarsSchneider	29.08.04 18:19

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