Search results

The buttons (unbounded) are on the Main form (form header). If it is convenient can you look at the Database1, please? MajP, when I replace your code and press search button it show me that I have not chosen criteria

Hi all, I need some help to filter my subform, which is made by query . What I miss and what needs to be added to the code to work? Private Sub cmdSearch_Click() Dim strQuery As String Dim strWhere As String Dim lngLen As Long Const conJetDate = "\#mm\/dd\/yyyy\#" strQuery...

Good suggestion, I will add option explicit and will sort out the variables And yet if there is any idea how I could do it with VBA please share it :)

Yes, query1 is only for that report and when I put criteria in the query it works perfect: [tbl_Inspections.Worker]=[forms]![fm_Report2]![cbo_Worker] Or [forms]![fm_Report2]![cbo_Worker] Is Null IIf([Forms]![fm_Report2]![txt_DateFrom] Is Null And [forms]![fm_Report2]![txt_DateTo] Is...

The Record Source of the report is Query3. If I add the where clause here: DoCmd.OpenReport reportName, acViewReport, , strWhere it shows me "Enter Parameter value DateTask and Worker because in Query3 there is no Date and Worker

enjoy watching the Portugal Grand Prix :) When you have time would you tell me what i need to modify in the code to work properly please?

no, just the code doesn't work and no filtering is done. I don't know where the problem might be

With the code I want to filter by date and worker it doesn't work.

Yes, i can't understand why the code doesn't filter query1 and then open the report based on query3. The code simply loads the report without performing the filtering

Good evening all. I have a problem with my query filtering code. I can't figure out where the problem is and why it doesn't work. Here is the code: Private Sub cmdReport_Click() Dim reportName As String Dim strQuery As String Dim strDateField As String Dim strWhere As String...

Thank you very much for the helpful tips, plog, pbaldy, arnelgp. With plog' s code I solved the task and the problem. X: SUM( Iif([Type] LIKE "A*" OR [Type] LIKE "B*" OR ... You are awesome!

Hi, is it possible to sum 3 expression columns in query and how to do it? The expression columns is: curruntInspection: Sum(IIf([Type] Like "curruntInspection*";1;Null)) targetedInspection: Sum(IIf([Type] Like"targetedInspection*";1;Null)) thematicInspection: Sum(IIf([Type] Like...

Тhank you, I will try your solution and return feedback. Thank you again!

Sorry for my spelling mistake, but "01 Object" is the name of the table I'm trying to copy from the database to another database that

The database is uploaded to a server with this address.: \\192.168.200.222\dzk\DZK\InfSisDZK1_Mo_T01.accdb I'm trying to access but it gives me an error. How to find the correct path to the database on the server?

I changed my format like this: d1 = Format(Date, "ddmmyyyy") d2 = Format(Time, "hhmm") but now I have error '2006" on this row : DoCmd.CopyObject FileNameCopy, "\\192.168.200.222\dzk\DZK\InfSisDZK1_Mo_T01.accdb\01 Objet", acTable, "01 Objet"

Yes, you're right. But how it should be written correctly?

Hi, I need to backup my database. I'm trying to copy tables from original database that is on a server, by pressing a button, to another database. I use this code, but it gives an error a error: Private Sub b1_Click() Dim FileNameOrig As String Dim FileNameCopy As String Dim d...

I did it! Thank you!

Hi, I have a subform with several required comboboxes. I have the following validation code: Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.Parent.objectID = "" Or IsNull(Me.Parent.objectID) Then MsgBox "Please select an object.", vbInformation, "Аttention!"...