Search results

  1. R

    Less Than Date

    Ok. I think I have found a work around for my report. I created an unbound field in my report called ActCap. If Me.Date < Date() Then Me.ActCap = 0 Else Me.ActCap = Me.PrdCap End If I can't get this to work in a report. Any ideas how to get this to populate in the report? This will help by...
  2. R

    Running Totals

    I have a question regarding reports. I have a report that shows Date, PrdCap, WODD, CountofLot, SumofBoxesBuilt in the Date Header of the report. In the Detail I have Priority(Number), CountofLot, SumofBoxesBuilt. If the Date < Today then the SumofBoxesBuilt is the overage and needs to...
  3. R

    If Then Code

    I want to thank you for all your guidance and help. You have no idea how much you have helped me!!! I have one last question. I would also like the WODD (Work Order Due Date) to update forward based on the WOSD. I played around with the code you added to update the WOSD date. This works great...
  4. R

    If Then Code

    Can I email you a copy of our DB. I have cleaned out all the information and put in some bogus info. I can't get my DB small enough to attach.
  5. R

    If Then Code

    I add a Holiday table called tblHolidays with HolDate and Holiday [text description].
  6. R

    If Then Code

    I add a Holiday table called tblHolidays with HolDate and Holiday [text description].
  7. R

    If Then Code

    I'm getting a syntax error on this: If Weekday(dteCurrDate, vbMonday) <= 5 AND IsNull(DLookup("[Holiday]","tblHolidays", [HolDate] = #" & dteCurrDate & "#") Then
  8. R

    If Then Code

    Yes! Thanks I will give that a shot. I started a Holiday Table. I will mess with that code and see what I can come up with. I will probably need some help as I am still trying to learn this VB code!!!
  9. R

    If Then Code

    A message box came up with 9/9/2005 has a weekday of 5.
  10. R

    If Then Code

    The message box pops up with 9/9 is not a weekend. If it is a special color, and the Delivery Date is 9/15 it should go back 6 days not counting weekends if they occur. So 6 working days from there should be 9/7.
  11. R

    If Then Code

    No. The start date was 9/9.
  12. R

    If Then Code

    The message box comes up as AddColor = True. I put in a date of 9/15 so the start date should be 9/7.
  13. R

    If Then Code

    Ok. I was just trying to figure out a workaround on the special color on my own. I am changing the code back to your final product. The only issue on that form is it still does not recognize special color. Thanks so much for your help.
  14. R

    If Then Code

    Ok. I still can't get it to recognize the special color field. So I changed the input field to a combo box. I tried to add a Select Case statement to address special color. This is the only thing that doesn't work. This is the original input form. I have another form that is identical that is...
  15. R

    If Then Code

    Thank you all so much. The only issue I am having is it's not recoginizing Special Color being selected. It's a checkbox. Do I need to requery? You all have helped me out a great deal!!! I don't know how to thank you!! Private Sub LotDelDate_AfterUpdate() Dim AddColor As Boolean If...
  16. R

    If Then Code

    Yes, that's exactly it. The doorstyle is actuall a combo box with a list a choices. The ones listed specifically take longer to build the other values are our generic doors. Some examples are CC-21, CC-21, CC-1, Shaker, CC-23, etc.. There are a few more choices. One other thing I need to...
  17. R

    If Then Code

    Ok. This works on the lots where the delivery date (LOTDELDATE) goes back 4 days but it isn't skipping weekends on the ones that have to be subtracted 5 days. For example, Lot 53 has a regular door and should start being built 4 work days prior to actual delivery date of 9/15. The work order...
  18. R

    If Then Code

    In the code below, I am trying to autofill a field called WOSD (Work Order Start Date). It works for the Door Types or just the -4 option. However, if the SpecialColor checkbox is checked, it needs to subtract 6 days from the LotDelDate. I must have something typed wrong. I have been trying...
  19. R

    Complex Query and Comparison

    Here is some code that I got started. Private Sub Del__Date_AfterUpdate() TempDate = Weekday(txtDuedateNormal, vbSunday) If Forms!frmDelivery.Form.[SpecialColor] = Yes Then Me.WOSD = Me.LotDelDate - 6 Else If Me.DoorStyle = "AR-756" Then Me.WOSD = Me.LotDelDate - 5 Else Me.WOSD = Me.LotDelDate...
  20. R

    Complex Query and Comparison

    Complex Query and Comaprison Ok. I created a qry called qrySchedulingPrdCapacity. Right now this pulls everything that has a Work Order Start Date (WOSD), Number of Boxes Planned (SumofBoxesBuilt), and Production Capacity for that date (PrdCap). I have some other requirements as well. If the...
Back
Top Bottom