i cant find CurrentProject.Path help!

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

macken09@gmail.com - 30 Aug 2006 07:53 GMT

im using vb6 and MSaccess 2003
Public Sub OpenDBConnection()
Dim strPath As String
strPath = CurrentProject.Path <<<<<error CurrentProject or
CurrentApplication
If Right$(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
strconek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
strPath & "\data\MFMS.mdb;Persist Security Info=False"
Set conn = New ADODB.Connection
Set rec = New ADODB.Recordset
'strconek = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\sysnow\data\MFMS.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open strconek
End Sub
is there something wrong with my references

Reply to this Message

RoyVidar - 30 Aug 2006 08:19 GMT

"macken09@gmail.com" <macken09@gmail.com> wrote in message
<1156920782.811768.34430@e3g2000cwe.googlegroups.com>:

> im using vb6 and MSaccess 2003
> Public Sub OpenDBConnection()
[quoted text clipped - 14 lines]
> End Sub
> is there something wrong with my references

If you're using VB6, then you probably wont find currentproject.path.

Currentproject is a property of the Access application object, and
allows access to the CurrentProject object with related objects,
properties and methods within Access, and, as far as I know, is
available only from Access VBA code (or through automation).

I think you will need other means of retrieving the path, where I
think an NG dedicated to VB6 might be a better place to look. Is
App.Path the equivalent in VB6?

Signature

Roy-Vidar

Reply to this Message