Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datenbank
Autor: Dark_Lord
Datum: 12.11.01 20:11
Hi Folks, ich hab da ein Problem. Ich habe unter Access 2000 eine kleine Datenbank gemacht und möchte jetzt über Visual Basic auf diese Datenbank zugreifen ( einfügen, löschen, etc.). Hat auch alles geklappt, nur "Ändern" funzt nicht, ich hoffe ihr könnt mir helfen. Private Sub Ändern_Click() Dim Name1 As String Dim SuchText, SuchZeichen, Pos1 Dim Nachname1 As String Dim Vorname1 As String Dim Name3 As String Dim Name2 As String Dim SuchText2, SuchZeichen2, Pos2 Dim Nachname2 As String Dim Vorname2 As String Dim Erfolg As Boolean Name1 = InputBox("Welcher Name soll geändert werden?") SuchText = DoCmd.GoToRecord SuchZeichen = Name1 Pos1 = InStr(SuchText, SuchZeichen) Nachname1 = Left$(SuchText, Pos1) Vorname1 = Right$(SuchText, Pos1) DoCmd.GoToRecord , , acNewRec Me.Nachname = Nachname1 Me.Vorname = Vorname1 Me.Refresh DoCmd.GoToRecord , , acFirst Erfolg = False Do If Nachname1 = Nachname Then Erfolg = True If Vorname1 = Vorname Then Erfolg = True Exit Do DoCmd.GoToRecord , , acNext Loop Until acLast If Erfolg = False Then GoTo Err_Ändern_Click Name2 = InputBox("Wodurch soll der Name ersetzt werden?") SuchText2 = Name2 SuchZeichen2 = " " Pos2 = InStr(SuchText2, SuchZeichen2) Nachname2 = Left$(SuchText2, Pos2) Vorname2 = Right$(SuchText2, Pos2) If Erfolg = True Then Me.Nachname = Nachname2 Me.Vorname = Vorname2 Me.Refresh End If Exit_Ändern_Click: Exit Sub Err_Ändern_Click: MsgBox Err.Description Resume Exit_Ändern_Click End Sub

Datenbank	58	Dark_Lord	12.11.01 20:11
Re: Datenbank	277	unbekannt	12.11.01 21:11
Re: Datenbank	36	Dark_Lord	12.11.01 21:55

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