Getting at access feilds indirectly

Hi,

I'm trying to build a generic routine that will load a combobox from a
table:

Public Sub Load_Class(InCntl As ComboBox, s_Table As String, s_Item_Name As
String, s_Index_Name As String)

Dim ss_Temp As Recordset

On Error GoTo 0
If Not f_db_Comics_Open Then
' Open Database and Recordsets
Set db_Comics = OpenDatabase(LocDataPath & dbaseName)
f_db_Comics_Open = True
End If

SQL = "Select * From " & s_Table & " Order By " & s_Item_Name
Set ss_Temp = db_Comics.OpenRecordset(SQL, dbOpenSnapshot)
L1 = 1
cls_cb_Load.Num_Entries = ss_Temp.RecordCount
InCntl.Clear
InCntl.AddItem s_Table
InCntl.ItemData(0) = 0

Do Until ss_Temp.EOF
InCntl.AddItem ss_Temp.Fields![s_Item_Name]
InCntl.ItemData(L1) = ss_Temp![s_Index_Name]
ss_Temp.MoveNext
L1 = L1 + 1
Loop
InCntl.ListIndex = 0

On Error Resume Next
ss_Temp.Close

End Sub


My problem is I can't find a method to address the fields indirectly:

InCntl.AddItem ss_Temp.Fields![s_Item_Name]
InCntl.ItemData(L1) = ss_Temp![s_Index_Name]

These don't work, and none of the variations I've tried work.

Any help appreciated,
David





--
"We Are Grey. We stand between the dark and the light."

Try:
ss_Temp.Fields("s_Item_Name").Value

--
Chris Hanscom - Microsoft MVP (VB)
Veign's Resource Center
<a style='text-decoration: underline;' href="http://www.veign.com/vrc_main.asp" target="_blank">http://www.veign.com/vrc_main.asp</a>
--

"David B. Elson" <david.elson.DeleteThis@sympatico.ca> wrote in message
news:ZYoPd.34256$Ub4.1547141@news20.bellglobal.com...
 > Hi,
 >
 > I'm trying to build a generic routine that will load a combobox from a
 > table:
 >
 > Public Sub Load_Class(InCntl As ComboBox, s_Table As String, s_Item_Name
As
 > String, s_Index_Name As String)
 >
 > Dim ss_Temp As Recordset
 >
 > On Error GoTo 0
 > If Not f_db_Comics_Open Then
 > ' Open Database and Recordsets
 > Set db_Comics = OpenDatabase(LocDataPath & dbaseName)
 > f_db_Comics_Open = True
 > End If
 >
 > SQL = "Select * From " & s_Table & " Order By " & s_Item_Name
 > Set ss_Temp = db_Comics.OpenRecordset(SQL, dbOpenSnapshot)
 > L1 = 1
 > cls_cb_Load.Num_Entries = ss_Temp.RecordCount
 > InCntl.Clear
 > InCntl.AddItem s_Table
 > InCntl.ItemData(0) = 0
 >
 > Do Until ss_Temp.EOF
 > InCntl.AddItem ss_Temp.Fields![s_Item_Name]
 > InCntl.ItemData(L1) = ss_Temp![s_Index_Name]
 > ss_Temp.MoveNext
 > L1 = L1 + 1
 > Loop
 > InCntl.ListIndex = 0
 >
 > On Error Resume Next
 > ss_Temp.Close
 >
 > End Sub
 >
 >
 > My problem is I can't find a method to address the fields indirectly:
 >
 > InCntl.AddItem ss_Temp.Fields![s_Item_Name]
 > InCntl.ItemData(L1) = ss_Temp![s_Index_Name]
 >
 > These don't work, and none of the variations I've tried work.
 >
 > Any help appreciated,
 > David
 >
 >
 >
 >
 >
 > --
 > "We Are Grey. We stand between the dark and the light."
 >
 ><!-- ~MESSAGE_AFTER~ -->