ought to be simple, but i clearly have something wrong
if you could take a quick look and let me know if you see something obvious:
me.type is a valid value
qryTypeDetail_InstallationNotes_EOS_text is a valid query (despite the ridiculously long name)
and
InstallationNoteTitle is a valid field in qryTypeDetail_InstallationNotes_EOS_text
Code:
vCriteria = "Type ='" & Me.Type & "'"""
Dim Db As DAO.Database
Dim rs As DAO.Recordset
Set Db = CurrentDb
Set rs = Db.OpenRecordset("SELECT InstallationNoteTitle " & _
"FROM qryTypeDetail_InstallationNotes_EOS_text " & _
"WHERE vCriteria;")
vCountNotes_EOS = DCount("InstallationNoteTitle", "qryTypeDetail_InstallationNotes_EOS_text", vCriteria)
If vCountNotes_EOS > 0 Then
vEOSList = ""
With rs
.MoveLast
.MoveFirst
Do While Not .EOF
vEOSList = vEOSList & .InstallationNoteTitle & ", "
.MoveNext
Loop
.Close
End With
End If
Set rs = Nothing
Set Db = Nothing
stumped
with thanks in advance,
m.