Discussion :

[fab.85]

Bonjour,

dans un sous formulaire (feuille de données) je souhaite bloquer l'acces à un champ si le premier de la ligne est vide.

J'ai donc essayé ceci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
 
If Me.SFDetailsEntrees!CodeArticle = "" Then
   Me.SFDetailsEntrees!ReFournisseur.Enable = False
 
End If
 
End Sub

mais cela ne marche pas.

Peut-etre une solution avec AllowEdits mais mon"aide access" ne fonctionne plus.

Auriez-vous une idée?

D'avance merci

Fabien.

[rnd]

Bonjour,

Essaye plutôt avec

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
If IsNull(CodeArticle) Then
    ReFournisseur.Enabled = False
Else
    ReFournisseur.Enabled = True
End If
 
End Sub

dans le module de ton sous formulaire (le code s’exécute indépendamment du formulaire principale)

Cdt, Renaud.

[ClaudeLELOUP]

Bonjour vous deux,

Ton code :

Code :

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

1
2
If Me.SFDetailsEntrees!CodeArticle = "" Then
   Me.SFDetailsEntrees!ReFournisseur.Enable = False

laisse à penser qu'il s'agit d'un contrôle qui se trouve dans le conteneur « SFDetailsEntrees » qui lui-même contient un formulaire, la syntaxe est donc

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
 
If Me.SFDetailsEntrees.Form!CodeArticle = "" Then
   Me.SFDetailsEntrees.Form!ReFournisseur.Enable = False
 
End If
 
End Sub

Ceci dit, l'approche proposée par Rnd est aussi OK. (Via l'événement sur Activation du sous-formulaire.)

[Robert1957]

Bonjour fab.85, Claude, Renaud,

Juste un petit ajout. Il faudrait penser à remettre le champ fournisseur disponible, après avoir saisi un code article... (After Update)

Bonne journée

[ClaudeLELOUP]

Bien vu Robert donc l'approche de rnd est meilleure + le même code après mise de CodeArticle

[rnd]

Effectivement, j'avais poussé plus loin. (c'était pas la question non plus )

Mais du coup, je pense qu'il vaut mieux le faire sur CodeArticle.Exit.

Car si le champ RefFournisseur se trouve juste derrière en ordre de tab, on est banané

[ClaudeLELOUP]

on est banané

Je ne connais pas l'expression. Mais je me souviens d'une autre discussion récente. Tu as encore raison : Sortie est mieux.

[rnd]

Je ne connais pas l'expression.

C'est une version polie de dire certaine chose avec des mots pas correct.

[fab.85]

Bonjour et merci à vous tous pour vos réponses rapides.

la proposition de rnd fonctionne très bien car en effet le formulaire principale FBonEntrees contient le sous-formulaire SFDetailsEntrees qui lui contient les champs CodeArticle ainsi que RefFournisseur.

J'aurais pu "Tirer mon plan" avec ça mais il y avait une autre peau de banane.

En effet cela fonctionne lorsque l'encodage est manuel mais ici les codes articles sont transférés du formulaire FArticles via un bouton Bttransfert.

Et au moment du transfert, Access me dit qu'il ne peut pas activer le controle RefFournisseur.

Voici le code de Bttransfert:

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
21
22
'------------------------------------------------------------
' MChoix
'
'------------------------------------------------------------
 
On Error GoTo MChoix_Err
 
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenQuery "ChoixArticlesEntrés", acViewNormal, acEdit
    DoCmd.Close , ""
    Forms!FBonEntrees!SFDetailsEntrees.SetFocus
 
    Forms!FBonEntrees!SFDetailsEntrees!RefFournisseur.SetFocus
    Forms!FBonEntrees!SFDetailsEntrees.Requery
 
MChoix_Exit:
    Exit Sub
 
MChoix_Err:
    MsgBox Error$
    Resume MChoix_Exit
End Sub

[rnd]

Re,

Tu doit pouvoir insérer (j'ai pas tester présentement) avant le .Setfocus

Code :

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

Forms!FBonEntrees!SFDetailsEntrees!RefFournisseur.Enabled = True

[fab.85]

Merci c'est exactement la bonne formule..

Bonne journée.

Fabien.