J'ai récuperé sur ce forum, ce code pour tester si des TextBox, sont vident,
(merci a l'auteur de celui-ci).
Ci joint ce code :
Dim Arr(), A As Integer
Arr = Array("AAAA", "BBBB", "CCCC")
For A = 0 To UBound(Arr)
If Me.Controls(Arr(A)) = "" Then
MsgBox "Le Champ : " & Me.Controls(Arr(A)).Name & " est vide !!!",
vbExclamation, "ATTENTION"
Me.Controls(Arr(A)).SetFocus
Exit Sub
End If
Next
Mais le petit hic est, que mes textbox on tous des diminutif, est a
l'affichage dans le message cela ne veux pas dire grand chose.
Donc comment je pourrais faire pour mettre le nom correct dans le message.
ex : pour le TextBox AAAAA, lui faire prendre le nom dans le message Lieu.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Gaboly
Bonsoir,
Ajoute un 2ème tableau avec les noms devant apparaître dans le message :
Dim Arr(), Noms(), A As Integer Arr = Array("AAAA", "BBBB", "CCCC") ' A adapter bien sûr Noms = Array("NomTextBox1","NomTextBox2","NomTextBox2") For A = 0 To UBound(Arr) If Me.Controls(Arr(A)) = "" Then MsgBox "Le Champ : " & Noms(A) & " est vide !!!", vbExclamation, "ATTENTION"
Bonsoir le forum,
J'ai récuperé sur ce forum, ce code pour tester si des TextBox, sont vides, (merci a l'auteur de celui-ci).
Ci joint ce code :
Dim Arr(), A As Integer Arr = Array("AAAA", "BBBB", "CCCC")
For A = 0 To UBound(Arr) If Me.Controls(Arr(A)) = "" Then MsgBox "Le Champ : " & Me.Controls(Arr(A)).Name & " est vide !!!", vbExclamation, "ATTENTION" Me.Controls(Arr(A)).SetFocus Exit Sub End If Next
Mais le petit hic est, que mes textbox on tous des diminutif, est a l'affichage dans le message cela ne veux pas dire grand chose.
Donc comment je pourrais faire pour mettre le nom correct dans le message.
ex : pour le TextBox AAAAA, lui faire prendre le nom dans le message Lieu.
Merci, a vous,Ouille
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonsoir,
Ajoute un 2ème tableau avec les noms devant apparaître dans le message :
Dim Arr(), Noms(), A As Integer
Arr = Array("AAAA", "BBBB", "CCCC")
' A adapter bien sûr
Noms = Array("NomTextBox1","NomTextBox2","NomTextBox2")
For A = 0 To UBound(Arr)
If Me.Controls(Arr(A)) = "" Then
MsgBox "Le Champ : " & Noms(A) & " est vide !!!",
vbExclamation, "ATTENTION"
Bonsoir le forum,
J'ai récuperé sur ce forum, ce code pour tester si des TextBox, sont vides,
(merci a l'auteur de celui-ci).
Ci joint ce code :
Dim Arr(), A As Integer
Arr = Array("AAAA", "BBBB", "CCCC")
For A = 0 To UBound(Arr)
If Me.Controls(Arr(A)) = "" Then
MsgBox "Le Champ : " & Me.Controls(Arr(A)).Name & " est vide !!!",
vbExclamation, "ATTENTION"
Me.Controls(Arr(A)).SetFocus
Exit Sub
End If
Next
Mais le petit hic est, que mes textbox on tous des diminutif, est a
l'affichage dans le message cela ne veux pas dire grand chose.
Donc comment je pourrais faire pour mettre le nom correct dans le message.
ex : pour le TextBox AAAAA, lui faire prendre le nom dans le message Lieu.
Ajoute un 2ème tableau avec les noms devant apparaître dans le message :
Dim Arr(), Noms(), A As Integer Arr = Array("AAAA", "BBBB", "CCCC") ' A adapter bien sûr Noms = Array("NomTextBox1","NomTextBox2","NomTextBox2") For A = 0 To UBound(Arr) If Me.Controls(Arr(A)) = "" Then MsgBox "Le Champ : " & Noms(A) & " est vide !!!", vbExclamation, "ATTENTION"
Bonsoir le forum,
J'ai récuperé sur ce forum, ce code pour tester si des TextBox, sont vides, (merci a l'auteur de celui-ci).
Ci joint ce code :
Dim Arr(), A As Integer Arr = Array("AAAA", "BBBB", "CCCC")
For A = 0 To UBound(Arr) If Me.Controls(Arr(A)) = "" Then MsgBox "Le Champ : " & Me.Controls(Arr(A)).Name & " est vide !!!", vbExclamation, "ATTENTION" Me.Controls(Arr(A)).SetFocus Exit Sub End If Next
Mais le petit hic est, que mes textbox on tous des diminutif, est a l'affichage dans le message cela ne veux pas dire grand chose.
Donc comment je pourrais faire pour mettre le nom correct dans le message.
ex : pour le TextBox AAAAA, lui faire prendre le nom dans le message Lieu.
