Amélioration code

Chaps · 23 Mai 2006

Re,

Encore moi, j'ai un petit pb sur ce code :

If Controls('textbox1') = '' Or Controls('textbox2') = '' Or Controls('textbox3') = '' Or Controls('textbox4') = '' Or Controls('combobox2') = '' Or Controls('combobox3') = '' Or Controls('combobox4') = '' Then
MsgBox 'Saisie invalide, tous les champs doivent être renseignés', vbExclamation, 'Erreur... Saisie incomplète !'
Controls('textbox1').SetFocus

Je souhaitais adapter ce code en disant pour le combobox2 par exemple, si combobox2= '' and combobox2.enabled=false alors pas de message si combobox2.enabled=true et '' alors message evidemment.

Clair? Merci pour le retour d'infos

@+

ThomasR · 23 Mai 2006

Bonjour,

pas de probleme pour faire ce que tu demandes.

mais je m'interoge sur la raison pour laquelle tu nomme tes control 'controls(....

pour moi l'intêret de faire comme ca c'est de les appeler depuis une boucle.

exemple :

Code:

dim i as bite
for i = 1 to 4
if me.comtrols('Textbox' & i).text = '' then goto ligne
if me.comtrols('combobox' & i).text ='' and me.comtrols('combobox' & i).Enabled = True then goto ligne
next i
exit sub
ligne:
MsgBox \\'Saisie invalide, tous les champs doivent être renseignés\\', vbExclamation, \\'Erreur...

Hervé · 23 Mai 2006

bonjour chaps, thomas

meme interrogation que thomas concernant les controls.

un autre syntaxe non testé :

Dim i As Byte
Dim bon As Boolean

bon = True

For i = 1 To 4
If Controls('textbox' & i) = '' Then bon = False
With Controls('combobox' & i)
If .Enabled = True Then
If .Value = '' Then bon = False
End If
End With
Next i

If Not bon Then
MsgBox 'Saisie invalide, tous les champs doivent être renseignés', vbExclamation, 'Erreur... Saisie incomplète !'
End If

salut

Chaps · 23 Mai 2006

Re,

Merci à vous pour vos codes, j'ai pris note de votre analyse sur les controls. Comme on dit c'est en forgeant qu'on devient forgeron, pfff ya encore du boulot :unsure:

Amélioration code

Chaps

Guest

ThomasR

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Chaps

Guest

Discussions similaires

Amélioration code

Chaps

Guest

ThomasR

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

Chaps

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency