Error 3145 (Filters)

[HS_1]

I was searching the web for examples of filtering continuousform and found database “StudentExplorerFilter” someone posted and it has the filters I was looking for. However I have hard time following the codes as it was written by advanced programmer. I was trying to use the same codes in my database “FilterTracking” but couldn’t make it work. I am getting Error 3145. I suspect that the problem lies in “strRecordSource” ,Private SubGetRecordSource() but with my beginner programming skills I don’t know how to fix it. Wonder if someone can look at the filtersand let me know what I am doing wrong here. Please see both databases attached.

[June7]

Code constructs an SQL statement with WHERE keyword but nothing after WHERE because you have commented lines:

'strWhere = "tbl_Tracking.P_Iso_Dwg Not Like """
'strOrderBy = "tbl_Tracking.P_Iso_Dwg, tbl_Tracking.EHT_Iso_Dwg_No"

Why? Need to provide something for the WHERE clause.

[HS_1]

June7, thanks for the replay, I have made the suggested changes but I am getting error 3075 on top of 3145. See dBase with change. Also would you be willing to explain what the Private Sub GetRecordSource() does, I can't figure out the logic behind it.

[June7]

I get error 3145 error twice when form opens. Not seeing 3075.

WHERE clause still has nothing in it as shown by the print in Immediate Window. You need to learn debugging. Set a breakpoint in form code then close and reopen form. Step through code, watch it execute and view content of variables.

strWhere is a global variable and its value is set in Load event but then GetRecordSource() uses global variables to set strWhere and overwrites what was set in Load event. These global variables do not have any values therefore the WHERE clause is empty and code errors.

Modify line in GetRecordSource to concatenate strWhere to itself and error goes away:

strWhere = strWhere & strPipArea & strPipPlant & strPipUnit & strPipModule & strPipEwp & strPipTracing & strPipIso _
& strEhtIso & strEhtZone & strEhtEwp & strEhtStage & strEhtTracingChck & strEhtDwgType & strLdtFluidCode

This is shown in the template database.

Do a search on GetRecordSource and see where this Sub is called. It rebuilds WHERE clause with selections in search controls.

[HS_1]

I get error 3145 error twice when form opens. Not seeing 3075.

WHERE clause still has nothing in it as shown by the print in Immediate Window. You need to learn debugging. Set a breakpoint in form code then close and reopen form. Step through code, watch it execute and view content of variables.

strWhere is a global variable and its value is set in Load event but then GetRecordSource() uses global variables to set strWhere and overwrites what was set in Load event. These global variables do not have any values therefore the WHERE clause is empty and code errors.

Modify line in GetRecordSource to concatenate strWhere to itself and error goes away:

strWhere = strWhere & strPipArea & strPipPlant & strPipUnit & strPipModule & strPipEwp & strPipTracing & strPipIso _
& strEhtIso & strEhtZone & strEhtEwp & strEhtStage & strEhtTracingChck & strEhtDwgType & strLdtFluidCode

This is shown in the template database.

Do a search on GetRecordSource and see where this Sub is called. It rebuilds WHERE clause with selections in search controls.

[HTML]June7 thanks for your help, wonder if I can bug you one moretime. I finally made the filters work but have problem clearing individual filter, I found out that after I click on the button I can clear the combo value but the form doesn’t refresh neither does string in immediate window .
[/HTML]

[HS_1]

June7 thanks for your help, wonder if I can bug you one moretime. I finally made the filters work but have problem clearing individual filter, I found out that after I click on the button I can clear the combo value but the form doesn’t refresh neither does string in immediate window .

[June7]

The string in immediate window is produced by a Debug.Print command. If procedure does not have this command then nothing will be sent to immediate window. Debug.Print is a debugging tool and is normally commented/removed when procedure works properly.

cmdRemoveFilter procedure does not have a Debug.Print and since does not call GetRecordSource, there is nothing sent to immediate window.

Follow template example in cmdClear code. Set variables and call GetRecordSource.

[HS_1]

Thanks June7, I didn't realized I was missing strWhere and StrOrderBy in each Private Sub cmdClear...._Click() evnt.