Programmation validation

quel language?

Visual Basic

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"

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

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

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

je vien de voir sa en cherchant:

If NOT IsEmpty(Me.Nom_Prenom) Then
XXXX
else
XXXXXXXX
end if

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

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

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