Discussion :

[Guy FALESSE]

Bonjour,

J'exécute une fonction avec un if...end if, le problème est que après cet end if, la fonction continue malgré tout.

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
Dim maBD As Database, rstRevenir As Recordset, NewDate, chem As String
    Dim TBD As String, rep As Integer, LeDrapeau As Boolean
    Set maBD = CurrentDb
    Set rstRevenir = maBD.OpenRecordset("Consultation", dbOpenDynaset)
    If rstRevenir!DateConsultation <> Date Then
        MsgBox "La date système a été changée," & vbLf & _
               "Vous devez donc la changer," & vbLf & _
               "à l'aide du logiciel prévu.", vbCritical + vbOKOnly, "Défaut date système"
        NewDate = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
        MsgBox ("") & NewDate
        chem = "C:\SVella\VellaTables" & DatePart("yyyy", Date) & ".mdb"
        MsgBox ("") & chem
        Forms!Acceuil!Texte50 = "Accueil en " & DatePart("yyyy", Date)
        '
        DétacherToutesLesTables     'on détache les tables déjà attachées
        '-------------------------
        TBD = "Microsoft Access"
        DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Adresses", "Adresses"
End If
'   Exit Sub
        If rstRevenir!DateConsultation = Date Then
            MsgBox "On ne doit pas changer pas la date sytème", vbInformation + vbOKOnly, "Date système"
            MsgBox "la date système est le: " & Format(Date, "dd mmmm yyyy")
            chem = "C:\SVella\VellaTables" & DatePart("yyyy", Date) & ".mdb"
            MsgBox ("") & chem
            LeDrapeau = False
            Forms!Acceuil!Texte50 = "Accueil en " & DatePart("yyyy", Date)
            DétacherToutesLesTables     'on détache les tables déjà attachées

donc, malgré que la 1ère condition soit finie, la fonction continue et exécute la 2ème condition.
Comment éviter cela.
Si je mets le exit sub, bien sûr, elle s'arrête, mais si je veux tester la 2ème condition, rien ne se passe à cause du exit sub.

Si quelqu'un avait la solution, cela m'arrangerait bien.:-)
D'avance merci.

@+

Guy FALESSE

[marot_r]

Le end if sert à fermer le if pas à mettre fin à ton code et donc tout le code après s'éxcute normalement.

Dans ton cas je pense que tu devrais écrire

Code :

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

1
2
3
4
5
If rstRevenir!DateConsultation <> Date Then
   'ici ton code
  else
   'ici le code pour rstRevenir!DateConsultation = Date 
end if

ou au pire

Code :

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

1
2
3
4
If rstRevenir!DateConsultation <> Date Then
   'ici ton code
   exit sub 'sort de la procédure en cours
end if

A+

[Guy FALESSE]

Salut Marit_r,

Merci pour ta réponse.
J'avais pourtant juré que j'avais employé le elseif.
certainement, mais pas dans le bon sens.
En tout, ça fonctionne.
Bonne soirée.
@+
Guy FALESSE

[Guy FALESSE]

Bonjour,

Dans cette fonction, je ne sais plus afficher la fenêtre qui permet le changement de date système comme cela fonctionnait hier, au lieu de la fenêtre, j'ai une icône dans la barre de tâche et je n'ai même plus le temps de cliquer dessus, la fonction continue avec la mauvaise année, bien sûr.
J'ai bien essayé de mettre un 1 après timedate.cpl,1, mais ça ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
 MsgBox "La date système a été changée," & vbLf & _
               "Vous devez donc la changer," & vbLf & _
               "à l'aide du logiciel prévu.", vbCritical + vbOKOnly, "Défaut date système"
        NewDate = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
        'MsgBox ("") & NewDate
        chem = "C:\SVella\VellaTables" & DatePart("yyyy", Date) & ".mdb"
        MsgBox ("") & chem

Comment faire, j'ai bien entendu besoin de pouvoir changer la date système.
La fonction date provoquant l'erreur "permission refusée" en Access 2013, en Access 2010, pas de problème.
D'avance merci,
@+
Guy FALESSE

[marot_r]

Je t'inviterai à créer une nouvelle discussion sur ce sujet.

Ajouter une question à un sujet "Résolu" a peu de chance d'obtenir une réponse ;-).

A+