Actually for my code above, you will need a new table tblNCnt with one field NCnt(numeric).
So code in AfterUpdae would be(if syntax is correct):
Me.SetWarnnigs False
vNCnt = DLookup("[NCnt]", "tblNCnt)
If Me.Event = "N" ThenIf vNCnt = 0 Then
DoCmd.RunSQL "Update tblNCnt Set NCnt = 1"
Else
vNCnt = vNCnt + 1
DoCmd.RunSQL "Update tblNCnt Set NCnt = " & vNCnt
If vNCnt > 8 then
Me.cmdbutton.Visible = True
Else
Me.cmdbutton.Visible = False
End If
End If
DoCmd.RunSQL "Update tblNCnt Set NCnt = 1"
End If
Me.SetWarnnigs True