Question : Item cannot be found in the collection corresponding to the requested name or ordinal (MS ACCESS)

Hi, I don't understand what is wrong in there,

    If Not IsNull(txtID.Value) Then
   
    Const conNumButtons = 8
   
    Dim con As Object
    Dim rs As Object
    Dim stSql As String
    Dim strID As Integer
   
    strID = Me.txtID.Value
   
    ' Open the table of Switchboard Items, and find
    ' the first item for this Switchboard Page.
    Set con = Application.CurrentProject.Connection
   
    stSql = "SELECT no_facture FROM tblFacture"
    stSql = stSql & " WHERE tblFacture.no_dossier1 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier2 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier3 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier4 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier5 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier6 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier7 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier8 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier9 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier10 like " & strID & ";"
   
    Set rs = CreateObject("ADODB.Recordset")
   
    rs.Open stSql, con, 1   ' 1 = adOpenKeyset
   
    ' If there are no options for this Switchboard Page,
    ' display a message.  Otherwise, fill the page with the items.
    If IsNull(rs![ItemText]) Then
        Me.txtFacture.Visible = False
        Me.lblFacture.Visible = False
    Else
        Me.txtFacture.Value = rs![ItemText]
        Me.txtFacture.Visible = True
        Me.lblFacture.Visible = True
    End If

    ' Close the recordset and the database.
    rs.Close
    Set rs = Nothing
    Set con = Nothing
   
    End If

I'm trying to get the value in the recordset and display it in the txtFacture textbox.  I getting the error message :  Item cannot be found in the collection corresponding to the requested name or ordinal.

Plz help.  Its urgent.

Regards

Answer : Item cannot be found in the collection corresponding to the requested name or ordinal (MS ACCESS)

Your select statement that is used as the resord source for the recordset rs starts
    stSql = "SELECT no_facture FROM tblFacture"

the Field no_facture is the only field in the recordset

but in your code you have rs![ItemText]. You have not selected ItemText. You need to have rs![no_facture] or rs(0), or add ItemText as part of the select

i.e.     stSql = "SELECT no_facture, ItemText FROM tblFacture"
Random Solutions  
 
programming4us programming4us