Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit Datenbank
Autor: JoJo
Datum: 07.11.01 16:33
hallo, ich habe da so ein Problem mit so einer Datenbank, ich bastel in Access 2000 VBA rum. Das Grundgerüst etc. steht nur die Eingabe scheint nicht ganz zu klappen. Wenn ich zum Beispiel Mustermann Max eingebe, so erscheint nachher beim drücken auf 'Erster' im Nachname Feld 'Mustermann' was ja richtig ist, nur im Vorname Feld erscheint sowas wie 'mann Max' . es scheint so das irgendwie das Mit dem Leerzeichen bzw. das zählen von rechts für den Vornamen nicht klappt. Hier ist der Code: Option Compare Database Private Sub Erster_Click() On Error GoTo Err_Erster_Click DoCmd.GoToRecord , , acFirst Exit_Erster_Click: Exit Sub Err_Erster_Click: MsgBox Err.Description Resume Exit_Erster_Click End Sub Private Sub cmdFirst_Click() On Error GoTo Err_cmdFirst_Click cmdPrev.Enabled = False cmdNext.Enabled = True cmdNext.SetFocus DoCmd.GoToRecord , , acFirst Exit_cmdFirst_Click: Exit Sub Err_cmdFirst_Click: MsgBox Err.Description Resume Exit_cmdFirst_Click End Sub Private Sub cmdPrev_Click() On Error GoTo Err_cmdPrev_Click DoCmd.GoToRecord , , acPrevious Exit_cmdPrev_Click: Exit Sub Err_cmdPrev_Click: MsgBox Err.Description Resume Exit_cmdPrev_Click End Sub Private Sub cmdNext_Click() On Error GoTo Err_cmdNext_Click DoCmd.GoToRecord , , acNext Exit_cmdNext_Click: Exit Sub Err_cmdNext_Click: MsgBox Err.Description Resume Exit_cmdNext_Click End Sub Private Sub cmdLast_Click() On Error GoTo Err_cmdLast_Click cmdNext.Enabled = False cmdPrev.Enabled = True cmdPrev.SetFocus DoCmd.GoToRecord , , acLast Exit_cmdLast_Click: Exit Sub Err_cmdLast_Click: MsgBox Err.Description Resume Exit_cmdLast_Click End Sub Private Sub cmdDelete_Click() On Error GoTo Err_cmdDelete_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_cmdDelete_Click: Exit Sub Err_cmdDelete_Click: MsgBox Err.Description Resume Exit_cmdDelete_Click End Sub Private Sub cmdClose_Click() On Error GoTo Err_cmdClose_Click DoCmd.Close Exit_cmdClose_Click: Exit Sub Err_cmdClose_Click: MsgBox Err.Description Resume Exit_cmdClose_Click End Sub Private Sub cmdInsert_Click() Dim strNamen As String Dim SuchText As String Dim Pos1 As Integer Dim Pos2 As Integer Dim strNachname As String Dim strVorname As String On Error GoTo Err_cmdInsert_Click strNamen = InputBox("newdbs") SuchText = strNamen SuchZeichen = " " Pos1 = InStr(SuchText, SuchZeichen) strNachname = Left$(strNamen, Pos1) strVorname = Right$(strNamen, Pos1) txtNachname.Value = strNachname txtVorname.Value = strVorname DoCmd.GoToRecord , , acNewRec Exit_cmdInsert_Click: Exit Sub Err_cmdInsert_Click: MsgBox Err.Description Resume Exit_cmdInsert_Click End Sub Private Sub Detailbereich_Click() End Sub danke für etwaige Hilfen... JoJo P.S.: Habe leider noch net die Ahnung, deswegen wenn Ihre Tips habt, bitte etwas einleuchtender Erklären.

Problem mit Datenbank	50	JoJo	07.11.01 16:33
Re: Problem mit Datenbank	194	unbekannt	07.11.01 17:33
Re: Problem mit Datenbank	19	JoJo	07.11.01 17:56

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