Search results

I tried this for my label captions and its not displaying what I want. Showing up as “1=1 AND [mth]” Private Sub Report_Open(Cancel As Integer) Dim strCriteria As String strCriteria = "1=1" If IsNumeric(Forms!AuditAccuracy_Reports!cboMonth) Then strCriteria = strCriteria & " AND [mth] =...

I got it working now with this code. Thanks. Private Sub cmdGetReport_Click() Dim strCriteria As String strCriteria = "1=1" If IsNumeric(Forms!AuditAccuracy_Reports!cboMonth) Then strCriteria = strCriteria & " AND [mth] = " & Forms!AuditAccuracy_Reports!cboMonth If...

My cboYear just uses list values.

So my cboMonth combo box uses a table to get the data from there is a field with the number of the month 1-12, then the next field has the actual month January, February etc I also have a field where it has an actual date, 1/1/2020, 2/1/2020, 3/1/20. I'm just wondering if that might be causing...

I did what you said, but I got an error message still. Runtime error ' 13" Type mismatch. Then the following code was highlighted: cbMonth = Forms!AuditAccuracy_Reports!cboMonth All the code that I have is : Private Sub cmdGetReport_Click() Dim cbMonth As Integer Dim cbYear As Integer Dim...

Private Sub cmdGetReport_Click() Dim cbMonth As Integer Dim cbYear As String Dim strMth As Integer Dim strYr As String cbMonth = Forms!AuditAccuracy_Reports!cboMonth cbYear = Forms!AuditAccuracy_Reports!cboYear If (IsNull(cbMonth) = False) Then strMth = cbMonth Else: strMth = " " End If If...

[mth] and [yr} data I believe are string data. I get those fields from month([datefield]) Year([datefield]) query Should they be integer?

I forgot to change the last part. cbYear to strYr. Is that correct. I'm sorry I am still a novice with programming. DoCmd.OpenReport "R_MA_audits_Total_Accuracy", acViewReport, , "[mth]=" & strMth & " And [Yr]=" & strYr

I'm not sure If Im on the right track or not This is what I have so far. Dim cbMonth as String Dim cbYear As String Dim strMth As String Dim strYr as String cbMonth = Forms!AuditAccuracy_Reports!cboMonth cbYear = Forms!AuditAccuracy_Reports!cboYear If (IsNull(cbMonth) = False) Then strMth =...

When I add the year also, it doesn't let me only select month or only the year though. It gives me an error message if both aren't selected. It give me that same problem I had before. I want to have an option to show all the month and to show all the years for the user. DoCmd.OpenReport...

I got this code to work properly. DoCmd.OpenReport "R_MA_audits_Total_Accuracy", acViewReport, , "[mth]=" & Forms!AuditAccuracy_Reports!cboMonth

I am trying to do that and getting this error "Runtime error ' 3075' syntax error in string in query expression ' [mth]='4' ( iget that error when April is selected, so its showing the correct value for the cboMonth. Private Sub cmdGetReport_Click() If Me.cboReportType = "Q1 - MergeAudit...

I have a form with a few combo boxes, that will open up different reports and filter the report by month and year. I set the criteria in my queries for the reports to equal the value in the comboboxes. I I have a 3 combos boxes. One combo box is for the type of report, then one combo box is...

I think I figured it out myself. I didn't change all the linked tables to the sql server q1_workload table for all my querys. my dummy q1_workload table that is in access only has 734 records in it.

I have 2 tables (Q1_Workload and Q1_audit) that are related one to one by lpersonID_Q1 field. Q1_workload table has more records in it. Audit table doesnt have all matching records. I made a Left Join query with the 2 tables, called it pending_auditlist. pending_auditlist query shows all the...

It works, Thanks!

I'm trying to set 2 different filters at the same time but when I try to do both it doesn't work. I have 2 combo boxs, one with month, one for Year. I want to be able to select month and year and filter my year and month fields. for my continuous form. It works when I only have the code for one...

It works, Thanks!

For my other unbound form Where I delete users, I need to change that code also. How would I add dbOpenDynaset, dbSeeChanges to this code. I keep getting errors trying to add it. If I figure it out I will post it also. Private Sub cmdDelete_Click() Dim dbs As DAO.Database, sql As String...

now its working.