Je développe une application de gestion sous access et j'ai le message d'erreur suivant lorsque je veux afficher un message d'avertissement avec choix oui - non :
'incompatibilité de type'
Voici le code de mon évènement :
Dim dialogue
'Si on clique sur sortie et que l'on a pas enregistré de lignes de commandes
If Ligne_Commande.Visible = False And num_com.Value <> "" And date_com.Value <> "" And id_fourn_com.Value <> "" Then
'Message de mise ne garde demandant la sauvegarde des données
dialogue = MsgBox("Voulez vous enregistrer la commande n° " & Me.num_com, " sans lignes de commande ?", vbExclamation + vbYesNo, "Enregistrer commande n° " & Me.num_com)
'Si oui
If dialogue = 6 Then
MsgBox "Commande n° " & Me.num_com, " enregistrée", vbInformation, "Succès"
'on ferme le formulaire car il est enregistré automatiquement
DoCmd.Close
'sinon on supprime les données et on ferme le formulaire afin de ne pas garder l'enregistrement en cours
Else