Usynlig knap i formular

Form_Open kan benyttes til at styre egenskaberne i dine formularer, eksempel :

Private Sub Form_Open(Cancel As Integer)
Dim CurrentUserName As String
   
    CurrentUserName = DLookup("[User]", "AppUsers", "[Username] = Environ(""UserName"")")
   
        MsgBox ("Aktuel bruger er : " & CurrentUserName)
   
    If Environ("UserName") = DLookup("[BrugerID]", "qryUsers", "[BrugerID] = Environ(""UserName"")") Then
        cmdImport.Enabled = True
        cmdTop10_ImportFrm.Enabled = True
        cmdSælgerData.Enabled = True
        cmdSletHierarki.Enabled = True
       
    Else
       
        cmdImport.Enabled = False
        cmdTop10_ImportFrm.Enabled = False
        cmdSælgerData.Enabled = False
        cmdSletHierarki.Enabled = False
       
    End If
     
End Sub

På knappen på hovedmenuen lægger du denne kode:

Docmd.Openform "Din formular"

Den anden knap skal se nogenlunde således ud:

Docmd.Openform "Din formular",,,"ID = " & Me!ID
Forms![Din formular].NavigationButtons = false

Ved at lægge denne linie "Forms![Din formular].NavigationButtons = false" ind i koden der åbner formularen virker dit forslag fint Thomas, men det er ikke de "indbyggede" access navigationsknapper der skal usynliggøres, med indsatte kanpper fra værktøjskassen i access.

ah, så skal den ændres til f.eks. sådan:

Docmd.Openform "Din formular",,,"ID = " & Me!ID
Forms![Din formular]!cmdNext.Visible = false
Forms![Din formular]!cmdLast.Visible = false
Forms![Din formular]!cmdPrevious.Visible = false
Forms![Din formular]!cmdFirst.Visible = false

Den sad lige i skabet, tak for hjælpen både Thomas og jensen363. Det var jo samme løsning i havde, men Thomas havde igen en "nøglefærdig" løsning så han tildeles 50 p og jensen 10363 p.

Jeg mener selfølgelig at jensen363 tildeles 10 point (ikke 10363).

10363 point !!! er max ikke 200 :o)

takker :o)