Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

On Error GoTo .. funkt nicht MEHR !
Autor: Socke
Datum: 26.06.02 13:26
Hi, ich kann mir leider nicht erklären wieso oder warum aber die Syntax ist 100% richtig. Zum öffnen einer Connection zur ner Acc97 DB werden vorher User und PWD abgefragt. Der Code sieht so aus: _________________________________________________________________ Private Sub cmdOK_Click() Dim bytVersuch As Byte On Error GoTo Err_ConnAppDB frmSubMsg.txtSubMsg.Text = frmSubMsg.txtSubMsg.Text & vbCrLf & "Benutzerdaten werden gesendet" Retry: Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.3.51" .Properties("User ID") = txtUserName .Properties("password") = txtPassword .Properties("Data Source") = sAppMDB .Properties("Jet OLEDB:System database") = sAppMDW .Open End With Unload Me Exit Sub Err_ConnAppDB: If Err.Number = -21472843 Then MsgBox "Das Kennwort oder der Benutzername sind nicht korrekt.", vbExclamation, "Anmeldung" bytVersuch = bytVersuch + 1 If bytVersuch = 4 Then MsgBox "Zuviele versuche" Unload Me Exit Sub Else GoTo Retry End If End If End Sub _________________________________________________________________ Er macht nicht dir Goto Error anweisung sondern Stoppt einfach. Dasselbe geschieht bei einer anderen App... die schon fertig ist funkt (hatte). Weiß einer Rat, bevor ich noch alle Haare rausgerissen hab ? Danke im voraus Gruß Kevin

On Error GoTo .. funkt nicht MEHR !	47	Socke	26.06.02 13:26
Re: On Error GoTo .. funkt nicht MEHR !	25	Socke	26.06.02 13:33

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