Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler bei Funktion Formular geladen
Autor: LordBritish
Datum: 20.11.03 14:06
Ich habe folgende Ereignisprozedur in meinem Formular frmAntragssteller: Private Sub Form_Unload(Cancel As Integer) Dim lngPersonalID& On Error GoTo ErrUnload MousePointer = vbHourglass fncCheckPersonaldaten If bolErrPersonaldaten = False Then Sleep 5000 If bolPersIDFound = True Then If fncIsFormLoaded("frmReisegenehmigungsantrag") Then If frmReisegenehmigungsantrag.dbcPersonalID.Text <> "" Then lngPersonalID = frmReisegenehmigungsantrag.dbcPersonalID.Text frmReisegenehmigungsantrag.datAntragssteller.Recordset.Requery frmReisegenehmigungsantrag.dbcPersonalID.Text = "" frmReisegenehmigungsantrag.dbcPersonalID.Text = lngPersonalID Else frmReisegenehmigungsantrag.datAntragssteller.Recordset.Requery frmReisegenehmigungsantrag.dbcPersonalID.Text = "" frmReisegenehmigungsantrag.txtAntragssteller.Text = "" frmReisegenehmigungsantrag.txtAbteilung.Text = "" End If End If If fncIsFormLoaded("frmReisekostenerstattung") Then If frmReisekostenerstattung.dbcPersonalID.Text <> "" Then lngPersonalID = frmReisekostenerstattung.dbcPersonalID.Text frmReisekostenerstattung.datAntragssteller.Recordset.Requery frmReisekostenerstattung.dbcPersonalID.Text = "" frmReisekostenerstattung.dbcPersonalID.Text = lngPersonalID Else frmReisekostenerstattung.datAntragssteller.Recordset.Requery frmReisekostenerstattung.dbcPersonalID.Text = "" frmReisekostenerstattung.txtAntragssteller.Text = "" frmReisekostenerstattung.txtAbteilung.Text = "" End If End If End If MousePointer = vbDefault ElseIf bolErrPersonaldaten = True Then MsgBox "Die Personaldaten sind nicht vollständig. Bitte Daten vervollständigen!", vbExclamation, "Dateneingabe erforderlich" Cancel = True MousePointer = vbDefault Exit Sub End If Exit Sub ErrUnload: If Err.Number = 3426 Then Resume Next ElseIf Err.Number <> 3426 Then MousePointer = vbDefault MsgBox "Fehler beim schließen von 'frmAntragssteller'." & vbNewLine & Err.Description & " : " & Err.Number, vbCritical, "Error Antragssteller" End If End Sub Public Function fncIsFormLoaded(ByVal fName As String) As Boolean 'Prüfen, ob Formular geladen Dim i As Integer fncIsFormLoaded = False For i = 0 To Forms.Count - 1 If LCase$(Forms(i).Name) = LCase$(fName) Then fncIsFormLoaded = True Exit For End If Next i End Function ------------------------------------------------------------------------------------------------------------- Das Formular frmAntragssteller rufe ich aus verschiedenen Formularen sowie über die Menüleiste auf. Das Problem ist, wenn ich das Formular frmAntragssteller z.B. aus frmReisekostenerstattung oder über das Menü per frmAntragssteller.Show(1) aufrufe, wird das Formular frmReisegenehmigungsantrag auch angezeigt. Wenn ich die Überprüfung für das Formular frmReisegenehmigungsantrag auskommentiere funktioniert es. Was mache ich falsch bzw. wie kann ich das Anzeigen des nicht gewünschten Formulars (frmReisegenehmigungsantrag) verhindern ?

Fehler bei Funktion Formular geladen	577	LordBritish	20.11.03 14:06
Re: Fehler bei Funktion Formular geladen	323	Wookiehuhn	21.11.03 12:40
Re: Fehler bei Funktion Formular geladen	320	LordBritish	22.11.03 09:40
Okay (o.T.)	323	Wookiehuhn	24.11.03 12:50

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