Do I need a vba-access code to insert digital signature (digital certificate) in a report, Someone help!? (1 Viewer)

[clebergyyn]

Good morning Good Night! I need to develop a code in Access-vba to sign a report (medical prescription) with A1 digital certificate (Digital signature with certificate). Each user (doctor) will have their digital certificate installed on windows to digitally sign the report. Can anyone help?

 

[theDBguy]

Hi. Just thinking out loud, but I wonder if that would require an ActiveX control, if one exists.

Sent from phone...

 

[clebergyyn]

I thought about this, ActiveX control, but I also have this doubt. I've seen people talk about microsoft's CAPICOM dll, I couldn't install it.

 

[The_Doc_Man]

A digital signature usually involves encryption code where you pass in a key and a file to get a digital hash. This topic has come up before. There are some threads that MAY have useful links.

Digital signatures

Here I am again, sorry folks, picking your brains ... I was looking into getting my code signed, and found a few CA vendors like Comodo and DigiCert and was considering signing on the dotted line when I found this...

www.access-programmers.co.uk

Signature object (Office)

Office VBA reference topic

docs.microsoft.com

(The above link came from this thread

Task Details - Electronic Signatures

Hey, newbie here. I've used access before but a while ago. I've brought some access how to books but I can't find the answers I need. Even on google! So I'm not sure its possible but help from you guys would be great. So I'm working on a database created by my manager. Its used for task...

www.access-programmers.co.uk

Changing a query Dynamically

Good Day All, This is my existing query created manually and stored in the query pane:SELECT Names.Fname, Names.Lname FROM [Names]; I want this query to change to this, using VBA code, when I press a button: SELECT Names.Fname, Names.Lname FROM [Names] WHERE (((Names.Fname)="Manilla"))...

www.access-programmers.co.uk

 

[bastanu]

Cross-posted with some answers here: https://stackoverflow.com/questions...a-does?noredirect=1#comment126902267_71773887 and here: https://www.accessforums.net/showthread.php?t=85751

 

[June7]

And https://www.accessforums.net/showthread.php?t=85751

 

[arnelgp]

in short, we don't know what is that!?
maybe you can ask your vendor if it can be manipulated through VBA (password login and signing docs, etc.).

 

[sonic8]

I need to develop a code in Access-vba to sign a report (medical prescription) with A1 digital certificate (Digital signature with certificate).

I don't think you want to sign a report. Rather you should export the report to PDF an then sign the resulting PDF document.
There are a couple of promising result to this search: https://www.google.com/search?q=VBA+sign+pdf

 

[clebergyyn]

I appreciate the answers here, but check all the links here and comments, nenhum example atendeu. I saw an example of WORD (https://docs.microsoft.com/en-us/office/vba/api/office.signature) and it is similar to the example I need, but it doesn't work in Access-vba. I'm different.

 

[June7]

An Access report is not an independent file. It is a dynamically rendered object within Access application. As already noted, likely best option is export to PDF and somehow modify that file to accommodate digital signature. Another option is merging Access data with Word document and applying signature there.

 

[clebergyyn]

If you have a function to sign a pdf, by access-vba, it also helps me.

 

[June7]

Did you explore the link provided by sonic8? I did and it led to https://payrollpedia.org/tag/vba-code-to-add-digital-signature-on-pdf/

However, this will probably require having Adobe Acrobat Pro (at least) version of Acrobat installed. Just having Reader is not enough.

 

[clebergyyn]

Did you explore the link provided by sonic8? I did and it led to https://payrollpedia.org/tag/vba-code-to-add-digital-signature-on-pdf/

However, this will probably require having Adobe Acrobat Pro (at least) version of Acrobat installed. Just having Reader is not enough.

Thanks, but Excel vba is different from Access vba. The function gives an error in this code: "Dim pdfPDDoc As New AcroPDDoc". It would be great for this function to work in Access vba.

 

[sonic8]

Excel vba is different from Access vba.

It isn't. VBA is the same in all VBA enabled application. Only the object libraries, which are available by default, differ.
The task of signing a PDF file requires external libraries containing automation objects supporting this task (e.g. AcroPDDoc in this case). You need to install such a library. I believe the example from the link uses Adobe's Acrobat SDK.

 

[June7]

Not that much different. Only thing I couldn't get to work in Excel VBA that worked in Access VBA was Nz() function. Even a query object that used Nz() had to be modified. Maybe I didn't have a necessary library referenced in Excel.

I have used in Access VBA:

'Relies on the Adobe Acrobat 6.0 Type Library
Dim pdfDoc As Acrobat.AcroPDDoc
Set pdfDoc = New Acrobat.AcroPDDoc
Dim pdfDoc2 As Acrobat.AcroPDDoc
Set pdfDoc2 = New Acrobat.AcroPDDoc

and

Dim objCAcroPDDocDestination As Object
Dim objCAcroPDDocSource As Object
Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")

I had Adobe Acrobat Pro installed when I developed that code. Don't have any more and code won't run.

 

[clebergyyn]

Not that much different. Only thing I couldn't get to work in Excel VBA that worked in Access VBA was Nz() function. Even a query object that used Nz() had to be modified. Maybe I didn't have a necessary library referenced in Excel.

I have used in Access VBA:

'Relies on the Adobe Acrobat 6.0 Type Library
Dim pdfDoc As Acrobat.AcroPDDoc
Set pdfDoc = New Acrobat.AcroPDDoc
Dim pdfDoc2 As Acrobat.AcroPDDoc
Set pdfDoc2 = New Acrobat.AcroPDDoc

and

Dim objCAcroPDDocDestination As Object
Dim objCAcroPDDocSource As Object
Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")

I had Adobe Acrobat Pro installed when I developed that code. Don't have any more and code won't run.

Thanks. Don't have the complete code in vba-access? To insert digital signature in pdf, by Access-vba

 

[June7]

No, I do not. I have done other operations with PDF objects (merge, extract) but no signature. The Excel VBA should work in Access. Unfortunately, I cannot test.

 

[clebergyyn]

No, I do not. I have done other operations with PDF objects (merge, extract) but no signature. The Excel VBA should work in Access. Unfortunately, I cannot test.

Good morning Good Night! Can someone help me to implement this code below, applying the suggestion of "June7" above, for this code to work in Vba-Access. Because this code was made for Excel, and it doesn't work in Access-vba.

Sub SignPDF()
On Error GoTo Err_Handler
Dim pdfPDDoc As New AcroPDDoc, oJS As Object, oSign As Object, oPpklite As Object, oFields As Object
Dim strFName1 As String, strFName2 As String, strSignFName As String
Dim oSignInfo As Object, strSecInfo As String
Dim oParam As Parameter
    
   strSignFName = "C:\mySignature.pfx"
   strFName1 = "C:\myPdf.pdf"
   strFName2 = "C:\myPdf-signed.pdf"

   Set pdfPDDoc = CreateObject("AcroExch.PDDoc")
    
   If pdfPDDoc.Open(strFName1) Then
      Set oJS = pdfPDDoc.GetJSObject
      
      Set oFields = oJS.AddField("SignatureField", "signature", 0, Array(350, 800, 500, 750))
      Set oSign = oJS.GetField("SignatureField")
      
      Set oPpklite = oJS.security.getHandler("Adobe.PPKLite", True)
      oPpklite.login "{'myPasswd', '" & strSignFName & "'}"
      oSign.signatureSign oPpklite
      
      pdfPDDoc.Save 1, strFName2
      oPpklite.logout
   End If
  
Exit_Proc:
    Exit Sub
        
Err_Handler:
    MsgBox "In test" & vbCrLf & Err.Number & "--" & Err.Description
    Resume Exit_Proc
End Sub

 

[GPGeorge]

"...Because this code was made for Excel, and it doesn't work in Access-vba...."

Sometimes we can guess what it means when someone says, "...it doesn't work...", but most of the time, we are less successful. The solution for that problem is for you to explain what it actually means, to avoid the guesswork.

 

[clebergyyn]

"...Because this code was made for Excel, and it doesn't work in Access-vba...."

Sometimes we can guess what it means when someone says, "...it doesn't work...", but most of the time, we are less successful. The solution for that problem is for you to explain what it actually means, to avoid the guesswork.

...is an Access-vba code to "digitally sign" (with Official Digital Certificate) a pdf file. This code for Excel-Vba that I put helps as it has similarity with Access-vba. First we install a digital signature (digital certificate) in Windows. Then we use it to sign documents as pdf. The code I need is for this. Hope someone can help. Thank you very much in advance.