Discussion :

[freeman3869]

Bonjour,

J'ai un petit problème tout con mais pourtant, je n'arrive pas à le résoudre.
En effet, je dois remplir le champ d'un formulaire avec une condition If : il faut que 2 champs de 2 tables ( table G et table E) correspondent. S'ils correspondent, le champ du formulaire prend la valeur oui, sinon il prend la valeur non.

Voici le code en vba :

Dim txt As String

If G.ser = E.si Then
txt = "Oui"
Else
txt = "Non"
End If

Merci à vous

[ClaudeLELOUP]

Bonjour,

Si le contrôle de ton formulaire s'appelle « txt », c'est ceci que tu dois écrire

Code :

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

1
2
3
4
5
6
 
If G.ser = E.si Then
    Me.txt = "Oui"
  Else
   Me.txt = "Non"
End If

[freeman3869]

Bonjour ClaudeLELOUP,
Merci de l'attention que vous portez à mon problème.

J'ai modifié mon code mais cette fois j'ai comme erreur : erreur d'exécution 424 : Objet requis.
Et le débogage me surligne le "If G.ser = E.si Then"

[ClaudeLELOUP]

Explique un peu plus.

1. Quelle est la source de ton formulaire ?

2. Dans ton formulaire, comment s'appelle les champs qui contiennent les valeurs des tables G et E dont tu parles ?

[freeman3869]

Explique un peu plus.

1. Quelle est la source de ton formulaire ?

2. Dans ton formulaire, comment s'appelle les champs qui contiennent les valeurs des tables G et E dont tu parles ?

Le formulaire s'appelle Suivi. Il sert à alimenter la table X. Les champs qui contiennent les valeurs des tables G et E n'existent pas sur le formulaire, mais sur les tables respectives qui s'appellent donc ser pour la table G et si pour la table E.

Je suis désolé pour les abréviations des noms mais ce sont des données confidentielles.

[ClaudeLELOUP]

Tes deux tables ne contiennent chacune qu'un seul enregistrement ?

Sinon, comment détermines-tu celui de la table G à comparer à celui de ta table E, par rapport à l'enregistrement en cours dans ton formulaire ?

[freeman3869]

Ca y est, j'ai trouvé la réponse.
En effet, j'ai du faire la fonction "ge = CurrentDb.OpenRecordset("SELECT G.ser FROM G").Fields(0).Value", ge étant une nouvelle variable pour faire la comparaison. Ensuite j'avais juste à reprendre le code en dessous et changer G.ser par ge ^^.

Merci de votre temps ClaudeLELOUP