Option Compare Database
Option Explicit
Sub PDFpagecount()
Dim objPDF As AcroPDDoc, FN As String
Dim objDoc As AcroApp
Dim rs As Recordset, doc As String
Set rs = CurrentDb.OpenRecordset("PDF")
Set objDoc = "iprosystemadmin80.pdf"
rs!Field2 = objPDF.GetNumPages
End Sub
