Discussion :

[zanou666]

J'ai un controle qui se nomme lstControle sous la forme d'une liste de choix du type SELECT ... FROM ... ORDER BY ...; et qui donne des valeurs à d'autres controles : lstControle.column(1),lstControle.column(2),...

je veux créer une condition dans un code VB pour savoir si l'utilisateur a choisi une valeur pour ce controle, j'ai essayé

Code :

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

 If IsNull([LstControle]) Or [LsControle] = "" Then

mais j'obtiens une erreur : Type incompatible (erreur 13)

comment je peux faire cette condition autrement ?

[Jean-Philippe André]

bonjour,
peut-être en ajoutant un .value ou un .text ?

[Invité]

Bonjour

Un petit lien http://www.developpez.net/forums/sho...d.php?t=409822

Starec

[zanou666]

je me suis inspirée de ce message sauf que je fais apparaitre dans une msgbox la liste des champs non remplis.
En fait, si je mets :

Code :

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

1
2
3
If IsNull([LstControle].Text) Or [LstControle].Text = "" Then
   strmsg = strmsg & vbCrLf & vbTab & "- Controle 1"
   End If

l'erreur est "objet requis"

si je mets

Code :

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

1
2
3
If IsNull(Me.[LstControle].Text) Or Me.[LstControle].Text = "" Then
   strmsg = strmsg & vbCrLf & vbTab & "- Controle 1"
   End If

l'erreur est "utilisation incorrecte de l'objet Me". je pense aussi que ça a un lien avec le fait que cette fonction appartient à un module et pas au code VB d'un formulaire.

[Invité]

Re

La lecture de cet article de Loufab : http://loufab.developpez.com/appelformulaire/
Te permettra de connaitre la syntaxe à utiliser pour faire appel aux contrôles de ton formulaire.

Starec

[zanou666]

ce module va s'appliquer à différents formulaires, et j'ai donné le même nom au contrôle dans les différents formulaires pour pouvoir utiliser le même module partout.

je dois donc utiliser Application.Screen.ActiveForm.Name

Code :

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

1
2
TTT = Application.Screen.ActiveForm.Name
   If IsNull(Forms.TTT.[LstControle].Text) Or Forms.TTT.[LstControle].Text = "" Then

cette fois l'erreur est "propriété non gérée par l'objet"

[zanou666]

L'erreur vient de la façon d'appeler le contrôle dans le module :
Forms.[TTT].[LstControle], ça ne marche pas. alors que TTT me donne bien le nom de mon formulaire.

est-ce que ça peut venir du fait qu'il y ait des espaces dans le nom du formulaire ? (je ne connaissais pas cette règle quand j'ai commencé à concevoir la base, et maintenant que la base est grosse, j'ai pas très envie de changer le nom du formulaire)