Problem with NavigationButtons in a NavigationForm

[Misjel]

Hi,
I have been trying to solve a problem for days.
I have a NavigationForm with about 50 NavigationButtons. I wrote a small module to turn these buttons on or off per user. This works perfectly except for 3 buttons.
This is the underlying code of a NavigationButton:
If TempVars("InUitSchakelen") Then
Call modInUitSchakelen(TempVars("Shopbeheerder"), frmnm, Me.ActiveControl.Name, Me.ActiveControl.Caption)
End If
This is the code for the actual processing:
Public Sub modInUitSchakelen(InUit, frm, ctl, cap)
On Error GoTo Proc_Error
DoCmd.Hourglass True
If InUit = "xxxxxxxx" Then GoTo Proc_Exit
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim strsql As String
strsql = "SELECT * FROM FormBevoegdheden WHERE Identificatie = " & Chr(34) & InUit & Chr(34) & " ;"
Set db = CurrentDb()
Set rs = db.OpenRecordset(strsql, dbOpenDynaset)
With rs
If .RecordCount > 0 Then
.MoveFirst
Do Until .EOF
Forms(frm).Controls(ctl).bordercolor = vbRed
.MoveNext
Loop
End If
End With
rs.Close
Set rs = OpenSeek("FormBevoegdheden")
With rs


.Index = "Primarykey"
.Seek "=", frm, ctl, InUit
If .NoMatch Then
.AddNew
!Form = frm
!Control = ctl
!Identificatie = InUit
.Update
Forms(frm).Controls(ctl).bordercolor = vbRed
Else
.Delete
Forms(frm).Controls(ctl).bordercolor = vbBlack
End If
End With

Proc_Exit: On Error Resume Next
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
DoCmd.Hourglass False
Exit Sub

Proc_Error:
If err.Number = 2220 Then
Resume Next
End If
Call errfout(err.Number, err.Description)
Resume Proc_Exit

End Sub
See attachment: Screenshot 2025-05-31 104535.jpg
The Me.ActiveControl.Name should be NavigationButton4212 but when I run the Add Watch I get: NavigationSubform and then the error: 438 Object doesn’t support this property or method.
Hopefully someone will give me a positive answer because I can’t find it (the properties of the wrong button are the same as those of a correct button).
Thanks in advance
Regards
Michel

[moke123]

Set rs = OpenSeek("FormBevoegdheden")

What's OpenSeek?


You should use code tags when posting code. Makes it easier to read.

If TempVars("InUitSchakelen") Then    Call modInUitSchakelen(TempVars("Shopbeheerder"), frmnm, Me.ActiveControl.Name, Me.ActiveControl.Caption)
End If
This is the code for the actual processing:


Public Sub modInUitSchakelen(InUit, frm, ctl, cap)
    On Error GoTo Proc_Error
    DoCmd.Hourglass True
    If InUit = "xxxxxxxx" Then GoTo Proc_Exit
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim strsql As String
    strsql = "SELECT * FROM FormBevoegdheden WHERE Identificatie = " & Chr(34) & InUit & Chr(34) & " ;"
    Set db = CurrentDb()
    Set rs = db.OpenRecordset(strsql, dbOpenDynaset)
    With rs
        If .RecordCount > 0 Then
            .MoveFirst
            Do Until .EOF
                Forms(frm).Controls(ctl).BorderColor = vbRed
                .MoveNext
            Loop
        End If
    End With
    rs.Close
    Set rs = OpenSeek("FormBevoegdheden")
    
    With rs
        .Index = "Primarykey"
        .Seek "=", frm, ctl, InUit
        If .NoMatch Then
            .AddNew
            !Form = frm
            !Control = ctl
            !Identificatie = InUit
            .Update
            Forms(frm).Controls(ctl).BorderColor = vbRed
        Else
            .Delete
            Forms(frm).Controls(ctl).BorderColor = vbBlack
        End If
    End With


Proc_Exit:     On Error Resume Next
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    DoCmd.Hourglass False
    Exit Sub


Proc_Error:
    If Err.Number = 2220 Then
        Resume Next
    End If
    Call errfout(Err.Number, Err.Description)
    Resume Proc_Exit


End Sub