Discussion :

[amne26]

Bonjour tout le monde. Voici ma question:
J'ai un formualire dependant, basé sur une table qui s'appele Cuir_Table.
Ce formulaire permet la saisie de nouveaux types de cuir, avec son fourniseur, son numero de reference qui est unique pour chaque type.

Comment faire en sorte que les controles se remplissent automatiquement si je saisis un type de cuir qui existe deja dans la table de référence.
Si le type de cuir n'existe pas je dois pouvoir saisir un nouveau avec les informations necessaires, si il existe deja dans la table les autres controles doivent etre bloqués pour ne pas etre modifies.

Merci

[SeaWolf601]

Le type de cuir est donc referencé dans une table et donc un champ spécifique ?

[amne26]

Oui exactement.
Le champ type de cuir, qui est de type text, est unique et ne peut etre repete.

[SeaWolf601]

Alors la méthode que j'utilise dans ces cas là est basé sur une combo box (Liste déroulante) avec plusieurs colonnes.

Donc soit une ComboBox pour saisir les types de cuir : Cmb_T_Cuir.

le control source de ta Combo doit être tes types de cuir, appelons le champ : T_Cuir.
Cette Combo doit posséder plusieurs colonnes, à savoir les autres références :T_Fournisseur, T_Réf, etc...

NB: Bien penser à mettre le nombre de colonnes correspondant dans les propriétés de la ComboBox.

Dans ton formulaire il y a donc cette combo ET les autres champs à remplir : Fourn, Ref, etc...

Sur l'evennement after update (aprés Mise à Jour) de ta combo, mettre le code suivant.

Code :

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

1
2
3
4
5
6
7
 
Private Sub Cmb_T_Cuir_AfterUpdate()
Me.Ref = Me.Cmb_T_Cuir.column(1) ' La 2e colonne de la combo.
Me.Fourn = Me.Cmb_T_Cuir.column(2) ' La 3e colonne de la combo.
'etc...
Me.Ref.SetFocus
End sub

Ce code vas donc remplir automatiquement les autres champs, si ceux ci sont renseignés dans ta table et envoyer le focus sur le second champ : Ref

Reste enssuite à tester les champs : Ref, Fourn, etc... pour savoir s'il sont remplis ou vide et donc bloquer la saisie ou la laisser libre.

Pour ça on a envoyé le Focus sur le champ Ref, on vas donc declencher un evennement sur la reception du focus sur le champ Ref.
Qui devrais donner à peu prés ceci.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Ref_GotFocus()
If me.Ref = "" or IsNull(Me.Ref) then ' là on teste si le champ Ref est vide.
' On ne fairt rien, si les champs sont vides, l'utilisateur devra les remplir.
Else 'Sinon
Me.Cmb_T_Cuir.Setfocus 'On renvoi le focus sur la ComboBox.
Me.Ref.Enabled = False ' On bloque le champ Ref
Me.Fourn.Enbled = False ' On bloque le champ Fourn
'etc...
End sub

Voila, ce n'est pas testé mais ça devrais te donner un bon départ.
Dans ce cas là je ne teste Qu'UN champ la Ref, à toi de voir si tu doit tous les tester ou pas.

Bon courage.