Reader X in Access 2007 form using VBA - GetPageNum

I have inserted the ActiveX control for the reader into a form in Access 2007. How do I determine which page of the PDF is currently being displayed? I understand that the method "GetPageNum" is for AcroExch.AVPageView, how do I get to the AV page view?
Thank you in advance!
Janet

I think you need either the SDK or Scripting forums
http://forums.adobe.com/community/acrobat

Similar Messages

BAPI Access from Excel using VBA

Im writing an excel macro (VBA) to call a bapi that populates a spreadsheet.
The user will then do some manipulation of the data collected, and then it must be sent back to sap.
The Bapi in question is BAPI_GET_USER_DETAIL
*" IMPORTING
*"     VALUE(USERNAME) LIKE BAPIBNAME-BAPIBNAME
*" EXPORTING
*"     VALUE(LOGONDATA) LIKE BAPILOGOND STRUCTURE BAPILOGOND
*"     VALUE(DEFAULTS) LIKE BAPIDEFAUL STRUCTURE BAPIDEFAUL
*"     VALUE(ADDRESS) LIKE BAPIADDR3 STRUCTURE BAPIADDR3
*"     VALUE(COMPANY) LIKE BAPIUSCOMP STRUCTURE BAPIUSCOMP
*"     VALUE(SNC) LIKE BAPISNCU STRUCTURE BAPISNCU
*"     VALUE(REF_USER) LIKE BAPIREFUS STRUCTURE BAPIREFUS
*"     VALUE(ALIAS) LIKE BAPIALIAS STRUCTURE BAPIALIAS
*" TABLES
*"      PARAMETER STRUCTURE BAPIPARAM OPTIONAL
*"      PROFILES STRUCTURE BAPIPROF OPTIONAL
*"      ACTIVITYGROUPS STRUCTURE BAPIAGR OPTIONAL
*"      RETURN STRUCTURE BAPIRET2
*"      ADDTEL STRUCTURE BAPIADTEL OPTIONAL
*"      ADDFAX STRUCTURE BAPIADFAX OPTIONAL
*"      ADDTTX STRUCTURE BAPIADTTX OPTIONAL
*"      ADDTLX STRUCTURE BAPIADTLX OPTIONAL
*"      ADDSMTP STRUCTURE BAPIADSMTP OPTIONAL
*"      ADDRML STRUCTURE BAPIADRML OPTIONAL
*"      ADDX400 STRUCTURE BAPIADX400 OPTIONAL
*"      ADDRFC STRUCTURE BAPIADRFC OPTIONAL
*"      ADDPRT STRUCTURE BAPIADPRT OPTIONAL
*"      ADDSSF STRUCTURE BAPIADSSF OPTIONAL
*"      ADDURI STRUCTURE BAPIADURI OPTIONAL
*"      ADDPAG STRUCTURE BAPIADPAG OPTIONAL
*"      ADDCOMREM STRUCTURE BAPICOMREM OPTIONAL
*"      GROUPS STRUCTURE BAPIGROUPS OPTIONAL
Ive Managed to glean from various sources on the internet, the various basics on doing a bapi call from VBA
Here is what i have so far.
Private Sub Fetch_User_details_Click()
'Take username in cell 2,2 and check to see it it exists.
'Display the First and Last name of the user
'Get list of all roles and their expiry dates and populate list
Dim R3, MyFunc, App As Object
Dim SEL_TAB, NAMETAB, TABENTRY, ROW As Object
Dim Result As Boolean
Dim iRow, iColumn, iStart, iStartRow As Integer
'RFC Paramaters
Dim Pusername As Variant
Dim Preturn As Variant
Dim copyFromc As String
'Clear Table Section of Spreadsheet
Worksheets("Sheet1").Select
For x = 9 To 200
For y = 1 To 8
    Worksheets("Sheet1").Cells(x, y).ClearContents
    Next y
Next x
'Create Server object and Setup the connection
Set R3 = CreateObject("SAP.Functions")
R3.Connection.System = ""
R3.Connection.client = ""
R3.Connection.user = ""
R3.Connection.Password = ""
R3.Connection.Language = "EN"
'Logon to SAP
If R3.Connection.logon(0, False) <> True Then
   Exit Sub
End If
'R3.loglevel = 9
'R3.logfilename = "c:guilog.txt"
Set MyFunc = R3.Add("BAPI_USER_GET_DETAIL")
copyFromc = Worksheets("Sheet1").Cells(3, 2).Text
Set Pusername = MyFunc.exports("USERNAME")
Pusername.Value = copyFromc
'Call the BAPI
If MyFunc.call Then
' ok now what ?
' Process the returned data into the spreadsheet
Else
    MsgBox ("Call returned FALSE")
End If
'Close Connection to SAP
R3.Connection.logoff
End Sub
To update the data ( User Role Assignements ) i will be using bapi BAPI_USER_ACTGROUPS_ASSIGN
*"*"Lokale Schnittstelle:
*" IMPORTING
*"     VALUE(USERNAME) LIKE BAPIBNAME-BAPIBNAME
*" TABLES
*"      ACTIVITYGROUPS STRUCTURE BAPIAGR
*"      RETURN STRUCTURE BAPIRET2
* Dieser Baustein ist gleichgestellt mit der Pflege eines Benutzers
* über die Pflegetransaktion, gepflegt werden die Felder, für die die
* Pflege erlaubt ist
I need help deciphering the data received from the bapi and then repackaging it using VBA.
I know writing this in ABAP would take less than 30 mins, but that is not an option for me.

Ok, Ive made some headway
I can now Read all the data i need from SAP
Now comes the bit to write it back again. Will Update when i have a solution
Private Sub copydata_Click()
Dim x1 As Integer, x2 As Integer
'copy all data from "Copy From" to "Copy To"
'first determine how many rows contain roles
'before copying the roles, check that the destination user has no roles assigned
If Cells(9, 6).Text <> "" Then
   MsgBox ("Error. Destination User already has Roles assigned.")
   Exit Sub
End If
For x1 = 0 To 1000
   If Cells(9 + x1, 1).Text = "" Then
     Exit For
   End If
Next
Worksheets("Sheet1").Range(Cells(9, 1), Cells(9 + x1 - 1, 4)).Copy _
   Destination:=Worksheets("Sheet1").Range(Cells(9, 6), Cells(9 + x1, 9))
For x2 = 1 To x1
Worksheets("Sheet1").Cells(9 + x2 - 1, 8).Value = Date
Next
End Sub
Sub Mail_small_Text_Outlook()
' Is working in Office 2000-2007
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    strbody = "User " & Worksheets("Sheet1").Cells(3, 7).Text & _
              " Has Been Moddelled off of User " & _
                Worksheets("Sheet1").Cells(3, 2).Text & " in system " & _
                Worksheets("Connection").Cells(1, 2).Text & vbNewLine & vbNewLine & _
              "Please Adjust Mitigating Controls Accordingly"
    On Error Resume Next
    With OutMail
        .To = Worksheets("Connection").Cells(10, 2).Text
        .CC = ""
        .BCC = ""
        .Subject = "User Modelled"
        .Body = strbody
        .Send   'or use .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
Private Sub Fetch_CopyTo_User_Click()
'Take username in cell 3,7 and check to see it it exists.
'Display the First and Last name of the user
'Get list of all roles and their expiry dates and populate list
Dim R3, MyFunc, App As Object
Dim SEL_TAB, NAMETAB, TABENTRY, ROW As Object
Dim Result As Boolean
Dim iRow, iColumn, iStart, iStartRow As Integer
'RFC Paramaters
Dim Pusername As Object
Dim PAddress As Object
Dim PTable As Object
Dim Preturn As Object
Dim copyFromc As String
'Clear Table Section of Spreadsheet
Worksheets("Sheet1").Cells(5, 8).ClearContents
Worksheets("Sheet1").Cells(6, 8).ClearContents
'Create Server object and Setup the connection
Set R3 = CreateObject("SAP.Functions")
R3.Connection.System = Worksheets("Connection").Cells(1, 2).Text
R3.Connection.SystemNumber = Worksheets("Connection").Cells(2, 2).Text
R3.Connection.Destination = Worksheets("Connection").Cells(3, 2).Text
R3.Connection.HostName = Worksheets("Connection").Cells(4, 2).Text
R3.Connection.client = Worksheets("Connection").Cells(5, 2).Text
R3.Connection.user = Worksheets("Connection").Cells(6, 2).Text
R3.Connection.Password = Worksheets("Connection").Cells(7, 2).Text
R3.Connection.Language = Worksheets("Connection").Cells(8, 2).Text
'Logon to SAP
If R3.Connection.Logon(0, -1) <> True Then
   MsgBox ("We Had a Logon Error")
   Exit Sub
End If
'R3.loglevel = 9
'R3.logfilename = "c:\guilog.txt"
Set MyFunc = R3.Add("BAPI_USER_GET_DETAIL")
Set Pusername = MyFunc.exports("USERNAME")
Set PAddress = MyFunc.imports("ADDRESS")
Set Preturn = MyFunc.tables("RETURN")
Set PTable = MyFunc.tables("ACTIVITYGROUPS")
Pusername.Value = Worksheets("Sheet1").Cells(3, 7).Text
'Call the BAPI
If MyFunc.call Then
   Dim xxx As String
   Worksheets("Sheet1").Cells(5, 7).Value = PAddress.Value("FIRSTNAME")
   Worksheets("Sheet1").Cells(6, 7).Value = PAddress.Value("LASTNAME")
'Get Assigned Roles
   Dim datarec As Object
   Dim datafld As Object
   x = 9
   For Each datarec In PTable.Rows
     Worksheets("Sheet1").Cells(x, 6).Value = datarec("AGR_NAME")
     Worksheets("Sheet1").Cells(x, 7).Value = datarec("AGR_TEXT")
     Worksheets("Sheet1").Cells(x, 8).Value = datarec("FROM_DAT")
     Worksheets("Sheet1").Cells(x, 9).Value = datarec("TO_DAT")
     x = x + 1
   Next
   copydata.Enabled = True
Else
    MsgBox ("Error Calling Function - Probably Authorizations")
End If
'Close Connection to SAP
R3.Connection.logoff
End Sub
Private Sub Fetch_User_details_Click()
'Take username in cell 3,2 and check to see it it exists.
'Display the First and Last name of the user
'Get list of all roles and their expiry dates and populate list
Dim R3, MyFunc, App As Object
Dim SEL_TAB, NAMETAB, TABENTRY, ROW As Object
Dim Result As Boolean
Dim iRow, iColumn, iStart, iStartRow As Integer
'RFC Paramaters
Dim Pusername As Object
Dim PAddress As Object
Dim PTable As Object
Dim Preturn As Object
Dim copyFromc As String
'Clear Table Section and other areas of Spreadsheet
Worksheets("Sheet1").Select
For x = 9 To 1000
For y = 1 To 9
    Worksheets("Sheet1").Cells(x, y).ClearContents
    Next y
Next x
Worksheets("Sheet1").Cells(5, 2).ClearContents
Worksheets("Sheet1").Cells(6, 2).ClearContents
Worksheets("Sheet1").Cells(5, 7).ClearContents
Worksheets("Sheet1").Cells(6, 7).ClearContents
copydata.Enabled = False
'Create Server object and Setup the connection
Set R3 = CreateObject("SAP.Functions")
R3.Connection.System = Worksheets("Connection").Cells(1, 2).Text
R3.Connection.SystemNumber = Worksheets("Connection").Cells(2, 2).Text
R3.Connection.Destination = Worksheets("Connection").Cells(3, 2).Text
R3.Connection.HostName = Worksheets("Connection").Cells(4, 2).Text
R3.Connection.client = Worksheets("Connection").Cells(5, 2).Text
R3.Connection.user = Worksheets("Connection").Cells(6, 2).Text
R3.Connection.Password = Worksheets("Connection").Cells(7, 2).Text
R3.Connection.Language = Worksheets("Connection").Cells(8, 2).Text
'Logon to SAP
If R3.Connection.Logon(0, -1) <> True Then
   MsgBox ("We Had a Logon Error")
   Exit Sub
End If
'R3.loglevel = 9
'R3.logfilename = "c:\guilog.txt"
Set MyFunc = R3.Add("BAPI_USER_GET_DETAIL")
Set Pusername = MyFunc.exports("USERNAME")
Set PAddress = MyFunc.imports("ADDRESS")
Set Preturn = MyFunc.tables("RETURN")
Set PTable = MyFunc.tables("ACTIVITYGROUPS")
Pusername.Value = Worksheets("Sheet1").Cells(3, 2).Text
'Call the BAPI
If MyFunc.call Then
   Dim xxx As String
   Worksheets("Sheet1").Cells(5, 2).Value = PAddress.Value("FIRSTNAME")
   Worksheets("Sheet1").Cells(6, 2).Value = PAddress.Value("LASTNAME")
'Get Assigned Roles
   Dim datarec As Object
   Dim datafld As Object
   x = 9
   For Each datarec In PTable.Rows
     Worksheets("Sheet1").Cells(x, 1).Value = datarec("AGR_NAME")
     Worksheets("Sheet1").Cells(x, 2).Value = datarec("AGR_TEXT")
     Worksheets("Sheet1").Cells(x, 3).Value = datarec("FROM_DAT")
     Worksheets("Sheet1").Cells(x, 4).Value = datarec("TO_DAT")
     x = x + 1
   Next
Else
    MsgBox ("Error Calling Function - Probably Authorizations")
End If
'Close Connection to SAP
R3.Connection.logoff
End Sub
Private Sub UpdateSap_Click()
End Sub

Is there a way to Update and SaveAs, an XFA form using VBA or similar ?

All:
Need help to auto-fill and auto-save PDFs using VBA or some other means.
I have created an XFA form using LiveCycle ES ( v8 ) with a few fields.
What I need to do is repeat these steps below for 200+ PDF forms
Open the blank PDF form
Update 3 fields
Save the PDF with a new name
My Excel VBA code so far ( ** Copied from another post ) where dFile = "C:\temp.pdf" and dAccount = "Any Account"
Sub rxOpenPDF_UpdateFields(dFile, dAccount )
    Dim pdfApp As Acrobat.AcroApp, pdfPDDoc As Acrobat.AcroPDDoc, jso As Object
    Dim str1$, bolOpen As Boolean, strFile$
    Set pdfApp = CreateObject("AcroExch.App")
    Set pdfPDDoc = CreateObject("AcroExch.PDDoc")
    bolOpen = pdfPDDoc.Open(dFile)
    Set jso = pdfPDDoc.GetJSObject
    str1 = jso.getfield("Account_Name").Value ' Will appreciate if there is a way to set a field value
    pdfApp.Exit
    Set pdfApp = Nothing
    Set pdfPDDoc = nothing
    Set jso = Nothing
End Sub
Excel VBA is shutting down ( cannot recover ) when it runs the pdfPDDoc.Open statement
Any help will be very appreciated
Aubrey
I am on Windows XP,
In VBA, I have created Tool References to [Adobe Acrobat 9.0 Type Library]
Downloaded the Acrobat v9 SDK but am lost trying to locate any help for simple VBA.

lrosenth,
Would I be able to Update & SaveAs with a newer version of LiveCycle ( does Adobe still have a LiveCycle line ) ?
I was looking at InDesign but am not sure if it has the functionality that I need ( i.e. create multiple forms from an Excel list)
.. also am unsure of the learning curve.
Aubrey

FRM-92102 when accessing a form using a Load Balancer

Greetings.
We have two oracle application servers version 10.1.2.0.2 on windows 2003 running forms and reports. When just one a server is running everithing works fine, but when I start the second server the clients receive the message "FRM-92102 : A network error has occurred.The Forms Client has attempted to re-establish its connection to the Server 5 times without success.Please check the network connection and try again later" when the first form is called. In our coniguration the F5 Load Balancer is redirecting requests to the Apache ports in both Oas Machines, we are not using the webcache port. I read the note "FRM-92102 When Using A Software Load Balancer With Forms [ID 465583.1]" but this note applies when webcache is used. Our LBR is set using "insert cookie" persitent mechanism.
I have the following questions:
What configuration is needed in OAS files in order to use a LBR and avoid the FRM-92102 error?
How can I debug or trace FRM-92102 issues?
Thanks!
Ramiro Ortiz.

FRM-92102 is the result of the client not getting a response from the server (mid tier). This generally means only one of a couple of things:
1. The mid tier which parented the Forms session is not responding. This could be because it is overloaded, the web server (OHS or WebCache) is failing, or something else is preventing the client from getting a response.
2. Client requests are being routed to the wrong mid-tier server. This is usually the result of improper load balancer configuration or an LB failure. However, generally in this case FRM-92101 would result. If you are using an unpatch 10.1.2 installation, as I believe you are (10.1.2.0) then seeing either error may be possible.
Regarding the note that discusses using Oracle WebCache for load balancing, regardless of whether you are using an Oracle product or hardware or whatever for loadbalancing, the same concept will apply. The load balancer must have session binding enabled. Understanding whether or not this is the problem should be fairly easy to determine. Simply shutdown one server. If everything works correctly, restart the second server. If the problem now occurs, you can likely assume you have a session binding issue and should likely refer to the load balancer's documentation or their Support group.
Also, important to understand is that if the load balancer is designed to alter the header information in any way, the likelihood of failing Forms sessions is high. Forms is expecting very specific information in the header exchange. Some intermediate servers (load balancers, ssl accelerators, firewalls, etc) have been known to intentionally or unintentionally alter the header. Again, contact the vendor.
If you are seeing that the client console is reporting 5 retry attempts, yet you have not set "networkRetries" in formsweb.cfg, this often suggests a critical tcp/ip failure. Often, but maybe not always, the result of a damaged header or other misconfiguration or failure outside of Forms.

Viewing Crystal 2008 ActiveX on Access 2007 forms

Ok, i am a little confused as there seems to be a some doubt whether Crystal 2008 ActiveX can be used on Access forms. Another thread even has a reply that mentions that the ActiveX control is no longer included in Crystal Reports 2008..... Take a look at this, you can clearly see i have embedded the 2008 ActiveX control onto an Access form. link:[http://www.moktar.pwp.blueyonder.co.uk/AX.JPG]
I have just installed 2008 and will get round to looking at this, however in my brief look, i couldnt see the run time library for 2008. By all accounts you can freely distribute the run time files for Crystal Reports 2008 as MSI or exe packages to your clients. I hope this is the case and i can get the ActiveX working.
If anyone has some information on this subject i will welcome reading it.
This is how its used to be done;
1) Open the Access form in design view.
2) Click on Add Tool button on the toolbar.
3) Select Crystal Reports ActiveX toolbar control from the list of controls.
4) Place the control on the form.
5) Click on the View Code toolbar button to open the code for the form
6) Choose u2018Referencesu2019 from the u2018Toolsu2019 menu
7) Select u2018Crystal Reports ActiveX Design and Runtime Library 11.Xu2019 from the list of references and add to the project.
8) On the Form_Load() event, please use the code given below to pass the report to the viewer:
Dim crReport as CRAXDRT.Report
Dim crApplication as New CRAXDRT.Application
u2018 Use the appropriate path for the report
Set crReport = crApplication.OpenReport(u201CC:\Report1.rptu201D)
u2018 ReportSource property and ViewReport method will not be displayed on the viewer control
CrystalActiveXReportViewer0.ReportSource = crReport
CrystalActiveXReportViewer0.ViewReport
'Hey Presto, the Crystal control on the Access form is now displaying a report. However, you had the age old issue of distributing the runtime files to clients that dont have crystal reports installed, and even more so of an issue, as this is Access and no method of doing it. I was hoping that 2008 with its MSI and EXE versions of the runtime files would solve this age old problem.
Thanks
Simon.

Hello Simon,
The RDC was retired after Crystal Reports XI R2 and no longer exists in CR 2008.
The viewer control you are seeing is not meant for RDC applications.
You will need to move to Java or .NET if you plan on using CR 2008.
Best Regards,
Jason

Automate Save as, Reader Extended for 160 .pdf forms using a script or macro?

I have 167 pdf forms made using Adobe Acrobat Pro X. when I sent out a test it could not be saved using Adobe reader. I know how to Save As; Reader Exended pdf; Enable additional features. this also forces me to create yet another document called something different like mydoc-2.pdf. Since you can't save these feature in the existing one?
Is there a way to automate this using javascript or something so I don't have to do each one.
1. open each pdf documewnt
2. set the Save As; Reader Exended pdf; Enable additional features.
3. save as name -2
repeat 1-3 for 167 files in folder A

There is no Adobe supported means for automating the application of usage rights, apart from their LiveCycle Reader Extensions server-based product. This is a very intentional restriction.

Reading filters fields in a pivot using vba

Hi
I am able to store the Row Fields, Value Fields, Column Fields of a pivot. But if a filters are applied to a pivot.
like Pivot.PivotFields, Pivot.RowFields, etc
How can we read the what is the field applied for the filter fields?
Thanks
Sreeram
Madhukar

Hi,
Please try the sample code, it'll read the filter field which you select:
Sub Test()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Set pt = Sheets("Scores").PivotTables(1)
For Each pf In pt.PivotFields
If pf.Orientation = xlPageField Then
Debug.Print pf.Name
For Each pi In pf.PivotItems
If pi.Visible = True Then
Debug.Print pi.Value
End If
Next
End If
Next pf
End Sub
PS:
This is the forum to discuss questions and feedback for Microsoft Excel, if you have any further question about Excel developer, please post the question to the MSDN forum for Excel
http://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev&filter=alltypes&sort=lastpostdesc
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.
George Zhao
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.

How can I export multiple PDF fillable forms into a spreadsheet (Excel) using VBA?

Hi guys,
I never used VBA with with Adobe Acrobat. I would like a tip to start doing that. What I would like to do know is:
1 - I have multiple PDF Forms that are filled.
2 - I want all the data from those forms to be exported to Excel via VBA code.
3 - Adobe Acrobat already have an option to do that manually (Forms > Merge Data Files Into Spreadsheet) and it works perfectly.
4 - I would like to access that feature using VBA, then generate a spreadsheet.
Any tips? How can I start?
Thanks!

A good place to start is Karl Heinz Kremer's blog, where he has a few examples:
http://khkonsulting.com/2010/09/reading-pdf-form-fields-with-vba/

Prepopulating Interactive Form with XML Data using VBA

I have an excel spreadsheet with data on it. I need to click on a button that will cause an Interactive PDF form to open and be populated with data from the spreadsheet. To do this I want to use an XML data file. I know how to create the file, but how do I cause the PDF to open in Adobe Reader with the XML data file using VBA? The link needs to be a soft link, in that the name of the XML file could change.
Many thanks for answers.

            strXFDFFile = "c:\temp\" & strFileName & "tmp.xfdf"
            'Open the PDF file
             appPDFInit = True
             Status "Processing " & strFileName
             DoEvents
             ' Create PDF File, if any
             If strXFDFFile <> "" Then
                 Dim fldValue As String
                 Open strXFDFFile For Output As #1
                 Print #1, "<?xml version=""1.0"" encoding=""UTF-8""?>"
                 Print #1, "<xfdf xmlns=""http://ns.adobe.com/xfdf/"" xml:space=""preserve"">"
                 Print #1, "<f href=""" & strFilePath & strFileName & """/>"
                 Print #1, "<fields>"
                 For Each fdField In rsData.Fields
                 If IsNull(fdField.Value) Then
                     fldValue = ""
                 Else
                     fldValue = fdField.Value
                     fldValue = XMLit(fldValue)
                 End If
                 If InStr(1, fdField.Name, "ID") > 0 Then
                     fldValue = Format(fldValue, "##########")
                 End If
                 If InStr(1, fdField.Name, "ZIP") > 0 Then
                     fldValue = Format(fldValue, "#####")
                 End If
                 If InStr(1, fdField.Name, "Rate") > 0 Then
                     fldValue = Format(fldValue, "#0.00#")
                 End If
            '        Write #1, fdField.Name,
                 Print #1, "<field name=""" & fdField.Name & """>"
                 Print #1, "<value>" & fldValue & "</value>"
                 Print #1, "</field>"
                 Next
                 Print #1, "</fields>"
                 Print #1, "</xfdf>"
             Close #1
            End If
            Dim x As Long
            For x = 1 To 1000000: Next x
            LaunchPDF.LaunchFile strXFDFFile, 0, 2
Make sure you reference the Adobe Acrobat Browser Control Library under Tools | References
It will merge to Adobe Reader. Note that I have made the strXFDFFile variable unique by including the name of the PDF file. This assures that you can merge to more than one PDF at a time (this is taken from a loop for multiple PDF files). Note that the XFDF file must include the path and the PDF file name in order to open the correct PDF for merging.
I don't have time to explain the code, but if you have any questions let me know.
Daniel H. Smith
Smith Enterpises LLC

Access 2007 very slow on Windows 7

Access 2007 is running very slowly in on two new Windows 7 clients. By slow, I mean the response time within Access - moving from screen to screen is dreadfully slow, taking 30+ seconds on Windows 7 to do what a computer with Windows XP will do in
1 second.
I cannot find any information that addresses the issue.
We have been running Windows XP SP3 clients successfully for almost a year. The speed is virtually instantaneous. The Access file is hosted on a file server, Windows Server 2003, with SQL Server Express 2008. Nothing has changed on the
server. The Windows XP clients previously and currently experience no problems.
The first of 2 new computers were deployed with Windows 7, with OS pre-loaded from Dell. Microsoft update was run to update OS and Access. Once discovered that Access was running brutally slow, I used the other new PC to test. Windows 7
freshly installed. Office 2007 freshly installed. Tested - still slow. Ran Windows Update, then re-tested. Still slow.
The issue reminds me of the slowness experienced when we were developing the Access database on my laptop which was running Vista. So, it runs fine on XP, but not on Vista or 7.
I'm convinced the problem is a conflict with Windows 7 on the client, but cannot pinpoint it. I've searched these forums and Google for answers, but have not found any information that has specifically addressed this issue. Can anyone offer assistance?

After reading numerous forums , I was able to resolve
the following issues (Screens Freezing, Screens Lag/Flickers, combo/list boxes freezing whilst searching for data) by carrying out the following:
Creating a brand new copy of the MS Access database in MS Access 2007/2010 using the Windows 7 image
Importing the database objects (tables queries, forms, reports, macros and modules) into MS Access 2007 /2010 d/b within the Windows 7 image.
Setting the
MaxBufferSize of 16384 (Decimal), HKEY_LOCAL_MACHINE (regedit) onto various PCs as recommended by various forums.
Making sure that the relevant reference libraries have been selected for MS Access 2007. This should automatically set throughout the default
installation as demonstrated below:
Visual Basic For Applications
Microsoft Access 12.0 Object Library
OLE Automation
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.5 Library
Also by typing in the following words into Google, provided me with some solutions, however the instructions above allowed me to rectify the issues
experienced above.
MS Access 2007 slow in Windows 7
MS Access 2007 and Windows 7 issues
MS Access 2007 freezes
Performance slow with MS Access and Linked Tables
Slow performance windows 7 using MS Access

Unable to display Info path form using IE , The form cannot be displayed in the browser because the use of DOM storage has been disabled in the current browser settings. In order to load the form, DOM storage must be allowed.

I have edited the default edit form for my Issue Tracking Tool using Info Path, But currently when I try accessing the form using IE 10 64x , I got the following error-
“The form cannot be displayed in the browser because the use of DOM storage has been disabled in the current browser settings. In order to load the form, DOM storage must be allowed.”
But using Firefox I was able to access the edit form , so can anyone advice on this please?
Thanks

. Tools > Internet Options > Privacy Tab > Advanced
Check the over-ride box to Enable/Accept cookies. Click on Always allow session
cookies.
2. Clear Your Cache and Cookie Files
If you are using an Internet Explorer browser, please follow these instructions to clear
your cache and cookie files: Open your Internet Explorer browser.
Tools > Internet Options > General > Browsing History
Click Delete Browsing History.
Delete Temporary Internet Files, Cookies and History Also under Browsing History,
click Settings and make sure that your browser automatically checks for newer versions
of stored pages. Click OK and restart your browser
3. Pop-up Blockers
Turn Off the firewall in IE.
you can disable\enable it from below:
http://webdevwonders.com/clear-dom-storage/
Clear DOM Storage in Firefox:
Select “Tools” -> “Clear Recent History”, open “Details”, check “Cookies” and select “Everything” as time range.
ATTENTION: No other time range will clear the DOM Storage. Have a look at
Mozillas documentation for further info.
Disable DOM Storage in Firefox:
Type “about:config” in your address bar and hit enter to view your internal browser settings. Scroll down to „dom.storage.enabled“, right click on it and hit „Toggle“ to disable the DOM Storage.
Clear DOM Storage in Internet Explorer:
Select “Tools” -> “Internet Options” -> “General” -> check “Delete browsing history on exit”, click on “Delete”, check “Cookies”, click on “Delete” once more and restart your browser afterwards.
Disable DOM Storage in Internet Explorer:
Select “Extras” -> “Internet Options” -> “Advanced” Tab -> Go to “Security” -> uncheck “Enable DOM-Storage”
Clear DOM Storage in Chrome:
Select “Tools” -> “Clear browsing data…”, check “Delete cookies and other site data”, select “Everything” from “Clear data from this period” and click on “Clear browsing data”.
Disable DOM Storage in Chrome:
Open “Options” and select “Under the Hood” Tab. Click on “Content settings…”, select “Cookies” and set “Block sites from setting any data”.
If this helped you resolve your issue, please mark it Answered
ok i did all these steps but still i am getting the same error,, i can not understand how SharePoint works better on firefox and chrome comparing to IE !!! so what i should do now , as all the edit forms that are customized using Info path can not be viewed
on IE 10 64x !!!!

Simultaneously Connecting Multiple Tables of the same Database to Textboxes of the same Form using a single ADO Control Code using VB6 Enterprise Edition and MS Access 2007

Iv 10 Tables consisting of atleast 10 fields each in a single Database. Bt, Im only able to connect 1 table at a time to a form using an ADO Control. Im able to add data from table 'student' to text-boxes in my form. Bt, hw can I add data from field(0) of
Table 'Student' to Textbox1 and data from field(0) of Table 'Marks' to Textbox2 using VB6??
This is the current sample coding iv got to connect a single table to a form:
Global con As New ADODB.Connection
Global rs As New ADODB.Recordset
Public Function Connect()
If con.State = 1 Then con.Close
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\bca.mdb;Persist Security Info=False"
End Function
Private Sub Add_Click()
If rs.State = 1 Then rs.Close
rs.Open "select * from student", con, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields(0) = (Text1.Text)
rs.Fields(1) = (Text2.Text)
rs.Fields(2) = (Text13.Text)
rs.Fields(3) = (Text4.Text)
rs.Fields(4) = (Text5.Text)
rs.Fields(5) = (Text6.Text)
rs.Fields(6) = (Text7.Text)
rs.Fields(7) = (Text8.Text)
rs.Fields(8) = (Text9.Text)
rs.Fields(9) = (Text10.Text)
rs.Fields(10) = (Text11.Text)
rs.Update
MsgBox " Record Added"
End Sub
What can I do to add fields from 2 different tables to different text boxes within the same form using a single ado control using vb6 and MS Access 2007??

Hi,
Since VB6 product is not supported in this forum, you may go to these forums for support:
#Where to post your VB 6 questions
http://social.msdn.microsoft.com/Forums/en-US/6a0719fe-14af-47f7-9f51-a8ea2b9c8d6b/where-to-post-your-vb-6-questions
Thank you for your understanding.
Best regards,
Franklin
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Opening and populating a PDF form with VBA code in Access 2007

I had posted this in Acrobat Windows. It was suggested this (and the SDK forum) may be a better forum ...
I'm trying to load and then populate a PDF form programmatically using Access/VBA. I'm patterning this after code that worked fine in Acrobat 5.0 but is throwing errors in Acrobat 9. We're using Access 2007 on Windows XP and Vista computers.
The Access project has a reference to Adobe Acrobat 9.0 Type Library. Attached is a jpg showing all the references in the Access project.
The error "Object variable not set (Error 91)" is happening with this statement:
Set PDDoc = AVDoc.GetPDDoc
Here is the code I'm trying to use. I've always been a little fuzzy exactly which objects need to be created and the sequence they need to be created in. Once I got it working in Acrobat 5 I left it alone.
    Dim WshShell As Object
    Dim myApp As Acrobat.AcroApp
    Dim AVDoc As Acrobat.AcroAVDoc
    Dim PDDoc As Acrobat.AcroPDDoc
    Dim PauseTime, Start
    Set WshShell = CreateObject("Wscript.Shell")
    ' run the Acrobat application within that shell and pass it a document name
    WshShell.Run "Acrobat.exe C:\Users\Christian\Documents\data\dist5\dist05_face_only_nh.pdf"
    '// Set/Get Acrobat Objects
    ' create an automation object that references the active copy of Acrobat
    Set myApp = CreateObject("AcroExch.App")
    ' reference the acrobat document we loaded above
    'Set AVDoc = CreateObject("AcroExch.AVDoc")
    Set AVDoc = myApp.GetActiveDoc()
    ' this apparently runs some method available to AVDOC
    Set PDDoc = AVDoc.GetPDDoc      '<------------------ THIS IS THE LINE THROWING THE ERROR
    ' this is how you reference the JSObject
    Set jso = PDDoc.GetJSObject
    ' let's clear the form
    temp = jso.resetForm()
    Set x = jso.getField("txt1_name")
    x.Value = "Bing Crosby"
    Set x = jso.getField("txt2_sex")
    x.Value = "Male"
    Set WshShell = Nothing
    Set myApp = Nothing
    Set AVDoc = Nothing
    Set PDDoc = Nothing
Thanks in advance for any help.
Christian Bahnsen

Using the "Developing Applications Using Interapplication Communication" reference, I've been filling in knowledge gaps and baby-stepping until I hit this major wall. FYI: from page 22 in the reference
Example 2.6 Displaying “Hello, Acrobat!” in the JavaScript console will not work as shown in Access VBA. I've tried the example in both Access 2003 and 2007. The sample code as is throws error 91 (see attachment error91.jpg), "Object variable ... not set".
I add Set to the following 3 lines:
    Set gApp = CreateObject("AcroExch.App")
    Set gPDDoc = CreateObject("AcroExch.PDDoc")
    Set jso = gPDDoc.GetJSObject
Running the code after adding "Set" doesn't throw an error but it does crash Access every time. (see attachment error_reporting.jpg)
Any suggestions?
Here's the entire code snippet:
Private Sub cmdHelloAcrobat_Click()
    Dim gApp As Acrobat.CAcroApp
    Dim gPDDoc As Acrobat.CAcroPDDoc
    Dim jso As Object
    Set gApp = CreateObject("AcroExch.App")
    Set gPDDoc = CreateObject("AcroExch.PDDoc")
    If gPDDoc.Open("C:\chris\acrobat_test.pdf") Then
        Set jso = gPDDoc.GetJSObject
        jso.console.Show
        jso.console.Clear
        jso.console.println ("Hello, Acrobat!")
        gApp.Show
    End If
End Sub

How to remove Access 2007 (MDB) project from Team Foundation using VB6/VBA?

Hi,
is there any way how to remove A2007 (MDB) project from Team Foundation using VB6 or VBA? CompactDatabase method doesn't seem to help.
I need to remove back-end MDBs before deploying the whole project. In other words, the MDBs themselves should remain in TF but I'd like to remove their copies that should be deployed (distribution set). I wrote a simple function for compacting MDBs but it
doesn't do the trick. When I compact an MDB in Access 2007 I'm always asked whether I want to remove it from source control.
Thank you very much in advance.

What are the copies you referring?
These are physical copies of local MDB files. I can't (don't want) to deploy MDB files that are handled by source code control (SCC) since those files hold information about SCC (local directory mapping). Users might not understand the message they get when
they open such MDB in Access, eg.:
This database was named 'C:\Projekty\P1\DB\nP01.mdb' but has been moved, copied, or renamed. Source code control features will be disabled.
That's why I want to remove the SCC information from MDB files. The only way I know so far is to use "Compact & Repair database" in MS Access 2007. I'd like to point you to http://msdn.microsoft.com/en-us/library/aa155494%28v=office.10%29.aspx (it's
similar to Access 2007 & Team Foundation):
Using the Compact Database Command
In order to take a database that is under source code control and deliver it to a user, you need a way to cut the database's ties to source code control. When you compact a database that is under source code control, Microsoft Access 2000 prompts you
to remove the database from source code control.
To remove the database from source code control, Microsoft Access simply removes the Visual SourceSafe properties from the Microsoft Access database and its objects.
I would like to remove Access MDBs from SCC programmatically so that I can
significantly reduce time that I spend on deploying the application. In one of our applications there are five back-end MDBs that are under SCC and it takes some time to remove them from
SCC manually. I have to do it anytime we release new version, even for releases that are determined as testing releases for internal testing within our company.
Thank you very much for your time.

Cannot open/view/access interactive pdf form using Safari

I was unable to open interactive pdf forms from websites with Safari 6 on my iMac. I received the following message:
Quote
To view the full contents of this document, you need a later version of the PDF viewer. You can upgrade to the latest version of Adobe Reader from www.adobe.com/products/acrobat/readstep2.html
For further support, go to www.adobe.com/support/products/acrreader.html
Unquote
I still couldn't view/open/access the form even after I upgraded to Version 11.0.04 of Adobe Reader.
This problem happens only (I believe) after I updated OS X and Safari. Previously I was able to do it without any trouble as recently as July 2013. However, I don't encounter any issue if it is just an ordinary pdf document especailly if it can be downloaded to be opened later.
As far as I can ascertain, I don't have any plug-in except for McAfee SiteAdvisor 2.0, 1Password 3.9.0, AdBlock 2.5.46 (which is disabled), Evernote Web Clipper 5.7, and Open In Internet Explorer 1.0 (by Parallels).
I am using OS X Mountain Lion 10.8.5 and Safari 6.0.5 (8536.30.1).
Can anyone please help? Thank you.

Thank you, Carolyn Samit and andyBall_uk, for your prompt responses and suggestions.
Although I didn't follow your recommendations, they gave me some idea regarding what to do to resolve the issue.
The solution is actually very simple. I uninstalled my existing Adobe Reader (using CleanMyMac 2 but I believe moving the app to trash should do it as well), downloaded a fresh copy (version 11.0.04) and reinstalled it again. When the software was being installed, it asked whether I wanted to make Adobe Reader (AR) the default PDF reader. I indicated OK and allowed installation to proceed and finish.
After installation of AR, I reopened Safari and went to a website to click the link to the pdf form. And lo and behold, I was able to open/access/view the document! It worked with a second website.
So the lesson is when installing an upgrade remember to make Adobe Reader the default PDF reader.
I hope that this procedure can help others resolve their issue if they have a similar problem.

Reader X in Access 2007 form using VBA - GetPageNum

Similar Messages

Maybe you are looking for