Recent content by BGuidry

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 figured out that it does change the text in Text22, based on selection in Dropdown8, only if you select, tab out, and select it a second time.

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)...

Also tried the below, to no avail: strText = Selection.Text strText2 = Text22 If strText = "Ogallala" Then Set strText2.Text = "SAR"

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...