Discussion :

[Almenor]

Bonjour,

J'ai un petit soucis que je n'arrive pas à résoudre. J'ai un formulaire mais deux boutons pour y accéder. Le premier ouvre le formulaire en mode ajout avec l'impossibilité de parcourir les autres entrées et le second ouvre le formulaire en mode "édition" (je ne sais pas si c'est le terme exact), on peut parcourir toutes les entrées et les modifier et pas de formulaire vide.

J'ai réussi sans problème cette étape avec l'interface access, sans VBA.

Cependant, j'aimerai que le boutons Editer ne s'ouvre que pour certains type d'utilisateurs (les gestionnaires). Du coup obliger de passer par du VBA et je n'arrive pas à reproduire en VBA l'ouverture du formulaire en mode "édition"

Voici le code qui s'occupe de cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub btn_OuvrirCheckBdc_Click()
    Dim seclevel As String
    seclevel = DLookup("[userSecurity]", "T_Users", "[UserID]=" & user)
    If (seclevel = "Administrateur" Or seclevel = "Gestionnaire") Then
        DoCmd.OpenForm "F_BonDeCommande"
    Else
        MsgBox "Vous n'avez pas accès à cette fonctionnalité"
    End If
End Sub

Merci d'avance pour votre aide !

[Almenor]

Bon, finalement j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub btn_OuvrirCheckBdc_Click()
    Dim seclevel As String
    seclevel = DLookup("[userSecurity]", "T_Users", "[UserID]=" & user)
    If (seclevel = "Administrateur" Or seclevel = "Gestionnaire") Then
        DoCmd.OpenForm "F_BonDeCommande", , , , acFormEdit
    Else
        MsgBox "Vous n'avez pas accès à cette fonctionnalité"
    End If
End Sub

Je cherchait trop compliqué