Limit on Date

[Stephanie53]

Here is my code:

Private Sub cmdShipping_DblClick(Cancel As Integer)
    If Not ValidateShipping() Then
        MsgBoxOKOnly ShippingNotComplete
    Else
        Me![Status ID] = Shipping_CustomerOrder
        
        If IsNull(Me![Shipped Date]) Then
            Me![Shipped Date] = Date
        End If
        eh.TryToSaveRecord
        SetFormState
    End If
End Sub

How can I put a limit on how orders to schedule on the per ship date?



TIA

Stephanie

[Missinglinq]

After you assign the [Shipped Date], in one way or the other, you can check to see if the shipments exceed your limit for a given date with something like this

If DCount("*", "ActualTableName", "[Shipped Date]= #" & Me.[Shipped Date] & "#") > 2 Then
   MsgBox "More than 2 Items Scheduled to Ship on This Date!"
   Exit Sub
End If

The sample code will pop the Messagebox if there are 3 or more shipments already scheduled for the given date, and exit the Sub, without carrying out the rest of the code, such as saving the Record. This would allow you to try a new shipping date.

You can adjust 2 to fit your needs, of course, and replace ActualTableName with the actual name of your Table.

Linq ;0)>

[Stephanie53]

PERFECT!! and THANK YOU! :-)

Stephanie

[Missinglinq]

Glad we could help, Stephanie!

Good luck with your project!

Linq ;0)>