[RESOLVED] Run-time error 91 Object variable or With block variable not set

[gracehskuo]

hi,please help with error message code Run-time error 91 Object variable or With block variable not set

With cboempNo
        .clear
Set rs1 = OpenRecordset("select distinct EmployeeNo From Employee,WHERE Status = 'Active'", adOpenStatic, adLockReadOnly)
   While Not rs1.EOF error message highlight at this line 
            cboempNo.AddItem rs1!EmployeeNo & vbNullString
            rs1.MoveNext
        Wend
        rs1.Close
Set rs1 = Nothing
End With

[seenu_1st]

is this line ok? it shuld be DB.OpenRecordset isnt it?

Set rs1 = OpenRecordset("select distinct EmployeeNo From Employee,WHERE Status = 'Active'", adOpenStatic, adLockReadOnly)

[gracehskuo]

seenu_1st:
yes,is DB.OpenRecordset.The problem still the same.

[seenu_1st]

can u try this

set rs1 = DB.OpenRecordset("select distinct EmployeeNo From Employee WHERE Status='Active'")

if still problem, pls attach the project as zip if posible.

[gracehskuo]

seenu_1st:
another error appear Runtime error "424" object required!

[seenu_1st]

can u post the declaration, connection code? there may be any missing

[gracehskuo]

Private Sub Form_Load()
Dim rs1 As ADODB.Recordset
Dim UserId As String
Dim EmployeeNo1 As String


With cboempNo
        .clear
'Set rs1 = OpenRecordset("select distinct EmployeeNo From Employee,WHERE Status = 'Active'", adOpenStatic, adLockReadOnly)
 Set rs1 = DB.OpenRecordset("select distinct EmployeeNo From Employee WHERE Status='Active'")
   While Not rs1.EOF
            cboempNo.AddItem rs1!EmployeeNo & vbNullString
            rs1.MoveNext
        Wend
        rs1.Close
Set rs1 = Nothing
End With



lpPrevWndProc = SetWindowLong(DataGrid1.hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub

[seenu_1st]

grace, u r confusing with DAO and ADO, try this code, dont forget to set reference to MS ActiveX Data Object Library, change the path and filename of mdb file as u need in the blue color line

Option Explicit
'set reference to MS Activex Data Objects Library

Dim cn As ADODB.Connection  'this is the connection object
Dim rs As ADODB.Recordset   'this is the recordset object

Private Sub Form_Load()
Set cn = New ADODB.Connection
'specify the connectionstring
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\DB1.mdb"
'open the connection
cn.Open

'instantiate the recordset object
Set rs = New ADODB.Recordset
'open the recordset
With rs
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    
    .Open "select distinct EmployeeNo From Employee WHERE Status='Active'"
    
    While Not rs.EOF
        Combo1.AddItem rs!EmployeeNo
        .MoveNext
    Wend
End With
End Sub

[gracehskuo]

thanks the problem solved!

[anu1430077]

Hello Seenu
I have similar kind of problem i am accessing the web scraping through VBA, please could look into it. thanks in advance

Sub Login()

Dim i As SHDocVw.InternetExplorerMedium


Set i = New InternetExplorerMedium

i.Visible = True
i.navigate "https://tgct.gov.in/tgvatisreports/"

Do While i.readyState <> READYSTATE_COMPLETE
Loop

Dim idoc As MSHTML.HTMLDocument
Set idoc = i.document

'MsgBox idoc
idoc.getElementsByTagName("Input").Item("OffUidtxt").Value = "hello"




End Sub

[Arnoutdv]

You replied to a thread which is 8 years old.
The thread is about ADO, queries and recordsets, while your question is about webscraping.
Next you say you are using VBA, which has it's own subforum.

And we don't like webscraping requests
What do you want to scrape from a login page on taxes page?