I have a multi-record form that needs to display the result of a query. The query itself is predefined and has come computed fileds, regarding to the original tables.
However, dependeing on criteria, only some of the records are to be presented.
My current code, which I believe isw ay out of line is below:
Dim IBool As Boolean
Dim strUserID As String, _
strFilterSQL As String, _
strFilter As String
Dim Q01_UserToDoTasksSet As DAO.Recordset
Set cdiDB = CurrentDb
'On Error GoTo ProcErrorFilter
strUserID = Nz(Forms![F91_LoggedUser]![CurrentUserID], "")
If strUserID <> "" Then
strFilterSQL = "SELECT * FROM Q01_UserToDoTasks WHERE " & "[Q01_UserToDoTasks].[T15_CurrentOwnerID] = " & strUserID
strFilterSQL = "SELECT * FROM Q01_UserToDoTasks WHERE " & "[Q01_UserToDoTasks].[T15_CurrentOwnerID] = '###Impossivel###' "
cdiDB.QueryDefs("Q01_UserToDoTasks").SQL = strFilterSQL
'Me.Form.RecordSource = "Q01_UserToDoTasks"
Set Q01_UserToDoTasksDef = cdiDB.QueryDefs("Q01_UserToDoTasks")
Set Q01_UserToDoTasksDefSet = Q01_FichasSelecionadasDef.OpenRecordset(dbOpenDynaset)
IBool = InsertLog("F0001 Form_Load", "Load", "", "", "", 0, 0, strUserID, "Erro em Filtro. Filtro: '" & Me.Filter & "'")
The Query is Q01_UserToDoTasks and the record source of the form (this is its load event) is linked to the query.
I am getting the aobece circular reference error and can't tell what is wrong as I am a rookie on this pprogramming
can someone help?