** URGENT ** CreateQueryDef

[Badger04]

Hi All

When I'm trying to run an Access application I'm getting an error message :

Object variable or With block variable not set

Bit it's falling over is ;

'And run the query to produce a recordset
Set qdf = db.CreateQueryDef("")
With qdf
.SQL = strSQL
Set rec = .OpenRecordset()
End With

Your help would be very much appreciated

Badger

 

[Ken Snell [MVP]]

What is the code step where you set db to CurrentDb?

 

[Badger04]

Thanks Ken for your attention,
I am thinking it could be referrencing issue as users are running the
production version fine, as my machine is a developer build (with VB, MDAC
2.6 etc) , unless your knowledge can point me in the right direction.

TIA Badger

Code immediately prior to Set qdf is ;

'Opens external password Protected db to provide details of password for user
Dim oAcc As Access.Application

Const TMP = "E:\UQCSecurity.mdb"

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False, ";PWD=Picard359")
oAcc.OpenCurrentDatabase TMP

'Build Query to Select Password for Checking

strSQL = "select Password, UserProfile, DateReview, [Checker No] from
tblPasswords where NTLogon " & _
" = """ & strUserId & """ and Password = """ & strPWD & """"

 

[Ken Snell [MVP]]

On which exact line do you get the "object not set" error?

--

Ken Snell
<MS ACCESS MVP>

Thanks Ken for your attention,
I am thinking it could be referrencing issue as users are running the
production version fine, as my machine is a developer build (with VB, MDAC
2.6 etc) , unless your knowledge can point me in the right direction.

TIA Badger

Code immediately prior to Set qdf is ;

'Opens external password Protected db to provide details of password for
user
Dim oAcc As Access.Application

Const TMP = "E:\UQCSecurity.mdb"

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False, ";PWD=Picard359")
oAcc.OpenCurrentDatabase TMP

'Build Query to Select Password for Checking

strSQL = "select Password, UserProfile, DateReview, [Checker No] from
tblPasswords where NTLogon " & _
" = """ & strUserId & """ and Password = """ & strPWD & """"

What is the code step where you set db to CurrentDb?

 

[Badger04]

Hi Ken

error occurs :

Set qdf = db.CreateQueryDef("")

I have just ran the db on a box that hasn't got VB installed and it works
fine, Am I following a red herring with this line of investigation?

Many thanks

On which exact line do you get the "object not set" error?

--

Ken Snell
<MS ACCESS MVP>

Thanks Ken for your attention,
I am thinking it could be referrencing issue as users are running the
production version fine, as my machine is a developer build (with VB, MDAC
2.6 etc) , unless your knowledge can point me in the right direction.

TIA Badger

Code immediately prior to Set qdf is ;

'Opens external password Protected db to provide details of password for
user
Dim oAcc As Access.Application

Const TMP = "E:\UQCSecurity.mdb"

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False, ";PWD=Picard359")
oAcc.OpenCurrentDatabase TMP

'Build Query to Select Password for Checking

strSQL = "select Password, UserProfile, DateReview, [Checker No] from
tblPasswords where NTLogon " & _
" = """ & strUserId & """ and Password = """ & strPWD & """"

What is the code step where you set db to CurrentDb?

--

Ken Snell
<MS ACCESS MVP>

Hi All

When I'm trying to run an Access application I'm getting an error
message
:

Object variable or With block variable not set

Bit it's falling over is ;

'And run the query to produce a recordset
Set qdf = db.CreateQueryDef("")
With qdf
.SQL = strSQL
Set rec = .OpenRecordset()
End With

Your help would be very much appreciated

Badger

 

[Ken Snell [MVP]]

Does the PC that isn't working have full read/write/delete/create rights to
the folder where the database UQCSecurity.mdb is located?

--

Ken Snell
<MS ACCESS MVP>

Hi Ken

error occurs :

Set qdf = db.CreateQueryDef("")

I have just ran the db on a box that hasn't got VB installed and it works
fine, Am I following a red herring with this line of investigation?

Many thanks

On which exact line do you get the "object not set" error?

--

Ken Snell
<MS ACCESS MVP>

Thanks Ken for your attention,
I am thinking it could be referrencing issue as users are running the
production version fine, as my machine is a developer build (with VB,
MDAC
2.6 etc) , unless your knowledge can point me in the right direction.

TIA Badger

Code immediately prior to Set qdf is ;

'Opens external password Protected db to provide details of password
for
user
Dim oAcc As Access.Application

Const TMP = "E:\UQCSecurity.mdb"

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False,
";PWD=Picard359")
oAcc.OpenCurrentDatabase TMP

'Build Query to Select Password for Checking

strSQL = "select Password, UserProfile, DateReview, [Checker No] from
tblPasswords where NTLogon " & _
" = """ & strUserId & """ and Password = """ & strPWD & """"

:

What is the code step where you set db to CurrentDb?

--

Ken Snell
<MS ACCESS MVP>

Hi All

When I'm trying to run an Access application I'm getting an error
message
:

Object variable or With block variable not set

Bit it's falling over is ;

'And run the query to produce a recordset
Set qdf = db.CreateQueryDef("")
With qdf
.SQL = strSQL
Set rec = .OpenRecordset()
End With

Your help would be very much appreciated

Badger

 

[Badger04]

Morning Ken

I can open the UQCSecurity db direct without any problems!

Various KB search results have suggested that it maybe a dll problems, but
if so I wouldn't know how to resilve this, I have tried changing the
references and has made no difference.

Mark

Does the PC that isn't working have full read/write/delete/create rights to
the folder where the database UQCSecurity.mdb is located?

--

Ken Snell
<MS ACCESS MVP>

Hi Ken

error occurs :

Set qdf = db.CreateQueryDef("")

I have just ran the db on a box that hasn't got VB installed and it works
fine, Am I following a red herring with this line of investigation?

Many thanks

On which exact line do you get the "object not set" error?

--

Ken Snell
<MS ACCESS MVP>

Thanks Ken for your attention,
I am thinking it could be referrencing issue as users are running the
production version fine, as my machine is a developer build (with VB,
MDAC
2.6 etc) , unless your knowledge can point me in the right direction.

TIA Badger

Code immediately prior to Set qdf is ;

'Opens external password Protected db to provide details of password
for
user
Dim oAcc As Access.Application

Const TMP = "E:\UQCSecurity.mdb"

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False,
";PWD=Picard359")
oAcc.OpenCurrentDatabase TMP

'Build Query to Select Password for Checking

strSQL = "select Password, UserProfile, DateReview, [Checker No] from
tblPasswords where NTLogon " & _
" = """ & strUserId & """ and Password = """ & strPWD & """"

:

What is the code step where you set db to CurrentDb?

--

Ken Snell
<MS ACCESS MVP>

Hi All

When I'm trying to run an Access application I'm getting an error
message
:

Object variable or With block variable not set

Bit it's falling over is ;

'And run the query to produce a recordset
Set qdf = db.CreateQueryDef("")
With qdf
.SQL = strSQL
Set rec = .OpenRecordset()
End With

Your help would be very much appreciated

Badger

 

[Ken Snell [MVP]]

It may be some type of dll file conflict or such. Unfortunately, I don't
have other suggestions for you about this. Perhaps you could try
reinstalling the software?

--

Ken Snell
<MS ACCESS MVP>

Morning Ken

I can open the UQCSecurity db direct without any problems!

Various KB search results have suggested that it maybe a dll problems, but
if so I wouldn't know how to resilve this, I have tried changing the
references and has made no difference.

Mark

Does the PC that isn't working have full read/write/delete/create rights
to
the folder where the database UQCSecurity.mdb is located?

--

Ken Snell
<MS ACCESS MVP>

Hi Ken

error occurs :

Set qdf = db.CreateQueryDef("")

I have just ran the db on a box that hasn't got VB installed and it
works
fine, Am I following a red herring with this line of investigation?

Many thanks


:

On which exact line do you get the "object not set" error?

--

Ken Snell
<MS ACCESS MVP>

Thanks Ken for your attention,
I am thinking it could be referrencing issue as users are running
the
production version fine, as my machine is a developer build (with
VB,
MDAC
2.6 etc) , unless your knowledge can point me in the right
direction.

TIA Badger

Code immediately prior to Set qdf is ;

'Opens external password Protected db to provide details of password
for
user
Dim oAcc As Access.Application

Const TMP = "E:\UQCSecurity.mdb"

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False,
";PWD=Picard359")
oAcc.OpenCurrentDatabase TMP

'Build Query to Select Password for Checking

strSQL = "select Password, UserProfile, DateReview, [Checker No]
from
tblPasswords where NTLogon " & _
" = """ & strUserId & """ and Password = """ & strPWD &
""""

:

What is the code step where you set db to CurrentDb?

--

Ken Snell
<MS ACCESS MVP>

Hi All

When I'm trying to run an Access application I'm getting an error
message
:

Object variable or With block variable not set

Bit it's falling over is ;

'And run the query to produce a recordset
Set qdf = db.CreateQueryDef("")
With qdf
.SQL = strSQL
Set rec = .OpenRecordset()
End With

Your help would be very much appreciated

Badger

 

[Badger04]

Ken

Thank you very much for your time on this, if I get to the bottom of it I
will let you know.

Mark

It may be some type of dll file conflict or such. Unfortunately, I don't
have other suggestions for you about this. Perhaps you could try
reinstalling the software?

--

Ken Snell
<MS ACCESS MVP>

Morning Ken

I can open the UQCSecurity db direct without any problems!

Various KB search results have suggested that it maybe a dll problems, but
if so I wouldn't know how to resilve this, I have tried changing the
references and has made no difference.

Mark

Does the PC that isn't working have full read/write/delete/create rights
to
the folder where the database UQCSecurity.mdb is located?

--

Ken Snell
<MS ACCESS MVP>

Hi Ken

error occurs :

Set qdf = db.CreateQueryDef("")

I have just ran the db on a box that hasn't got VB installed and it
works
fine, Am I following a red herring with this line of investigation?

Many thanks


:

On which exact line do you get the "object not set" error?

--

Ken Snell
<MS ACCESS MVP>

Thanks Ken for your attention,
I am thinking it could be referrencing issue as users are running
the
production version fine, as my machine is a developer build (with
VB,
MDAC
2.6 etc) , unless your knowledge can point me in the right
direction.

TIA Badger

Code immediately prior to Set qdf is ;

'Opens external password Protected db to provide details of password
for
user
Dim oAcc As Access.Application

Const TMP = "E:\UQCSecurity.mdb"

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, False, False,
";PWD=Picard359")
oAcc.OpenCurrentDatabase TMP

'Build Query to Select Password for Checking

strSQL = "select Password, UserProfile, DateReview, [Checker No]
from
tblPasswords where NTLogon " & _
" = """ & strUserId & """ and Password = """ & strPWD &
""""

:

What is the code step where you set db to CurrentDb?

--

Ken Snell
<MS ACCESS MVP>

Hi All

When I'm trying to run an Access application I'm getting an error
message
:

Object variable or With block variable not set

Bit it's falling over is ;

'And run the query to produce a recordset
Set qdf = db.CreateQueryDef("")
With qdf
.SQL = strSQL
Set rec = .OpenRecordset()
End With

Your help would be very much appreciated

Badger