Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
it works, it doesn work, its works....and so on.
Hi all,
I have the following macro in Excel to open a form in Access and go to a specific record. The first time the macro runs it work, the second time its doesn't the third it does. and so on. The first time i open the sheet and run it it will work. When it doesn't run it simply displays the " No data found " message. I think it may have something to do with Access not closing properly after the 1st run, simply because in Task Manager in the processes i see MSACCESS. Dim appAccess As Access.Application Sub DisplayOASSISForm() FindRef = ActiveCell On Error GoTo Error_Handler ' Initialize string to database path. Const strConPathToSamples = "c:\eoc.mdb" ' Create new instance of Microsoft Access. Set appAccess = _ CreateObject("Access.Application") ' Open database in Microsoft Access window. appAccess.OpenCurrentDatabase strConPathToSamples ' Open Orders form. DoCmd.OpenForm "frmEOC", acNormal, "", "", , acNormal DoCmd.FindRecord FindRef, acEntire, False, , False, acCurrent, True Exit Sub Error_Handler: appAccess.Visible = False MsgBox "No data found" appAccess.Quit acQuitSaveNone End End Sub -- _______________________ Naz, London |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hyperlink formula works, and then doesn't work | Excel Discussion (Misc queries) | |||
SUMIF formula works in Excel 2003, does not work in Excel 2007 | Excel Discussion (Misc queries) | |||
Simple Macro, works in Excel 2002, 2003 but won't work in 2000 | Excel Programming | |||
How do I convert works file to excel without works software? | Excel Discussion (Misc queries) | |||
How can I get EXCEL formulas to work in Works? | Excel Worksheet Functions |