Rappel public sub VBA

**Mouyou08** · 18/01/2022, 12h45

Bonjour,

Je voudrais appeler une séquence de ma public sub dans un autre formulaire afin de faire juste 1 click pour une séquence d'action.

Voici ma public sub :

Code :

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

1
2
3
4
5
6
Public Sub deposit_sign_Click()
Me.Sign.Picture = "\\xxx\LIR\xxx\Project_Access\signhere\sign.gif"
Me.Sign.Visible = True
Me.signlir.Picture = "\\xxx\LIR\xxx\Project_Access\signhere\signlir.gif"
Me.signlir.Visible = True
end sub

Que je voudrais appeler après DoCmd.OpenReport "Sign_1", acViewReport afin d'éviter de rappuyer sur un bouton pour déposer les signatures dans le report.

Merci d'avance

**User** · 18/01/2022, 18h39

Bonjour,

Comme précisé dans cette discussion , il faut que le formulaire en question soit ouvert :

Code :

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

1
2
3
4
 
DoCmd.OpenReport "Sign_1", acViewReport
Forms!tonFormulaire.Form.deposit_sign_Click
' Form_tonFormulaire.deposit_sign_Click ' 2eme possibilité

**Mouyou08** · 19/01/2022, 14h44

Bonjour,

J'ai essayé de l'appeler en utilisant votre tutoriel sauf que c'est pour appeler un Public Sub dans un Report, j'ai donc essayé de taper :

#Reports!Report_Sign_1.Report.deposit_sign_Click
#Report!Report_Sign_1.Report.deposit_sign_Click 2ème test

Cependant, aucune des syntaxe n'est reconnu par VBA...
Avez-vous une idée ?

Merci

**User** · 19/01/2022, 14h54

Dans ce cas, il faudrait essayer d'exécuter votre procédure sur l'événement ouverture de l'état :

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
deposit_sign_Click
End sub

**Mouyou08** · 19/01/2022, 16h30

Access me retourne un code d'erreur car il ne reconnait pas la commande voici mon code pour le form et le report afin de mieux comprendre.

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Code pour Form : 
#Private Sub Command25_Click()   ' Clean page
 Doc.value = ""
    Unit_Supplier.value = ""
    Product.value = ""
    Product_Description.value = ""
    Qty.value = ""
    Date.value = ""
    name2.value = ""
    Me.lirsign.Object.Ink.DeleteStrokes
    Me.usersign.Object.Ink.DeleteStrokes
    Form.Refresh
End Sub
 
Private Sub Command5_Click()
Dim objInk As MSINKAUTLib.InkPicture    ' declaration Inkpicture
Dim byt() As Byte
Dim filen As String
filen = "\\xxx\LIR\xxx\Project_Access\signhere\sign.gif"  ' Where is stock the sign
Set objInk = Me.usersign.Object
byt = objInk.Ink.Save(2)
Open filen For Binary As #1
Put #1, , byt
Close #1
filen = "\\xxx\LIR\xxx\Project_Access\signhere\signlir.gif"
Set objInk = Me.lirsign.Object
byt = objInk.Ink.Save(2)
Open filen For Binary As #2
Put #2, , byt
Close #2
 
DoCmd.OpenReport "Sign_1", acViewReport   ' Open report in view report
End Sub
Private Sub Report_Open(Cancel As Integer)
 
deposit_sign_Click
 
Code reports : 
Option Compare Database
 
Public Sub deposit_sign_Click()
Me.Sign.Picture = "\\xxx\LIR\xxx\Project_Access\signhere\sign.gif" ' take picture and deposit on report
Me.Sign.Visible = True
Me.signlir.Picture = "\\xxx\LIR\xxx\Project_Access\signhere\signlir.gif"
Me.signlir.Visible = True
 
End Sub
 
 
Function FileExist(FileFullPath As String) As Boolean
    Dim value As Boolean
    value = False
    If Dir(FileFullPath) <> "" Then
        value = True
    End If
    FileExist = value
    End Function
 
    Private Sub Command3_Click()
 
    Dim fileName As String, fldrPath As String, filePath As String
    Dim myDate As Date
    Dim myDouble As Double
    Dim sDate As String
    Dim sTime As String
    Dim sName As String
    Dim sObject As String
    Dim answer As Integer
 
    myDouble = CDbl(Now())  ' take the current date and time, it is a double value
    myDate = CDate(myDouble) 'extract the date from it
 
    ' MsgBox "The Double value " & myDouble & " represents the Date value " & myDate & "!"
    sDate = Format(Date, "yyyymmdd")
    sTime = Format(Time, "hhmmss") 'If you want a 1 minute interval on saving remove the ss from the strin (seconds)
    ' MsgBox sDate + " " + sTime
    sObject = Unit_Supplier.value 'Retrieve information report
    sName = name2.value
    sName = Replace(sName, " ", "_")
 
    fileName = sDate + "_" + sTime + "_ROE-F-PSS-0015I-NL_Uitgave_Documenten_" + sObject + "_" + sName 'filename for PDF file you can add more variables*
    fldrPath = "\\xxx\LIR\Uitgave"       'folder path where pdf file will be saved *
 
    filePath = fldrPath & "\" & fileName & ".pdf"
 
    'check if file already exists
    If FileExist(filePath) Then
        answer = MsgBox(prompt:="PDF file already exists: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
                        "Would you like to replace existing file?", Buttons:=vbYesNo, Title:="Existing PDF File")
        If answer = vbNo Then Exit Sub
    End If
 
    On Error GoTo invalidFolderPath
    DoCmd.OutputTo ObjectType:=acOutputReport, objectName:=Me.Name, outputformat:=acFormatPDF, outputFile:=filePath
 
    'MsgBox prompt:="PDF File exported to: " & vbNewLine & filePath, buttons:=vbInformation, Title:="Report Exported as PDF"
    Exit Sub
 
invalidFolderPath:
    MsgBox prompt:="Error: Invalid folder path. Please update code.", Buttons:=vbCritical
 
End Sub
 
End Sub

J'ai pensé sinon à mettre un click automatique sur mon bouton pour le déclencher.

Merci pour vos conseils

**User** · 19/01/2022, 16h37

Il faut mettre le code que je vous ai donné dans le module de l'état :

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
deposit_sign_Click
End sub

**Mouyou08** · 21/01/2022, 09h59

Merci beaucoup ça fonctionne parfaitement.

Cependant j'ai essayé de reproduire votre méthode pour activé aussi automatiquement le bouton d'export en pdf.

En mettant bien évidemment en Public Sub mon boutton et en écrivant :

Code :

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

1
2
3
Private Sub Report_pdf(Cancel As Integer)
Export_pdf_Click
End Sub

Mais rien ne se passe, est-ce normal ?

Merci

**User** · 21/01/2022, 10h14

Bonjour,

Ou se trouve exactement la procédure Export_pdf_Click ?

**Mouyou08** · 21/01/2022, 10h18

Bonjour,

La procédure Export_pdf_Click est situé dans le même Module d'état que deposit_sign_Click

Je peux vous montrer le code si vous préférez.

Voici mon code :

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
66
67
68
69
70
 
Public Sub deposit_sign_Click()
Me.Sign.Picture = "\\xxx\LIR\xxx\Project_Access\signhere\sign.gif" ' take picture and deposit on report
Me.Sign.Visible = True
Me.signlir.Picture = "\\xxx\LIR\xxx\Project_Access\signhere\signlir.gif"
Me.signlir.Visible = True
End Sub
Function FileExist(FileFullPath As String) As Boolean
    Dim value As Boolean
    value = False
    If Dir(FileFullPath) <> "" Then
        value = True
    End If
    FileExist = value
    End Function
 
 
Public Sub Export_pdf_Click()
 
Dim fileName As String, fldrPath As String, filePath As String
    Dim myDate As Date
    Dim myDouble As Double
    Dim sDate As String
    Dim sTime As String
    Dim sName As String
    Dim sObject As String
    Dim answer As Integer
 
    myDouble = CDbl(Now())  ' take the current date and time, it is a double value
    myDate = CDate(myDouble) 'extract the date from it
     sDate = Format(Date, "yyyymmdd")
    ' MsgBox "The Double value " & myDouble & " represents the Date value " & myDate & "!"
    sDate = Format(Date, "yyyymmdd")
    sTime = Format(Time, "hhmmss") 'If you want a 1 minute interval on saving remove the ss from the strin (seconds)
    ' MsgBox sDate + " " + sTime
    sObject = Unit_Supplier.value 'Retrieve information report
    sName = name2.value
    sName = Replace(sName, " ", "_")
 
    fileName = sDate + "_" + sTime + "_ROE-F-PSS-0015I-NL_Uitgave_Documenten_" + sObject + "_" + sName 'filename for PDF file you can add more variables*
    fldrPath = "\\xxx\LIR\Uitgave"       'folder path where pdf file will be saved *
 
    filePath = fldrPath & "\" & fileName & ".pdf"
 
    'check if file already exists
    If FileExist(filePath) Then
        answer = MsgBox(prompt:="PDF file already exists: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
                        "Would you like to replace existing file?", Buttons:=vbYesNo, Title:="Existing PDF File")
        If answer = vbNo Then Exit Sub
    End If
 
    On Error GoTo invalidFolderPath
    DoCmd.OutputTo ObjectType:=acOutputReport, objectName:=Me.Name, outputformat:=acFormatPDF, outputFile:=filePath
 
    'MsgBox prompt:="PDF File exported to: " & vbNewLine & filePath, buttons:=vbInformation, Title:="Report Exported as PDF"
    Exit Sub
 
invalidFolderPath:
    MsgBox prompt:="Error: Invalid folder path. Please update code.", Buttons:=vbCritical
 
End Sub
 
 
Private Sub Report_Open(Cancel As Integer) 
deposit_sign_Click
End Sub
 
Private Sub Report_pdf(Cancel As Integer) 
Export_pdf_Click
End Sub

**User** · 21/01/2022, 10h24

Oui mais il faut savoir que vous ne pouvez pas toujours faire la même chose que dans un formulaire.

**User** · 21/01/2022, 10h29

Ah ok, je n'avais pas vu. Si vous souhaitez activer le bouton export sur ouverture de l'état, il faut utiliser la même procédure événementielle :

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer) 
deposit_sign_Click
Export_pdf_Click
End Sub

**Mouyou08** · 21/01/2022, 10h32

Merci de votre réponse, j'essaie ça dans les plus brefs délais.

**Mouyou08** · 21/01/2022, 10h57

Lorsque j'ajoute Export_pdf_Click à l'instruction "Private Sub Report_Open" j'obtiens le code d'erreur suivant :

- Error 2424 : il ne reconnait pas la commande

Code :

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

 sDate = Format(Date, "yyyymmdd")

Lorsque je retire Export_pdf_Click de l'instruction et que je la lance manuellement en cliquant avec le boutton aucun soucis.

**User** · 21/01/2022, 11h05

A vrai dire, je ne vois pas trop, la fonction Date n'est peut-être pas reconnue.
Peut-être essayer avec les parenthèses :

Code VBA :

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

sDate = Format(Date(), "yyyymmdd")

**Mouyou08** · 21/01/2022, 11h23

Je ne vois pas pourquoi elle n'est pas reconnue, j'ai déjà essayé d'ajouter "()" à Date et lorsque je veux sauvegarder "VBA" me supprime automatiquement les parenthèses.

Je vais essayer de trouver une autre solution pour activer automatiquement le boutton.

Merci de votre aide.

**User** · 21/01/2022, 11h32

Et la fonction Format, elle est reconnue. Voir aussi si tu n'as pas de conflits au niveau des noms (champ nommé "Date" ou autre) ?

**Mouyou08** · 21/01/2022, 13h26

J'ai regardé et je n'ai pas trouvé l'erreur qui cause le problème.

Sinon puis-je en VBA codé un click automatique sur l'écran 5 seconde après l'ouverture de l'état par exemple

Rappel public sub VBA [AC-365]

VBA Access

Discussions similaires

Partager

Partager