Search results

I figured it out. I just did a DoCmd to run the append query four times. That was easier. Thanks,

Here is the code I entered into the on click button and it is not working. Private Sub Command16_Click() Dim x As Integer For x = 0 To 4 Dim s As String s = " INSERT INTO [Daily Crew Assignment] ([DL EMPLOYEE], [DL WITH CREW], [DL MEMO], [DL EMLDATE], [DL ENTERED BY] )" & _ "...

I put the following in the on click command button: Dim x As Integer For x = 0 To 4 Debug.Print DateAdd("d", x, [Forms]![Time Off Form]![EMLDATE]) Next x DoCmd.OpenQuery "Time Off Append Query" What am I doing wrong?

Yes we would delete the records that we don't need. I have two questions. Would x need to equal something? If I do this then in the query how do I do the expression? I've never done a loop before so I am curious before I try it. Dim x As Integer ? x="EMLDATE"? For x = 0 To 4 Debug.Print...

I'm using 2007.

I have used the Insert Into with an append query that runs on the form with a command button. I am working with the Date Expression. This actual works but only puts one record into the table which is the date plus four into the table. If I have 08/16/2011 then it will add one record for...

I have a form that has the following to be used like a time card: Employee Name Hours Start Date End Date I would like the user to be able to enter the above information for a week at a time. I would like access to auto fill the table for the week. For example: Employee Name = Jane Doe...

Worked like a charm. I did try to do the strFilter with the "calculation" however I was keeping the "Sum" still in the coded information. No wonder it wouldn't work. Thanks again for all your help. The report is now completed thanks to you and your great expertise!!!

I have tried a couple of options like putting a message box in report page or report print to let the user know if there is a blank page that they have no employees. Still not sure if there is an option. Thanks for helping me with all of this. Let me know if you find a way around it...

No I don't get any message. The report just pulls up like the attachment.

I had this code to "trap" the error: Private Sub Command6_Click() On Error GoTo Err_Command6_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "2011 Sick AbuserTbl MM Report" DoCmd.OpenReport stDocName, acPreview Exit_Command6_Click: Exit Sub...

That worked. No more blank page if the report has information. What about if it doesn't have information? I have put this code in the Report: Private Sub Report_NoData(Cancel As Integer) MsgBox ("There are No Employees that have a Notification of Excessive Use of Sick Leave in the " &...

It is working so well. The only thing I get is one empty page at the end. I did put the code in the page header too. Don't really care about that one empty page as long as it is working. Again thank you so much!!!

That worked!!! Thank you so much!!! Much appreciative and thanks for sticking with me...

Where is the Text1 in the GroupHeader0?

You should have two pages of records. One for John and one for Jane. Use a year in the criteria. Start Date = 09/01/2010 End Date = 08/31/2011 and DepartmentName as "Finance".

When you open the report I only want the information for the one employee (Jane Doe) and no info for the other (John Doe). Let me know if it makes sense. Thanks.

I have the sample database ready. It should be attached.

I also tried to do another crosstab query on the original crosstab query so that I could do the calculations there then have it filter criteria with greater than zero (as you suggested to do the filter in a query). Still not working. I am doing something so wrong. It is driving me up the wall...

Tried that already in the GroupFooter_1 section because that is where the text boxes are located. Already have the code as such: Private Sub GroupFooter1_Print(Cancel As Integer, PrintCount As Integer) Const WHITE = 16777215 Const RED = 255 Const BLACK = 0 If (Me![Text1]) > 0 Then...