hi
look at set iRS code ....Pl help i am new to VB...
Pl
Private Sub txt_ItemNo_Change()
Dim rRs As Recordset, strSQL As String, g_Pr_Item_No As String, i As Byte
On Error GoTo txt_ItemNo_Change_Error
If bool_ItemNo = True Then
For i = 0 To 6: txt_Product(i) = "": Next: bool_ItemNo = False: Exit Sub
End If
g_Pr_Item_No = Trim(UCase(txt_ItemNo.Text)): lst_ItemNo.Visible = False
If Len(g_Pr_Item_No) > 3 Then
strSQL = "Select ITEM_NO From IC_ITEM_MST " & _
" Where ITEM_NO Like '" & g_Pr_Item_No & "%' GROUP BY ITEM_NO "
Set iRs = dbS.OpenRecordset(strSQL, dbOpenSnapshot, dbSQLPassThrough): lst_ItemNo.Clear
If g_Pr_Item_No <> "" Then
Do While Not iRs.EOF
lst_ItemNo.AddItem iRs.Fields(0): iRs.MoveNext
Loop
If lst_ItemNo.ListCount > 0 Then lst_ItemNo.Visible = True: bool_ItemNo = False
End If
End If: Exit Sub
txt_ItemNo_Change_Error:
CreateErrorLogFile " txt_ItemNo_Change ", g_str_LogErrorFile, Err.Number, Err.Description
End Sub
strQry = "Select ITEM_NO From IC_ITEM_MST " & _
" Where ITEM_NO Like '" & g_Pr_Item_No & "%' GROUP BY ITEM_NO "
Set ADORS = New ADODB.Recordset
ADORS.Open strQry, ADO_CONN, adOpenStatic, adLockBatchOptimistic