Discussion :

[enkie]

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

[matdrap]

Est-ce que ton id_client s'affiche tout le temps?
Parce qu'une des cause probable des erreurs avec le set focus est que l'élément sur lequel tu veus mettre le setfocus existe tout simplement pas dans cet enregistrement la...

[enkie]

Bonjour

-.-'
Alors en fait, je me suis apperçue que dans la feuille de propriété de mon formulaire, le Type Recordset était positionner sur "Feuille de réponse Dynamique" et à chaque fois que j'ai ça, mon formulaire ne s'affiche pas en mode formulaire (aller savoir pourquoi, j'ai jamais compris , si quelqu'un connait la réponse... je suis toute ouie )
Donc, pour en revenir à mon Type Recordset, je l'ai mis sur Feuille rép.dyn.(MAJ globale) et là, Oh miracle!, ça marche

Enfin je suis rassurer, a priori ça venais pas de mon code ^^