Search results

Yes. It worked wonderfully! I may have some follow-up questions tomorrow, but for now, cheers!!

Got it!!! Const msoFileDialogFilePicker As Long = 3 Dim strSelectedFile As String Dim AppPPT As Object, objSlide As Object, objShape As Object, objPresentation As Object Set fdg = Application.FileDialog(msoFileDialogFilePicker) Set objSFolders = CreateObject("WScript.Shell").SpecialFolders...

This didn't generate errors, but it didn't replace the text.

Still tinkering. Private Sub Outbrief_Click() Const msoFileDialogFilePicker As Long = 3 Dim strSelectedFile As String Dim AppPPT As Object, objSlide As Object, objShape As Object, objPresentation As Object Set fdg = Application.FileDialog(msoFileDialogFilePicker) Set objSFolders =...

No. I get Object Required for For Each objShape In pptSlide.Shapes

I'm getting "Object doesn't Support this property or method" at For Each sld In AppPPT.Slides I'm just using this code from an "On Click" event, not as a separate Sub.

Good afternoon, I am trying to have my Access database open up a Powerpoint presentation template .pptx and replace a value with a value from the database. Currently, on the main slide and a few others in the template, we have a placeholder of "XXXXX" for the company name. That value is already...

Oh that's quite alright. I appreciate you brainstorming with me. The field is already rtf, so that's a plus. I may try the HREF tags just to see.

Yeah, it's for a specific word or phrase. For instance: Require multifactor authentication to establish nonlocal maintenance sessions via external network connections and terminate such connections when nonlocal maintenance is complete. I want to be able to hover over "nonlocal" or "external...

That's what I was afraid of. Yeah, the text box has a lot of discussion text. I don't have a lot of terms to define though. Like 12 or 13 maybe.

Using Access 2016. I have a form with a discussion textbox. Is there a way to parse the text for specific terms and hover over the term in the text box and get a "tool tip" popup with a definition for that term? Thanks.

Got it!! I had to evaluate the count of records returned by the query and if it was 0, set Enabled to NO and if it was not 0, set it to YES (True and False in the code) On Error GoTo ErrorHandler Me.SearchResults.Enabled = True Dim vSearchString As String vSearchString =...

Unfortunately, it has some proprietary info built in that my boss won't allow me to leak out... I appreciate you guys a ton.

Ugh. The form will not let me scroll in the list box when Enabled = NO, but it goes back to blanking when Enabled = YES...

Fixed! I had to edit the properties of the List Box SearchResults. "Allow Value List Edits" to NO and Enabled to NO. Well that was weird... Thanks again for your willingness to assist!

And this is the exact issue I am having: https://www.datanumen.com/blogs/avoid-unexpected-blank-forms-ms-access/ Condition 1: The form is in query mode, in which the criteria contains no record.

Why certainly: Private Sub SearchFor_Change() On Error GoTo ErrorHandler Dim vSearchString As String vSearchString = SearchFor.Text SrchText.Value = vSearchString Me.SearchResults.Requery Me.SearchResults = Me.SearchResults.ItemData(1) Me.SearchResults.SetFocus...

Added one, and the error vanishes, but the form completely blanks out. All the text boxes vanish and I have to close and reopen it to search again.

Thread address is https://www.access-programmers.co.uk/forums/threads/dynamically-search-multiple-fields.188663/

I pilfered the code from this thread: https://www.access-programmers.co.uk/forums/threads/dynamically-search-multiple-fields.188663/ And removed the logic for trailing blanks because I don't care about them. I built my form and the query exactly as described. It works fine except if no results...