Discussion :

[joe370]

bonjour je dispose d'un msgbox de type vbOKCancel et je voudrai qu'en fonction du clic (ok ou annuler), ce ne soit pas la meme partie du code qui s'execute
quel est le code qui me permet de faire cela??
merci

[pc75]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Reponse = msgbox(......, vbYesNo,....
if Reponse = vbYes then
   .... Action 1
else
   .... Action 2
end if

[joe370]

voici mon code mais il ne l'effectue pas d'ou vient l'erreur svp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
MsgBox "Votre connexion est-elle activée", vbYesNo
 
If Reponse = vbYes Then
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL "delete * from Client"
    DoCmd.RunSQL "delete * from Affiliation"
    DoCmd.RunSQL "delete * from Secteur"
    DoCmd.RunSQL "delete * from SecteurTechnique"
    DoCmd.RunSQL "delete * from ModeDeReglement"
    DoCmd.RunSQL "delete * from Panne"
    DoCmd.RunSQL "delete * from Potentiel"
    DoCmd.RunSQL "delete * from Produits"
    DoCmd.RunSQL "delete * from Symptome"
    DoCmd.RunSQL "delete * from Televente"
 
    DoCmd.TransferText acImportFixed, "ImportationClient", "Client", "D:\Data\projet fdv decs\fichier fdv\table_clients.txt"
    DoCmd.TransferText acImportFixed, "ImportationAffiliation", "Affiliation", "D:\Data\projet fdv decs\fichier fdv\table_centrales.txt"
    DoCmd.TransferText acImportFixed, "ImportationSecteur", "Secteur", "D:\Data\projet fdv decs\fichier fdv\table_secteurs.txt"
    DoCmd.TransferText acImportFixed, "ImportationSecteurTechnique", "SecteurTechnique", "D:\Data\projet fdv decs\fichier fdv\table_techniciens.txt"
    DoCmd.TransferText acImportFixed, "ImportationModeDeReglement", "ModeDeReglement", "D:\Data\projet fdv decs\fichier fdv\table_mdr.txt"
    DoCmd.TransferText acImportFixed, "ImportationPanne", "Panne", "D:\Data\projet fdv decs\fichier fdv\table_pannes.txt"
    DoCmd.TransferText acImportFixed, "ImportationPotentiel", "Potentiel", "D:\Data\projet fdv decs\fichier fdv\table_potentiels.txt"
    DoCmd.TransferText acImportFixed, "ImportationProduit", "Produits", "D:\Data\projet fdv decs\fichier fdv\table_produits.txt"
    DoCmd.TransferText acImportFixed, "ImportationSymptome", "Symptome", "D:\Data\projet fdv decs\fichier fdv\table_symptomes.txt"
    DoCmd.TransferText acImportFixed, "ImportationTelevente", "Televente", "D:\Data\projet fdv decs\fichier fdv\table_televente.txt"
 
    DoCmd.SetWarnings True
 
End If
End Function

[Invité]

Bonjour

Tu n'as pas suivi l'exemple que t'a donné PC75.

Starec

[titof90]

salut,

exemple de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim test As Integer
test = MsgBox("que voulez-vous faire", vbOKCancel + vbQuestion)
If test = vbOK Then
toncode
else
autre code
end if

ah j'ai mis le message trop tard désolé

PS: si quelqu'un pouvait m'aider sur mon envoi de mail avec lotus note je m'arrache les cheveux

[joe370]

desolé je n'avait pas vu la variable devant le msgbox

[joe370]

peut-on avoir un msgbox du style "operation en cours" pendant toute la durée du traitement??

[Invité]

Non

C'est à toi de la faire avec un formulaire, la msgbox attend une action avant que le processus se poursuive.

Starec