Solved

Run Access Macro from Vb.net

Posted on 2010-08-13
4
2,527 Views
Last Modified: 2012-05-10
When I run the following code to run an access macro from vb.net I get "Microsoft Office Access can't open the database because it is missing, or opened exclusively by another user."

The database is not missing or opened.
Private Sub RunMacro()
        Dim oAccess As Object
        Try
            oAccess = CreateObject("Access.Application")
            ' Open the database
            oAccess.OpenCurrentDatabase(PickTickMDBLocation, False)

            Try
                oAccess.DoCmd.RunMAcro("test")
                oAccess.DoCmd.Maximize()
                oAccess.Visible = False
            Catch ex As Exception
                sErrNo = Err.Number.ToString
                sError = "RunMacro" & vbCrLf & Err.Description & " " & "ErrNo: " & sErrNo
                dispError(sError)
            Finally
                oAccess.CloseCurrentDatabase()
                oAccess.Quit()
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oAccess)
                GC.Collect()
            End Try
        Catch ex As Exception
            sErrNo = Err.Number.ToString
            sError = "RunMacro" & vbCrLf & Err.Description & " " & "ErrNo: " & sErrNo
            dispError(sError)
        End Try
    End Sub

Open in new window

0
Comment
Question by:Delta7428
  • 3
4 Comments
 
LVL 22

Expert Comment

by:plusone3055
ID: 33433307
0
 

Author Comment

by:Delta7428
ID: 33436286
I am getting "Type Access.Application is not defined"

I have included the reference to Microsoft Access object library in COM.
Sub RunMacro()
        Dim Adb As New Access.Application
        Adb.OpenCurrentDatabase("PickTickMDBLocation")
        Adb.Run("test")
        Adb.CloseCurrentDatabase()
        Adb.Quit()

    End Sub

Open in new window

0
 

Author Comment

by:Delta7428
ID: 33445487
I added Imports Microsoft.Office.Interop.  That got rid of "Type Access.Application is not defined."

Now I am getting this again:
"Microsoft Office Access can't open the database because it is missing, or opened exclusively by another user."

Please help
0
 

Accepted Solution

by:
Delta7428 earned 0 total points
ID: 33445844
I'm not sure what the difference is, but this works for me.
RunMacro3("test")

Private Sub RunMacro3(ByVal sMacro As String)
        Dim oAccess As Object

        oAccess = CreateObject("Access.Application")
        ' Open the database
        oAccess.OpenCurrentDatabase("c:\test.mdb")
        Try

            oAccess.DoCmd.RunMAcro(sMacro)
            oAccess.Visible = False
        Catch e As Exception
            MsgBox("Macro is cancelled or does not exist")
        Finally
            oAccess = Nothing
        End Try
    End Sub

Open in new window

0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
Microsoft Reports are based on a report definition, which is an XML file that describes data and layout for the report, with a different extension. You can create a client-side report definition language (*.rdlc) file with Visual Studio, and build g…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

786 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question