ThatNewGuy
Technical User
Hello, bear with me through this I'm obviously an Access newbie.
I've installed Calendar Control 10.0 into a form that I'm working on. The purpose of the form is to select products, quantity, and due dates in order to create a daily/weekly production schedule. The problem I'm running into is that I can only select one date for one product number per report. For example, if there is an order for the same product number that product might be due on 2/5/07 and 2/9/07. I can select both dates through the control but the only product and date that populates the report is obviously the last one from 2/9/07 becuz it's the last data in the field. Is there code that once the first date is selected it populates the report but then the field resets in order to select a later date for the same product so that two varying dates can be on one report for the same product.
The simple current code is:
Private Sub Date_Due_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Calendar4.Visible = True
Calendar4.SetFocus
If Not IsNull(Date_Due) Then
Calendar4.Value = Date_Due.Value
Else
Calendar4.Value = Date
End If
End Sub
Any help would be appreciated. Thx
I've installed Calendar Control 10.0 into a form that I'm working on. The purpose of the form is to select products, quantity, and due dates in order to create a daily/weekly production schedule. The problem I'm running into is that I can only select one date for one product number per report. For example, if there is an order for the same product number that product might be due on 2/5/07 and 2/9/07. I can select both dates through the control but the only product and date that populates the report is obviously the last one from 2/9/07 becuz it's the last data in the field. Is there code that once the first date is selected it populates the report but then the field resets in order to select a later date for the same product so that two varying dates can be on one report for the same product.
The simple current code is:
Private Sub Date_Due_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Calendar4.Visible = True
Calendar4.SetFocus
If Not IsNull(Date_Due) Then
Calendar4.Value = Date_Due.Value
Else
Calendar4.Value = Date
End If
End Sub
Any help would be appreciated. Thx