Prev: Formating Hex Values
Next: DCOM Error
From: Lennie on 13 Aug 2010 02:00
Hi Good Guys,

I need your help. Please help me.

My office is still using VB6 SP6 software and ACCESS 2003 Database. I
am trying print ACCESS 2003 report with VB6 application and I
constantly get the POPUP Screen of SECURITY WARNING from ACCESS 2003
which created problems for the users.

How to stop the POPUP SECURITY WARNING SCREEN for happening.

Here are the overall VB6 coding.

Option Explicit

Dim objAccess As Access.Application
Dim dbName As String
Dim rptName As String
Dim strSql As String

Private Sub Form_Load()

Set objAccess = New Access.Application

dbName = "F:\SalesDept\CustomerDB.mdb"
rptName = "ReportSalesTrans"
End Sub

Private Sub cmdPrintAcessReport_Click()

strSql = "SELECT CustomerID, ContactName FROM Customers ORDER BY
CustomerId"

With objAccess
.OpenCurrentDatabase (dbName), False
.Visible = False
.DoCmd.SetWarnings False

.DoCmd.OpenReport rptName, acViewPreview, strSql
.CloseCurrentDatabase
End With

objAccess.Quit
Set objAccess = Nothing

End Sub

Thank You for helping.

Have a Good Day.
Cheers,
Lennie
From: ralph on 13 Aug 2010 02:25
On Thu, 12 Aug 2010 23:00:29 -0700 (PDT), Lennie
<Lennie_Kuah(a)xtra.co.nz> wrote:

>Hi Good Guys,
>
>I need your help. Please help me.
>
>My office is still using VB6 SP6 software and ACCESS 2003 Database. I
>am trying print ACCESS 2003 report with VB6 application and I
>constantly get the POPUP Screen of SECURITY WARNING from ACCESS 2003
>which created problems for the users.
>
>How to stop the POPUP SECURITY WARNING SCREEN for happening.
>

http://www.secnewsgroups.net/access/t1032-access-2003-security-warning.aspx
 | 
Pages: 1
Prev: Formating Hex Values
Next: DCOM Error