Pass a query's field Value to Function 1

[samn265]

Below is a function to step through a query, one record at a time until the end of the file. I am having a trouble inserting the value of each record “ActiveEmployeeName” to a table. I do not want to append to the table. I just want to have one record in that table which is the value that is passed from the function. I tried to use Make_Table query but it did not work. Any idea of how to do this code?

Function ActiveEmployeeName() As String
Dim rstError As DAO.Recordset
Set rstError = CurrentDb.OpenRecordset("qrySelectCountofActiveEmployees&quot
Do Until rstError.EOF
'MsgBox "Last Name is: " & rstError!LastName
ActiveEmployeeName = rstError!LastName
MsgBox "Last Name is: " & ActiveEmployeeName
rstError.MoveNext
Loop
rstError.Close
Set rstError = Nothing
End Function


I appreciate your help. Thanks,
Sam

 

[mscraig]

Try this minor variation:

Function ActiveEmployeeName() As String
Dim rstError As Recordset
Dim db as DataBase
Dim str as String
Set db = CurrentDb
Set rstError = db.OpenRecordset("qrySelectCountofActiveEmployees&quot
With rstError
Do Until .EOF
str = !LastName
ActiveEmployeeName = str
Msgbox ActiveEmployeeName
.MoveNext
Loop
End With
Set rstError = Nothing

End Function