Code vb access
missnour
-
missnour -
missnour -
Bonjour,
Kelk1 peux me dire prk ce code camarche pas quand je clik sur le bouton il m'affiche utilisation incorrecte de null
Private Sub Commande63_Click()
On Error GoTo Err_Commande63_Click
Dim stDocName As String
If Val([Date départ].Value) = "" Then
stDocName = "ATTESTATION DE TRAVAIL"
Else
If Val([Libre de tout engagement]) = "" Then
stDocName = "ATTESTATION DE TRAVAIL (Départ)"
Else
stDocName = "CERTIFICAT DE TRAVAIL"
End If
End If
DoCmd.OpenReport stDocName, acPreview
Exit_Commande63_Click:
Exit Sub
Err_Commande63_Click:
MsgBox Err.Description
Resume Exit_Commande63_Click
End Sub
Kelk1 peux me dire prk ce code camarche pas quand je clik sur le bouton il m'affiche utilisation incorrecte de null
Private Sub Commande63_Click()
On Error GoTo Err_Commande63_Click
Dim stDocName As String
If Val([Date départ].Value) = "" Then
stDocName = "ATTESTATION DE TRAVAIL"
Else
If Val([Libre de tout engagement]) = "" Then
stDocName = "ATTESTATION DE TRAVAIL (Départ)"
Else
stDocName = "CERTIFICAT DE TRAVAIL"
End If
End If
DoCmd.OpenReport stDocName, acPreview
Exit_Commande63_Click:
Exit Sub
Err_Commande63_Click:
MsgBox Err.Description
Resume Exit_Commande63_Click
End Sub
A voir également:
- Code vb access
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
1 réponse
access fait une difference entre un champ qui est une chaine vide ("") et un champ qui n'est pas rempli.
Lorsque tu teste tes parametre, fait plusto:
If ( isnull([Date départ]) or [Date départ].value="") then
....
Apres je ne sais pas exactement ce que représente tes champs, ni ce que tu cherche à faire...
Moi en tout cas je testerais ca (mais je garantis rien, je suis pas un expert non plus :S)
bonne chance
Lorsque tu teste tes parametre, fait plusto:
If ( isnull([Date départ]) or [Date départ].value="") then
....
Apres je ne sais pas exactement ce que représente tes champs, ni ce que tu cherche à faire...
Moi en tout cas je testerais ca (mais je garantis rien, je suis pas un expert non plus :S)
bonne chance
peux tu me dire stp ou est le probleme dans ce code je veux vérifie si le champs = OUI ou NON
If Val([Libre de tout engagement]) = Non Then
stDocName = "ATTESTATION DE TRAVAIL (Départ)"
Else
stDocName = "CERTIFICAT DE TRAVAIL"
End If