Discussion :

[8e8eClo]

Bonjour,

Désolé pour le titre peu explicite.
Je vais donc développer un peu.

J'ai deux tables. Un table "Contrat" et une table "Lot".
CONTRAT :
- ID_Contrat
- Numero
- ...
- Alloti (oui/non)

LOT :
- ID
- Numero
- ...
- ID_Contrat


J'ai un formulaire "Contrat" et un formulaire "Lot".
"Lot" est inséré en tant que SF dans "Contrat".

Dans un soucis d'esthétisme, je voulais mettre le champ (liste déroulante) "Alloti" de "Contrat" dans le SF "Lot".
Je mets donc en source de ma liste déroulante [Contrat]![Alloti].

Problème : je ne peux pas modifier le champ (le contrôle ne peut pas être modifié, il est lié à l'expression "[Contrat]![Alloti]").

Comment faire ?

PS : je n'ai pas mis le champ "alloti" dans lot car je veux que les enregistrements de la table "Lot" concerne exclusivement les lots et non le fait de savoir si le contrat est alloti ou non.


Merci

[Pepito78]

Dans un soucis d'esthétisme, je voulais mettre le champ (liste déroulante) "Alloti" de "Contrat" dans le SF "Lot".
Je mets donc en source de ma liste déroulante [Contrat]![Alloti].

Vous le voulez dans l'entête ou le pied de formulaire su SF ?

Ou si votre SF est en mode feuille de donnée à la fin de chaque ligne ?

[8e8eClo]

Dans l'entête du SF.
Le SF est en mode continu.

[Pepito78]

Dans le SF :
Je mettrai une copie du champ Alloti (appelons-le CopieAlloti) avec propriété source contrôle vide (indépendant)

Je mettrai le champ Alloti invisible dans le formulaire principal.

Ensuite dans le formulaire principal, sur l'évènement AfterUpdate

Code :

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

1
2
3
4
5
Private Sub Alloti_AfterUpdate()
 
if [Nom du SF].CopieAlloti <> Alloti.Value then [Nom du SF].CopieAlloti = Alloti.Value
 
End Sub

Toujours dans le formulaire principal, sur l'évènement sur Activation

Code :

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

1
2
3
4
5
Private Sub Form_Current()
 
if [Nom du SF].CopieAlloti <> Alloti.Value then [Nom du SF].CopieAlloti = Alloti.Value
 
End Sub

Enfin, dans le sous formulaire, dans l'évènement After update de CopieAlloti

Code :

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

1
2
3
4
5
Private Sub CopieAlloti_AfterUpdate()
 
if [Nom du principal].Alloti <> CopieAlloti.Value then [Nom du Principal].Alloti = opieAlloti.Value
 
End Sub

A tester

Cordialement

[8e8eClo]

J'ai une erreur :

"Membre de méthode ou de données introuvables"

[Pepito78]

J'ai une erreur :

"Membre de méthode ou de données introuvables"

Sur quel ligne, dans quelle procédure ?

[8e8eClo]

Sur le code "sur activation"

Code :

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

1
2
3
4
5
Private Sub Form_Current()
 
if [Frm_Contrat].CopieAlloti <> Alloti.Value then [Frm_Contrat].CopieAlloti = Alloti.Value
 
End Sub

[Pepito78]

Sur le code "sur activation"

Code :

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

1
2
3
4
5
Private Sub Form_Current()
 
if [Frm_Contrat].CopieAlloti <> Alloti.Value then [Frm_Contrat].CopieAlloti = Alloti.Value
 
End Sub

Ah oui, il faut utiliser le nom tel qu'il apparaît dans l'explorateur (à gauche) dans l'éditeur Visual Basic (form_Frm_Contrat je pense)

[8e8eClo]

Nikel !

Merci