B
BigPig
Hello All,
I can't figure out how to put data from excel into a 'parameter' field once
an access macro has been called from excel.
In Access, a small userform appears with the title "Enter Parameter Value".
I can get the Access macro to start, but can't figure out how to do the
rest. I tried sendkeys but that didn't work. Please see my code so far...
Private Sub cmdveerpqr_Click()
'<<< Opens the OPM Database and opens the 'Open PQR' macro
Dim LPath As String
'<<< Procedure to copy the "SSN" field data
txtveerappssn.SelStart = 0
txtveerappssn.SelLength = txtveerappssn.TextLength
txtveerappssn.Copy
'<<< Back to the database
LPath = "\\afilepath\another\opm_XP.mdb"
Set oApp = CreateObject("Access.Application")
oApp.Visible = True
oApp.OpenCurrentDatabase LPath
oApp.DoCmd.RunMacro "Open PQR"
***This is where I'm stumped, and I know sendkeys is the most unpreffered
way of getting this to work, but I thought to give it a shot.
Application.SendKeys "^v"
End Sub
Any help would be greatly appreciated.
I can't figure out how to put data from excel into a 'parameter' field once
an access macro has been called from excel.
In Access, a small userform appears with the title "Enter Parameter Value".
I can get the Access macro to start, but can't figure out how to do the
rest. I tried sendkeys but that didn't work. Please see my code so far...
Private Sub cmdveerpqr_Click()
'<<< Opens the OPM Database and opens the 'Open PQR' macro
Dim LPath As String
'<<< Procedure to copy the "SSN" field data
txtveerappssn.SelStart = 0
txtveerappssn.SelLength = txtveerappssn.TextLength
txtveerappssn.Copy
'<<< Back to the database
LPath = "\\afilepath\another\opm_XP.mdb"
Set oApp = CreateObject("Access.Application")
oApp.Visible = True
oApp.OpenCurrentDatabase LPath
oApp.DoCmd.RunMacro "Open PQR"
***This is where I'm stumped, and I know sendkeys is the most unpreffered
way of getting this to work, but I thought to give it a shot.
Application.SendKeys "^v"
End Sub
Any help would be greatly appreciated.