Hi!

Brand new user here!

Question:
I am trying to send keys after a "RunCommand acCmdInsertObject" line to press the 'Browse' button and then to navigate a root attachment folder for the record.

I have:
    RunCommand acCmdInsertObject
    Dim KeyString As String
    KeyString = DLookup("[FileLocation]", "tbl_FileLocations", "[Name]='" & "Database Folder" & "'") & "Attachments\IRS " & IRSNumber.Value
    SendKeys "%B"
    SendKeys KeyString
    SendKeys "~"

But it doesn't even get to ALT B (%B).

I've tried other combos and even adding a pause but I don't seem to get any keys to the 'Insert Object' dialog box.

Any ideas? Or is there a better way to reach my desired end result?

First, clean up your keystring statement. Is Database Folder a field or variable? If it is, then

KeyString = DLookup("[FileLocation]", "tbl_FileLocations", "[Name] = '" & Me.[Database Folder] & " Attachments\IRS " & Me.IRSNumber & "'")

for a field, or

KeyString = DLookup("[FileLocation]", "tbl_FileLocations", "[Name] = '" & DatabaseFolder & " Attachments\IRS " & Me.IRSNumber & "'"

for a variable you made up. If it's part of the folder (directory) name, then it's

KeyString = DLookup("[FileLocation]", "tbl_FileLocations", "[Name] = 'Database Folder Attachments\IRS " & Me.IRSNumber & "'"

Or did you mean

KeyString = DLookup("[FileLocation]", "tbl_FileLocations", "[Name] = 'Database Folder\Attachments\IRS " & Me.IRSNumber & "'"

Second, the use of SendKeys is dangerous. If you want to use SendKeys, note that it acts upon the ACTIVE window. Is the window with the BROWSE button really the active window at that point? If not, the ALT+B will occur elsewhere where the ALT+B means nothing.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division