Office: (Office 2010) Laufzeitfehler 2501: openform wurde abgebrochen

hallo,
ich bekomme beim öffnen eines formulares den laufzeitfehler 2501:

Private Sub Form_Open(Cancel As Integer)
Dim RST As Recordset

Set RST = Me.Recordset
If Me.Recordset.EOF Then
Cancel = True
'MsgBox "Formular ohne Daten wird nicht geöffnet"

End If

Set RST = Nothing

Me.Dateiname = Me.OpenArgs


End Sub

was mache ich falsch?

:)

 

Moin,
du öffnest dieses Form von einem anderen Formular aus? Dort kommt dann die Meldung an, dass es nicht geöffnet wurde und wird dir als Fehler ausgegeben.
Du musst also diesen Fehler im aufrufenden Formular behandeln:

Code:

maike

 

Das hatte ich mir auch schon gedacht, habe es aber nun umgebaut. und irgendwie hing sich das wohl an dem openargs ding auf....


Private Sub Form_Open(Cancel As Integer)
Dim RST As Recordset

Set RST = Me.Recordset
If Me.Recordset.RecordCount = 0 Then
DoCmd.Close acForm, Me.Name
'Cancel = True
'MsgBox "Formular ohne Daten wird nicht geöffnet"

Else

Set RST = Nothing

Me.Dateiname = Me.OpenArgs
End If

End Sub