Test textbox

Question

Bonjour, j ai un formulaire avec 3 txtbox , 5 combobox et surtout 4 txtbox mais dont une seule est active en fonction de la selection d un des 4 optionbutton positionne dans un frame, que dois je ajouter a mon code pour tester le tout avant de valider ?
Merci

Private Function TestText(Obj As Object, Txt As String) As Boolean
   TestText = True
   If Obj.Text = vbNullString Then
       Call MsgBox("Vous devez entrer " & Txt)
       Obj.SetFocus
       TestText = False
   End If
End Function

Renfield · Answer

tu peut reposter, en clair ?

Gil369 · Answer

Re,
je voudrai en fait faire une verification sur tous les text et combo box, afin de n'en laisser aucun vide avnt la validation
merci

Renfield · Answer

ce genre de chose :


Dim oCtl As Object
Dim bIsOk as Boolean

bIsOk = True
For Each oCtl In Me.Controls
    If TypeOf oCtl Is VB.ComboBox Then
        If oCtl.ListIndex = -1 Then
            bIsOk = False
        Endif
    ElseIf TypeOf oCtl Is VB.TextBox Then
        If oCtl.Text = vbNullString Then
            bIsOk = False
        End if
    EndIf
Next oCtl

If not bIsOk Then
    Msgbox "Merci de remplir tous les champs !!!!"
End If

Gil369 · Answer

re,
mon code ci dessus fonctionne bien jusqu au frame ou j ai mes4 optionbuton, mais accepte ma validation sans msg box apres,

Renfield · Answer

c'est quoi, encore, cette histoire de OptionButtons ?
tu m'as dit:

"je voudrai en fait faire une verification sur tous les text et combo box, afin de n'en laisser aucun vide avnt la validation"

tu as juste a te calquer sur ce que je t'ai fait, et ajouter:
ElseIf TypeOf oCtl Is VB.OptionButton Then
...

comment se nomment tes OptionButtons

Gil369 · Answer

re
BTN_Cheque , BTN_Prelevement, BTN_Virement et BTN_Especes en fonction de la selection ( 1 seul choix possible) il active la TXTbox correspondante

Renfield · Answer

donc c'est plus fin que ce que permet de faire le code que je t'ai fournis....
en effet, certaines textbox peuvent etre vides, a condition qu'elles soient désactivées....

non ?

Gil369 · Answer

oui tout a fait , peux tu me dire si je suis parti sur de bonnes base avec mon code ou si je dois m orienter vers un autre code ?
Merci

Renfield · Answer

rien ne t'empeche de faire ce genre de test :

Dim oCtl As Object 
Dim bIsOk as Boolean 

bIsOk = True 
For Each oCtl In Me.Controls 
    If TypeOf oCtl Is VB.ComboBox Then 
        If oCtl.ListIndex = -1 And oCtl.Enabled=True Then 
            bIsOk = False 
        Endif 
    ElseIf TypeOf oCtl Is VB.TextBox Then 
        If oCtl.Text = vbNullString  And oCtl.Enabled=True Then 
            bIsOk = False 
        End if 
    EndIf 
Next oCtl 



NB. je t'ai filé du VB6 alors que tu as choisi VB2005
qui s'est trompé ? toi ou moi ?

Gil369 · Answer

re , surement moi, suis  novice ! je travaille avec excel 2007

Renfield · Answer

donc en VBA...
ok

Gil369 · Answer

ok, maintenant je saurai le preciser ...
merci

Gil369 · Answer

re, 
tout fonctionne bien pour "date" "piece N°" et "editeur", mais accepte la validation sans afficher de msgbox pour le reste.
Est ce que la base du code est bonne ?
Merci

Private Sub DisableControls()
   
   TXT_ChequeN°.Enabled = BTN_Cheque.Value  
   TXT_Prelevement.Enabled = BTN_Prelevement.Value 
   TXT_Virement.Enabled = BTN_Virement.Value 
   TXT_Especes.Enabled = BTN_Especes.Value
    
End Sub




Private Function TestText(Obj As Object, Txt As String) As Boolean
   TestText = True
   If Obj.Text = vbNullString Then
       Call MsgBox("Vous devez entrer " & Txt)
       Obj.SetFocus
       TestText = False
   End If
End Function

Private Sub BTN_Cheque_Click()
    Call DisableControls
End Sub
        
        Private Sub INT_ChequeN°_Click()


        End Sub
              
                Private Sub TXT_ChequeN°_Change()
               End Sub

Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
   If Not TestText(TXT_Date, "une date") Then Exit Sub
   
   'On teste la saisie de la pieceN...
   If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub
  
   'On teste la saisie de l'editeur...
   If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub
   
    'On teste la saisie de la nature de l operation
    
        If BTN_Cheque.Value = True Then
            If Not TestText(Me.TXT_ChequeN°, "Cheque") Then Exit Sub
   
        ElseIf BTN_Prelevement.Value = True Then
            If Not TestText(Me.TXT_Prelevement, "Prelevement") Then Exit Sub
   
        ElseIf BTN_Virement.Value = True Then
            If Not TestText(Me.TXT_Virement, "Virement") Then Exit Sub
   
        ElseIf BTN_Especes.Value = True Then
            If Not TestText(Me.TXT_Especes, "Especes") Then Exit Sub

Renfield · Answer

m'a l'air pas mal

Gil369 · Answer

oui, mais j ai pas de msgbox apres "editeur" est ce que parce que mes optionbutton sont dans un frame ?

Renfield · Answer

a voir comment est fait ton Combobox... cherches peut etre a valider le ListIndex

Gil369 · Answer

c est pas un combobox, ce sont des boutons d option qui active un textbox en fonction du choix ( 1 seul possible sur les 4), je les ai mis dans un frame

Renfield · Answer

pas de soucis avec tes frames

testes en pas a pas (F8)

Gil369 · Answer

ok, merci

Gil369 · Answer

re, ça fonctionne " presque" : j ai mes txtbox active en fonction du choix d'un bouton option mais un message " erreur d execution 438" sur la ligne : If Obj.Text = vbNullString Then, ou dois je intervenir svp
merci

Test textbox

23 réponses

Votre réponse

Discussions similaires