sir i want when user click on the button access report should open.
can anyone help me ?. here is the code what i have written but it
hangs again and again.
Private Sub Command6_Click()
On Error GoTo cancel
Dim Access As New Access.Application
Access.OpenCurrentDatabase ("\\asfserver\itp$\Product_tabletest.mdb")
Access.DoCmd.OpenReport "MR", acViewNormal
DoCmd.OutputTo acOutputReport, "MR", acFormatHTML, "c:\Report1.html"
Application.CloseCurrentDatabase
Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & "C:\Report1.html", vbMaximizedFocus
Access.Quit
done:
Set Access = Nothing
Me.WindowState = 2
Exit Sub
cancel:
MsgBox Err.Description & vbCrLf & Err.Number
End Sub