Search results

If any possible set a criteria in Query as: Like " ' "?

May I ask if txet field can be filtered?

It was number. Now I changed to text.

I updated the codes based on yours. It still has a problem: Syntax error in string in query expression '[Cm Code]='0245 OR [CM Code] = 0245' Debug: DoCmd.OpenReport "rptMainContractLabourCosting", acViewPreview, , strWhere I think the following codes may be referred to it If Len(strWhere)...

Thanks. I notice that. I have updated it. However, it still has an error: missing),], or It Item in query expression '([CM Code] = '326'.' Debug: DoCmd.OpenReport strReport, lngView, , strWhere Can you help me to spot error below. Many thanks If Len(Me.txtStartCmCode & vbNullString) <> 0...

I have extracted your code. However, the filter is not working. For example, I enter Start Cm Code: 246, End Cm Code: 246. It shows 246 and other Codes as well. I attach my entire codes below, can you have a look what is missing. Private Sub cmdPreview_Click() 'On Error GoTo Err_Handler...

Sorry, this is differ from last one. I'm trying to use different approach to set a filter for different types data. This form is a bridge between MainContractLabourCosting and Report. I set up two text boxes. One is txtStartCmcode, one is txtEndCmcode, use a preview button to show the report...

Sorry, I have two versions ie 2000, and 2007

I trying to filter out text codes and limiting report to text codes range, I set CM Code as text type. I pasted the following codes in Event Procedure, however, there is an error come up: 'Run-time error '3075' Syntax error (missing operator) in query (expression '[CM Code]'245 AND ([CM Code]...

. Access 2007

I want to protect my database after completing a database design. I know I need to create a switch board fist, however I don't know how to hide the design buttons. Can someone give me a tip :confused: Thanks Sunny

Thank you very much! Again it works for me!!!!

I have tried it. There is Error Message: Run-time error'3464' Data type mismatch in criteria expression Debug: DoCmd.OpenForm "MainContractCost", , , stCmCodeFilter

I have tried, there is a Error '3464' Date type mismatch in criteria expression. Debug: DoCmd.OpenForm "MainContractCost", , , stCmCodeFilter

Dim strWhere As String 'The criteria string. Dim lngLen As Long 'Length of the criteria string to append Dim stFormName As String Dim stCmCodeFilter As String If Not IsNull(Me.txtFilterCmCode) Then strWhere = strWhere & "([CM Code]=" & Me.txtFilterCmCode & ") AND " End If stFormName =...

There is a Message: Run-time error '3075' Syntax (Missing operator) in query expression '([CM Code] = 200 A' Debug: Me.Filter = strWhere :confused:

I created a search button for searching a job reference (Called 'CM Code'. The code is below Dim strWhere As String 'The criteria string. Dim lngLen As Long 'Length of the criteria string to append Dim stFormName As String Dim...

Thank you very much! It works for me!!!:)

Sorry, my version cannot recognises 'accForm' Thanks Sunny