complie error invalid or unqualified reference

Question

0.00/5 (No votes)

See more:

VB

Private Sub Command1_Click()
 StartStg = DT_Start.Value
 EndStg = DT_end.Value
    db_employee.RecordSource = "SELECT * FROM employee WHERE (((employee.Date) Between # " + StartStg + " # And # " + EndStg
    db_employee.Refresh
    rec_count = .recordset.RecordCount
    If .recordset.RecordCount <> 0 Then
        Populate_lvw_recordsfound

        cmd_PreviewReport.Enabled = True
    Else
        cmd_PreviewReport.Enabled = False
    End If
End With


End Sub

error showing during click or search button

complie error
invalid or unqualified reference

Posted 10-Jun-15 21:10pm

Member 11757843

Updated 10-Jun-15 21:22pm

CPallini

v2

Add a Solution

Comments

Richard MacCutchan 11-Jun-15 3:48am

You need to provide the qualifier for .recordset, the compiler cannot guess what it is part of. I notice you have an End With statement there, but where is its beginning?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Answer 1 · 2015-06-10T21:41:00

Solution 2

The problem is with the line

rec_count = .recordset.RecordCount

There should be an object reference in front of .RecordSet ... possibly it should read

rec_count = db_employee.RecordSet.RecordCount

You will get a similar problem with

If .recordset.RecordCount <> 0 Then

Also be aware that your code is vulnerable to SQL Injection[^]
You may want to also consider using VB.NET instead - the express[^] version is free

Posted 10-Jun-15 21:41pm

CHill60

Comments

Member 11757843 11-Jun-15 3:45am

If .recordset.RecordCount <> 0 Then

complie error
invalid or unqualified reference

CHill60 11-Jun-15 5:01am

I told you that you would get that error and it is exactly the same fix as the previous line. See also the comment from Richard MacCutchan - you have an End With but no starting With db_employee (or whatever was in there that was lost when you copied the code)

Member 11757843 11-Jun-15 3:55am

please reply

OriginalGriff · Answer 2 · 2015-06-10T21:37:00

Solution 1

Check your hash count:

VB

db_employee.RecordSource = "SELECT * FROM employee WHERE (((employee.Date) Between # " + StartStg + " # And # " + EndStg

Did you mean

VB

db_employee.RecordSource = "SELECT * FROM employee WHERE (((employee.Date) Between # " & StartStg & " # And # " & EndStg * " #"

Posted 10-Jun-15 21:37pm

OriginalGriff

Comments

Member 11757843 11-Jun-15 3:43am

error showing again
on
rec_count = .recordset.RecordCount

error coming on recordset

complie error
invalid or unqualified reference

OriginalGriff 11-Jun-15 3:56am

Let me guess...you copied this code from somewhere?
Go back there and look more closely. Was this code inside a With block? If so, you either need to copy the With as well, or add the variable the With referred to to all relevant lines...

Member 11757843 11-Jun-15 4:02am

db_employee.Refresh

syntex error-in from clause
runtime error- 2147217900(80040e14)
method 'refresh' of obkect 'IAdodc' failed

Member 11757843 11-Jun-15 5:30am

Private Sub Command1_Click()
StartStg = DT_Start.Value
EndStg = DT_end.Value
lvw_recordsfound.ListItems.Clear

With db_employee
.RecordSource = "SELECT * FROM employee WHERE (((employee.Date) Between # " & StartStg & " # And # " & EndStg + " #)) "

rec_count = db_employee.recordset.RecordCount
If db_employee.recordset.RecordCount <> 0 Then
Populate_lvw_recordsfound

cmd_PreviewReport.Enabled = True
Else
cmd_PreviewReport.Enabled = False
End If
End With

error in line : rec_count = db_employee.recordset.RecordCount

run time error 91
objectt variable or with block variable not set