Bonjour,

Je suis débutante en VBA Access et je suis actuellement en train de créer un formulaire de commandes des clients. Je souhaiterais qu'à l'ouverture du formulaire, le focus se positionne sur l'identifiant du client et que le reste du formulaire soit verrouillé tant qu'un identifiant client n'a pas était saisie.
Pour cela j'ai utilisé un .SetFocus mais quand je veux ouvrir le formulaire j'obtiens une erreur au niveua du setfocus:
Erreur d'exécution '2105': Impossible d'atteindre l'enregistrement spécifié.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub SetFormState(Optional fChangeFocus As Boolean = True)
    If fChangeFocus Then Me.IdClient.SetFocus
 
    Dim nStatut As EnumStatutCommClient
    nStatut = Nz(Me![ID_STATUT], Nvl_CommClient)
 
    CtlTabOrder.Enabled = Not IsNull(Me![IdClient]) 
 
    Me.cmdCreerFacture.Enabled = (nStatut = Nvl_CommClient)  
    Me.cmdOrdreExpedition.Enabled = (nStatut = Fact_CommClient) 
    Me.cmdTerminerCommande.Enabled = (nStatut = Livr_CommClient) 
    Me.cmdSupprimerCommande.Enabled = (nStatut = Nvl_CommClient) Or (nStatut = Fact_CommClient) 
 
    Me.Order_Page.Enabled = (nStatut = Nvl_CommClient)
    Me.Livraison_Page.Enabled = (nStatut = Nvl_CommClient)
    Me.Paiement_Page.Enabled = (nStatut = Nvl_CommClient)
 
    Me.IdClient.Locked = (nStatut <> Nvl_CommClient)
    Me.SF_Contrats.Locked = (nStatut <> Nvl_CommClient)
End Sub
Je ne vois pas où est l'erreur
Pouvais-vous m'aider, svp??

Merci