programmation validation

Question

Bonjour,  


Je recherche désespérément un code pour une condition de validation sous access 2003. 
Je m'explique : Après remplissage d'un formulaire et appuis sur un bouton d'enregistrement je veux qu'une condition se fasse pour que tous les champ soit remplis pour valider le formulaire. 
Merci de votre aide. 
Configuration: Windows XP / Firefox 4.0.1

freesta · Answer

quel language?

Pingui · Answer

Visual Basic

freesta · Answer

connais pas mais dans les autres language tu peut faire des chose comme ca:

if (champ1 != "" || champ2 != "" || champ3 != "" )
{

}

!= sa veut dire "diférent"
|| sa veut dire "ou"

freesta · Answer

au pire envoi le code de ton formulaire sa dois pas être compliquer!

Pingui · Answer

Oui dans un langage C sa peut marcher je suis habituer a celui la étant étudiant en développement informatique mais le visual basic orienté objet c'est pas mon fort.

Voici le code: 

Option Compare Database
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

'Procédure à rajouter dans chaque formulaire
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
Cancel = True
End Sub

Private Sub Form_Load()
'Code à rajouter dans l'événement chargement de chaque formulaire
Set clsMouseWheel = New MouseWheel.CMouseWheel
Set clsMouseWheel.Form = Me
clsMouseWheel.SubClassHookForm
End Sub

Private Sub Form_Close()
'Code à rajouter dans l'événement fermeture de chaque formulaire
If Not (clsMouseWheel Is Nothing) Then
clsMouseWheel.SubClassUnHookForm
Set clsMouseWheel.Form = Nothing
Set clsMouseWheel = Nothing
End If
End Sub
Private Sub Imprimer_Click()
On Error GoTo Err_Imprimer_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.PrintOut acSelection

Exit_Imprimer_Click:
    Exit Sub

Err_Imprimer_Click:
    MsgBox Err.Description
    Resume Exit_Imprimer_Click
    
End Sub



Private Sub Sauvgarde_Click()
On Error GoTo Err_Sauvgarde_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Sauvgarde_Click:
    Exit Sub

Err_Sauvgarde_Click:
    MsgBox Err.Description
    Resume Exit_Sauvgarde_Click
    
'Private Sub Commande10_Click()
 
'If IsNull(Me.Nom_Prenom) Then
 
'tous les champs doivent être remplis
 
'Else
 
'If Not IsNull(Me.Nom_Prenom) Then
 
'MsgBox ("Touts les champs doivent être renseigné pour cette action")
 
'Else
 
'MsgBox ("Execution de l'action")
 
'End If
'End If '
 

    
End Sub
Private Sub Commande159_Click()
On Error GoTo Err_Commande159_Click

    Dim stDocName As String

    stDocName = "État1"
    DoCmd.OpenReport stDocName, acNormal

Exit_Commande159_Click:
    Exit Sub

Err_Commande159_Click:
    MsgBox Err.Description
    Resume Exit_Commande159_Click
    
End Sub
Private Sub Commande160_Click()
On Error GoTo Err_Commande160_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Commande160_Click:
    Exit Sub

Err_Commande160_Click:
    MsgBox Err.Description
    Resume Exit_Commande160_Click
    
End Sub




Private Sub Imprime_Table1_Click()
On Error GoTo Err_Imprime_Table1_Click

    Dim stDocName As String

    stDocName = "Table1"
    DoCmd.OpenReport stDocName, acNormal

Exit_Imprime_Table1_Click:
    Exit Sub

Err_Imprime_Table1_Click:
    MsgBox Err.Description
    Resume Exit_Imprime_Table1_Click
    
End Sub
Private Sub Table2_Click()
On Error GoTo Err_Table2_Click

    Dim stDocName As String

    stDocName = "Table2"
    DoCmd.OpenReport stDocName, acNormal

Exit_Table2_Click:
    Exit Sub

Err_Table2_Click:
    MsgBox Err.Description
    Resume Exit_Table2_Click
    
End Sub

Pingui · Answer

D'autre par comme tu peut le voir j'ai essayer ce code pour la condition de validation : 
(mais sans succès) 

'Private Sub Commande10_Click()

'If IsNull(Me.Nom_Prenom) Then

'tous les champs doivent être remplis

'Else

'If Not IsNull(Me.Nom_Prenom) Then

'MsgBox ("Touts les champs doivent être renseigné pour cette action")

'Else

'MsgBox ("Execution de l'action")

'End If

freesta · Answer

je vien de voir sa en cherchant:

If NOT IsEmpty(Me.Nom_Prenom) Then 
         XXXX
else 
        XXXXXXXX
end if

Pingui · Answer

je vais essayer merci. Empty veut dire vide alors que NULL veut dire nulle peut être là le problème...  Je test

Pingui · Answer

une fois le bouton actionner le formulaire se bloque et rien ne se passe :s

freesta · Answer

pas cool, et tu peut pas fair un truck ="" dans ton if?

Programmation validation

10 réponses

Votre réponse

Discussions similaires

Newsletters