Discussion :

[jossdu39]

Bonjour,

Je débute en VBA et je me retrouve avec un petit problème que je vous expose :

Voici le formulaire sur lequel je bloque :



Comme vous pouvez le voir il est très simple, deux barres textes où l'on indique les dates, et un bouton pour que l'on produise une fiche état que l'on peut voir ci-dessous :



Et voici le code VBA du bouton "Aperçus de l'état de synthèse"

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
Private Sub BtEtat_Click()
 
    'On Error GoTo Err_BtEtat_Click
    Dim tbl         As Recordset
    Dim stDocName   As String
    Dim NbCpt       As Long
 
    ' Vérification des dates :
    Set tbl = CurrentDb.OpenRecordset("Séance", DB_OPEN_DYNASET)
    If Not IsDate(DateMin) Then
        ' si pas de date, on prend la date de la première séance :
        tbl.MoveFirst
        DateMin = tbl("Date")
    End If
    If Not IsDate(DateMax) Then
        ' si pas de date, on prend la date de la dernière séance :
        tbl.MoveLast
        DateMax = tbl("Date")
    End If
    tbl.Close
 
    ' Lancement de l'état :
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
 
    stDocName = "EtatActiviteLabo"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_BtEtat_Click:
    Exit Sub
 
Err_BtEtat_Click:
    MsgBox Err.Description
    Resume Exit_BtEtat_Click
End Sub

Ma question est que je ne comprend pas du tout comment on passe de ce code la... à cette fiche état

[madefemere]

Bonsoir,

Qu'est-ce que tu ne comprends pas ?
Qui a rédigé le code que tu montres ?
As-tu des erreurs lorsque tu cliques sur le bouton ? l'état ne s'affiche pas ? les données ne sont pas correctes ? Il y a une erreur qui arrête l'exécution.

Pourquoi ces questions ? parce qu'on comprend le but du code, mais il y a des incohérences et des largesses inutiles dans son écriture.

C'est pourquoi je demande quel est ton but parce qu'il est mieux de comprendre le but avant de se lancer ans des explications.

Cordialement,

[jossdu39]

Désolé je me suis pris un peu la tête sur ce passage et j'ai donc peu détaillé mon problème (Ça m'a donnée une grosse migraine).
Je fais un retour plus complet dans la journée.