Probleme avec SI

[arro]

Bonsoir à tous j'ai un petit problème sur ma fonction SI en fait j arrive pas à l'insérer dans ma fonction.
Après avoir consulté d'autre réponse sur le forum j'ai pas pu trouver la réponse à mon problème.

Voici mon code:

Private Sub Commande10_Click()
On Error GoTo Err_Commande10_Click
Dim stDocName As String

stDocName = "Req_Archivage"
DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Commande10_Click:
Exit Sub

Err_Commande10_Click:
MsgBox Err.Description
Resume Exit_Commande10_Click

End Sub


Actuellement ma commande archive les données de ma base de donnée source et les transfert sur ma base de donnée archive et les supprimes.
Mais j'aimerai mettre une fonction SI pour dire que si la case réalise = oui alors on peux les supprimées sinon mettre un message d'erreur avec du texte.

(Désolé si je m'exprime un peu mal mais je suis débutant sur accès et sur les forums)

Merci d'avance si quelqu'un peut aiguiller
C'est pour mon travail et je suis sous accès 2003.

 

[Compte Supprimé 979]

Re : Probleme avec SI

Salut Arro,

Pas trop bien compris la question, mais je vais essayer d'y répondre quand même.
Je suppose que ton bouton est dans un formulaire et que celui-ci à une case à cocher "réalise"

Private Sub Commande10_Click()
On Error GoTo Err_Commande10_Click
Dim stDocName As String

[COLOR=blue][B]If Me.CaseACocher.Value = True then[/B][/COLOR]
[COLOR=blue][B]  MsgBox "Impossible d'archiver"[/B][/COLOR]
[COLOR=blue][B]  Exit Sub[/B][/COLOR]
[COLOR=blue][B]Endif[/B][/COLOR]

stDocName = "Req_Archivage"
DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Commande10_Click:
Exit Sub

Err_Commande10_Click:
MsgBox Err.Description
Resume Exit_Commande10_Click

End Sub

A+