question about Enumfields

[joshynaresh]

In this code what is mean by EnumFields. when I insert this code error msg comes as sub of function not defined.

Sub SelectX1()
    Dim dbs As Database, rst As Recordset

    ' Modify this line to include the path to Northwind
    ' on your computer.
    Set dbs = OpenDatabase("Northwind.mdb")

    ' Select the last name and first name values of all 
    ' records in the Employees table.
    Set rst = dbs.OpenRecordset("SELECT LastName, " _
        & "FirstName FROM Employees;")

    ' Populate the recordset.
    rst.MoveLast

    ' Call EnumFields to print the contents of the
    ' Recordset.
    EnumFields rst,12

    dbs.Close
 End Sub

[ranman256]

Enumfields usually refers to the builtin event of a class. Dont use it.
For a recordset, just cycle thru the recordset yourself...

with rst
  while not .eof()
      vName =  .fields("Name").value 
      debug.print vName

      .movenext
  wend
end with

[ItsMe]

I was unaware of EnumFields and Googled it. Aparently, it is a tool for debugging. It will enumerate a DAO recordset and print it to the Immediate Window.

So, after "EnumFields rst,12" you can view the result in the Immediate Window. The keyboard shortcut to open the Immediate Window is Ctrl+G.

[joshynaresh]

how to overcome from error msg "sub or function not defined".

[June7]

Follow advice already given. Don't use EnumFields. VBA is not recognizing. Use the alternative given by ranman in post 2.