IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Bloquer avec mon code


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Juin 2007
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Juin 2007
    Messages : 63
    Par défaut Bloquer avec mon code
    Bonjour à tous,

    Cela fait des heures que je planche sur mon problème et je n'ai toujours pas trouvé la solution.
    Voici mon problème je demande à l'utilisateur via une boite de dialogue la semaine (par exemple 33) et le mois (aout) pour lesquels il souhaite éditer les rapports d'analyse et cela marche.
    Par contre lorsque je crée une nouvelle boite de dialogue où il ne faut renseigné que le mois (j'ai fait un copié collé de la précédente pour ne laisser que les paramètres relatives au mois) cela ne fonctionne plus.
    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
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    Private Sub UserSub_Click()
    Me.Hide
    'On Error GoTo Fin
     
    Dim fs As Scripting.FileSystemObject
    Dim gpi As DAO.Database
    Dim req As DAO.Recordset
    Dim sql As String
    Set gpi = CurrentDb()
    'Set Printer = Application.Printers("CutePDF Writer")
    Mois = Split(Invite.Mois, ";")
    Set fs = New Scripting.FileSystemObject
    'If Not fs.FolderExists(CurrentProject.path & "\" & Invite.Mois) Then
    'fs.CreateFolder (CurrentProject.path & "\" & Invite.Mois)
     
     
    For i = 0 To UBound(Mois)
     
        Dim rs As Recordset
        Dim MaVille  As String
        Dim Monmois As String
        Dim MonRec As String
        Dim Condition As String
     
        If Not fs.FolderExists(CurrentProject.path & "\" & Mois(i)) Then
            fs.CreateFolder (CurrentProject.path & "\" & Mois(i))
        End If
        Condition = "[mois]='" & Invite.Mois & "'"
     
     
     
        Call ConvertReportToPDF("Liste_ville", Condition, , CurrentProject.path & "\" & Mois(i) & "\Resultats_Centre.pdf", False, False, 0, "", "", 0, 0)
        sql = "SELECT REC_CENTRE.Ville FROM REC_CENTRE GROUP BY Ville Order By Ville"
        Set rs = gpi.OpenRecordset(sql)
     
     
        While Not rs.EOF
     
            MaVille = rs.Fields(0)
            If Not fs.FolderExists(CurrentProject.path & "\" & Invite.Mois & "\" & sem(i) & "\" & MaVille) Then
                fs.CreateFolder (CurrentProject.path & "\" & Mois(i) & "\" & MaVille)
            End If
            MaSemaine = sem(i)
            Rep = CurrentProject.path & "\" & Mois(i) & "\" & MaVille
            Condition = "[Ville]='" & MaVille & "' And [mois]='" & Mois(i) & "'"
     
          Call ConvertReportToPDF("Liste_rec_centre", Condition, , Rep & "\Resultat_par_Rec.pdf", False, False, 0, "", "", 0, 0)
     
            sql2 = "SELECT REC_CENTRE.REC FROM REC_CENTRE WHERE REC_CENTRE.Ville = '" & MaVille & "' GROUP BY REC_CENTRE.REC ORDER BY REC_CENTRE.REC "
            Set rs2 = gpi.OpenRecordset(sql2)
     
            While Not rs2.EOF
                MonRec = rs2.Fields(0)
                Condition = "[Rec]='" & MonRec & "' And [mois]='" & Mois(i) & "'"
                Call ConvertReportToPDF("Liste_op_rec", Condition, , Rep & "\Resultats_OPs_Rec_" & MonRec & ".pdf", False, False, 0, "", "", 0, 0)
     
                rs2.MoveNext
            Wend
            rs.MoveNext
        Wend
    Next
    fin:
    Set fs = Nothing
    'Set Application.Printer = Nothing
    End Sub

    merci d'avance pour votre aide.

  2. #2
    Membre confirmé
    Inscrit en
    Juin 2007
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Juin 2007
    Messages : 63
    Par défaut problème de code
    C'est bon j'ai réussi à trouvé l'erreur (le nom d'un paramètre n'était pas bon)

    Actuellement, mon code permet d'éditer des rapports pour un mois donné, je voudrais qu'il soit possible de mettre plusieurs mois à la suite dans la boite de dialogue(par exemple :janvier, fevrier, mars) pour faire par exemple l'analyse au trimestre...


    Merci d'avance pour votre aide

  3. #3
    Membre Expert
    Inscrit en
    Août 2006
    Messages
    1 588
    Détails du profil
    Informations forums :
    Inscription : Août 2006
    Messages : 1 588
    Par défaut
    Créer une fonction séparer de l'événement UserSub_Click avec en paramètre le mois à éditer.
    Créer une zône de liste avec multisélection pour sélectionner les mois.
    Lire la sélection par une boucle et envoyer le mois à la fonction
    comme ceci
    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
     
    Private Sub UserSub_Click()
     Dim mois As String, v As Variant
     With Me!ZoneDeListe
      For Each v In .ItemsSelected
       mois = .ItemData(v)
       Call EditionMois(mois)
      Next mois
     End With
    End Sub
     
    Sub EditionMois(mois As String)
     Me.Hide
     '...... le code ......
     Set fs = Nothing
    End Sub

  4. #4
    Membre confirmé
    Inscrit en
    Juin 2007
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Juin 2007
    Messages : 63
    Par défaut probleme de cumul
    Bonjour,


    Merci pour ta réponse.
    Mais je n'ai pas très bien compris, ce code va me permettre de faire des analyse sur 2 date donnée (janvier et mars par exemple)?

    Et la zone de liste je dois la faire où?

Discussions similaires

  1. Probleme avec mon code : Comment changer de JPanel
    Par serialkilled dans le forum AWT/Swing
    Réponses: 1
    Dernier message: 17/12/2006, 10h13
  2. [Tableaux] probleme avec mon code pour faire un parseur !
    Par Joe-La-Boule dans le forum Langage
    Réponses: 10
    Dernier message: 11/10/2006, 15h35
  3. Problème avec mon code et avec gcc
    Par JavaAcro dans le forum Linux
    Réponses: 3
    Dernier message: 13/06/2006, 22h47
  4. [Conception] soucis avec mon code de recherche par un ou plusieurs critères
    Par jolipepage75 dans le forum PHP & Base de données
    Réponses: 18
    Dernier message: 11/06/2006, 02h59
  5. Serveur/Client UDP: comment envoyer un fichier avec mon code
    Par danje dans le forum Entrée/Sortie
    Réponses: 7
    Dernier message: 21/12/2005, 14h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo