Option Compare Database
Public Function HorizontalName(fld2 As Variant) As String
Dim SQLx, Hname As String
Dim rs As DAO.Recordset
SQLx = "select q1.kind ,q1.dec from q1 order by q1.[kind],q1.A_no;"
Set rs = CurrentDb.OpenRecordset(SQLx, dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
If rs!kind = fld2 Then
Hname = Hname & "¡" & rs!Dec
End If
rs.MoveNext
Loop
If Hname <> "" Then
HorizontalName = Right(Hname, Len(Hname) - 1)
Else
HorizontalName = Hname
End If
Set rs = Nothing
End Function