Laufzeitfehler 13 und kein plan wieso

[AoHNewBee]

Hallo alle zusammen ich habe bei meiner Programmierung ein kleines Problem bei der Ich im moment einfach nur aufm schlauch stehe und zwar bekomme ich jedesmal den Laufzeitfehler 13 Typen unverträglich
und zwar immer an der stelle

If Application.Forms ("frmAbfMenue").Form Then

hier der code nochmal im überblick

Private Sub Vorschau_Click()
    Dim rs As DAO.Recordset
    Dim sqry As String
    Dim sValue As String
   
    sqry = "SELECT * FROM DDGPreferences WHERE Token = 'frmAbfMainErfassung'"
    Set rs = CodeDb.OpenRecordset(sqry)
    While Not rs.EOF
        Select Case rs!Property
          Case "Caption"
            sValue = gsCStr(rs!Value)
            If Not gbNull(sValue) Then
                If Left(sValue, 1) <> " " Then sValue = " " & sValue
                Application.Forms("frmAbfMenue").Controls(rs!Resource).Caption = _
                                                                          rs!Value
            End If
          Case "Visible"
            If Application.Forms("frmAbfMenue").Form Then
                sValue = gsCStr(rs!Value)
                Application.Forms("frmAbfMenue").Controls(rs!Resource).Visible = _
                                               IIf(rs!Value = "True", True, False)
            End If
        End Select
        rs.MoveNext
    Wend
End Sub

Ich bedanke mich schon mal für eure Antworten

 

[Orakel]

Hi AoHNewBee

probiers doch mal mit

If Not Application.Forms ("frmAbfMenue").Form Is Nothing Then

Gruß
Das Orakel

 

[AoHNewBee]

Hey danke das hat funktioniert ^^ hab halt öfters mal aussetzer wenn ich nen fehler im Quellcode suche

 

[Orakel]

LOL. Da bist Du nicht alleine

Greetings
Das Orakel