Vérification avant insertion !Résolu

Question

Bonsoir !

J'aurai aim&#233; savoir si il y avait un moyen simple de v&#233;rifier si les textbox ainsi que les combobox sont rempli avant insertion dans une base de donn&#233;e ??

Biensur sans utiliser la fonction a ralonge :
if text1.text = "" or ..... Then

Car il y a plusieur combo et textbox

Merci

Clad

PCPT · Accepted Answer

salut, Option Explicit ' ' Private Sub Command1_Click() Dim Ctrl As Object For Each Ctrls In Me If (TypeOf Ctrl Is TextBox) Or (TypeOf Ctrl Is ComboBox) Then If Ctrl.Text = "" Then MsgBox Ctrl.Name & " vide", , "NOP !!": Exit Sub End If Next ' et le reste du code ici.... "pas vide" End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

crenaud76 · Answer

Utilise les EVT Validate de tes controles

Clad49 · Answer

Comment ca ?

Clad

crenaud76 · Answer

Pour peu que la propriété CausesValidation de ton bouton de validation soit à True, juste avant l'EVT click de ton bouton, VB va déclencher tous les EVT Validate de tes controles sur la form. Donc pour une textbox ne devant pas etre vide, tu pourras faire un truc du genre ....

Private Sub Text1_Validate(Cancel As Boolean)
    If Text1.Text = "" Then
        MsgBox "Textbox1 ne doit pas être vide !", vbOKOnly + vbExclamation
        Cancel = True
    End If
End Sub

Avec ce code, si Textbox1 est vide la message box va s'afficher, et "Cancel = True" indique a VB que l'EVT qui devait se déclencher (l'EVT Click de ton bouton de validation qui va faire le stockage en DB) ne doit pas avoir lieu.

CR

Clad49 · Answer

Encore une foix merci bcp PCPT ! Tout marche nikel ! rien a redir ;)

(Si vous voulez r&#233;utiliser ce code pens&#233; a retirer le "s" a Ctrls : For Each Ctrls In Me )

ciao

Clad

PCPT · Answer

woups... en effet.

j'avais mis "s" partout, puis enlev&#233; en collant ici.

il y a toujours des rebelles^^



@+ bonne continuation

PCPT     [AFCK]

Vérification avant insertion !

6 réponses

Discussions similaires