✔ Benutzerfreundliches Datenanlegen & Editieren

[Katzenkind]

Datenanlegen & Editieren mit nur einem Klick

So jetzt habe ich etwas gröberes vor ...
Ich habe ein SSTab mit drei Tabs.
Die heißen: Namen, Adressen & Telefonnummern.
Bei Namen gibt es zwei Textfelder und ein Grid. In dem Grid werden alle Adressen angezeigt die ein Name hat.
Ich möchte jetzt einen neuen Namen anlegen mit einer Adresse und einer Telefonummer, habe auf jedem Tab-Index einen Button mit "Neu", "Speichern", "Löschen" & "Abbruch".
Ich möchte aber das das alles in einem . Wie mache ich das, ich hab nämlich noch nicht mal einen Schimmer wo ich da anfangen soll... Bis auf die Buttons, die hab ich schon...

Achja das alles ist mit einer Access Datenbank verbunden. Dort möchte ich entweder neue Einträge hinzufügen oder bestehende Einträge editieren (um die zu finden hab ich eine Suchfunktion....)

Hier ist der Code den ich verwende....

Private Sub speichernAlles()

On Error GoTo fehler

    'Namen
    strSQL = "SELECT * FROM namen WHERE id = '" + lblId.Caption + "'"
    rsNamen.Open strSQL, con, adOpenDynamic, adLockPessimistic

    If Not Len(lblId.Caption) = 38 Then
        '...wird ein neuer Datensatz angelegt
        rsNamen.AddNew
    End If

        rsNamen!Vorname = txtVorname.Text
        rsNamen!Nachname = txtNachname.Text

    rsNamen.Update

    lblId.Caption = rsNamen!ID

    rsNamen.Close


    'Adressen
    strSQL = "SELECT * FROM adressen WHERE Nam_Id = '" + lblId.Caption + "'"
    rsAdressen.Open strSQL, con, adOpenDynamic, adLockPessimistic

    If Not Len(lblidA.Caption) = 38 Then
        rsAdressen.AddNew
        rsAdressen!Nam_Id = lblId.Caption
    End If

    rsAdressen!Strasse = txtStrasse.Text
    rsAdressen!Plz = txtPlz.Text
    rsAdressen!Ort = txtOrt.Text

    rsAdressen.Update

    lblId.Caption = rsAdressen!ID

    rsAdressen.Close

    'Telefon
    strSQL = "SELECT * FROM telefonnummern WHERE Nam_ID = '" + lblId.Caption + "'"
    rsTelefon.Open strSQL, con, adOpenDynamic, adLockPessimistic

    If Not Len(lblIdT.Caption) = 38 Then
        rsTelefon.AddNew
        rsTelefon!Nam_Id = lblId.Caption
    End If

    rsTelefon!Privat = txtPrivat.Text
    rsTelefon!Firma = txtFirma.Text
    rsTelefon!Handy = txtHandy.Text

    rsTelefon.Update

    lblId.Caption = rsTelefon!Nam_Id

    rsTelefon.Close

    'Feld Vorname bekommt den Cursor
    tabNamen.Tab = 0
    txtVorname.SetFocus

    Exit Sub

'Fehlermeldung
fehler:
MsgBox "Es ist ein Fehler aufgetreten:" + vbCr + vbLf + "Nummer: " & Err.Number & " Beschreibung: " & Err.Description, vbExclamation + vbOKOnly

End Sub

Mfg Katzenkind

 

[Alex F.]

Re: Datenanlegen & Editieren mit nur einem Klick

Ich möchte jetzt einen neuen Namen anlegen mit einer Adresse und einer Telefonummer, habe auf jedem Tab-Index einen Button mit "Neu", "Speichern", "Löschen" & "Abbruch".
Ich möchte aber das das alles in einem . Wie mache ich das, ich hab nämlich noch nicht mal

Ich weiss jetzt nicht ob ich dich da richtig Verstanden habe aber wieso legst du die Buttons nicht oberhalb des sstab dann brauchst du sie nicht zu auf jeder tabe duplizieren.

Gruss bb

 

[Katzenkind]

Danke, das hatte ich bereits, nur wusste ich eben nicht wie ich es im code anstelle.
Jetzt habe ich es so gelöst, das pro Tab gespeichert wird.
Funktioniert auch