Rather than attempting to merge the pdf files into one, I copied the report to another, got rid of the parameter that was restricting it to a single page/record, and created a combo dialog box (form). With this I made based on a list (of several years; hope I can add to this later).
The...
Thanks, kjv1611. As you have adjusted the code for me, now states:
on the line Set fldr = fso("d:\temp\") I think I'll go ahead and just rework the report properties to print all pages to the same pdf file.
Barry
GIS Specialist
Tried thisPrivate Sub Command55_Click()
Dim objCAcroPDDocDestination As Acrobat.AcroPDDoc
Dim objCAcroPDDocSource As Acrobat.AcroPDDoc
Dim fso As Scripting.FileSystemObject
Dim f As File
Dim fldr As Folder
'Initialize the objects
Set fso = New Scripting.FileSystemObject
Set fldr =...
thread705-1272718
I would like to revisit the closed thread, above. It works great, but I would like to adjust it to loop through all PDF files in a specific directory, and merge all files found (perhaps merge to "Source1.pdf" in the example below).
Can anyone please help guide me? Original...
OK, I got it now. I first had to set a command button to open the form dialog, and set the "OK" click button to open the query, with the query selecting the record equal to that selected in the dialog's combo box.
I currently have a form that contains a command button, which runs a query (below). Private Sub Command60_Click()
Dim qryLithLogLinks As Hyperlink
DoCmd.OpenQuery ("qryTrendChartLinks")
DoCmd.RunCommand acCmdOpenHyperlink
DoCmd.Close acQuery, "qryTrendChartLinks", acSaveNo
End Sub
The query...
I am creating a lookup table, for several other queries to utilize, as this data is updated often (in an Excel spreadsheet). I can't remember why I didn't just use this field from the linked Excel file, but something didn't work with that method. I think it had something to do with matching...
I had the biggest problem trying to set a "Read-Only" group access to my database due to a make-table query that is fired (in a vba script) by the "Autoexec" macro (anything in a macro with this name fires when the database is opened, automatically. The reason I needed this to fire each time...
I added
Application.ScreenUpdating = False to the beginning of script event, and
Application.ScreenUpdating = True to the end of the script event, which works as long as tab out before selecting another value. But, if try to change value (of Dropdown8), without tabbing out, (Text22) does not...
I adjusted to this script, that works (below), but only changes the text if manually running the script after changing the value in Dropdown8. Can someone help me to figure out how to automatically run the script (or can be macro) when the document opens and continually runs so that it(Text22)...
I currently have a script event titled
Private Sub Dropdown8_Click()
which contains currently only:
Set myTable = ActiveDocument.Tables(1)
If myTable.Dropdown8 = "Ogallala" Then
myTable.Text22 = "SAR"
but does not yet do anything.
I need to create a Word macro/vba script to display text to the right of a form field if a particular field value is select from the list of values. Can someone give me an example vba script?
It is opening the query once, displaying the hyperlink field only, and then opens the hyperlink with the default application, this particular case being Adobe Acrobat. I would like to know if there is a way to make the query hidden, but open the hyperlink only (or close the datasheet window of...
OK, I got this hyperlink field to open with Adobe Acrobat as below, but I would also like it to hide the query's datasheet view of the hyperlink. I do not know how to set a query's visible property in VBA though.
Code:
Private Sub Command59_Click()
Dim qryLithLogLinks As Hyperlink...
I am trying to have Access open PDF's via hyperlinks in a query, but from a command button on a form. It actually opens the correct record in datasheet view, and can then click the hyperlink to open in Acrobat, but get an error "Unable to open Query!qryLithLogLinks![Lith_Logs]. Cannot open the...
Oh, so "0" represents the first page in the Tab Control? And, therefore, if you would replace with 1, 2, etc., will it work then for each of the consecutive pages/tabs on the tab control?
Thanks again!
I have a Tab Control, "TabCt", which includes two Tabs (aka Pages) containing
subforms(irrelevent though), "Tab1" and "Tab2". This is on a main form,
"Form1", which includes a text box "txtbox" (names for example only). I
would like to have the text box appear only when "Tab1" is...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.