Recent content by wwhit

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?