S
Sandy
Hi,
Is it possible to use only one calendar rather than two as I have at the
moment?
Private Sub cmdCollected_Click()
ocxCalendarCollected.Visible = True
If Not IsNull(txtDateCollected) Then
ocxCalendarCollected.Value = txtDateCollected.Value
Else
ocxCalendarCollected = Date
End If
End Sub
Private Sub cmdReady_Click()
ocxCalendarReady.Visible = True
If Not IsNull(txtDateReady) Then
ocxCalendarReady.Value = txtDateReady.Value
Else
ocxCalendarReady = Date
End If
End Sub
Private Sub ocxCalendarCollected_Click()
txtDateCollected.Value = ocxCalendarCollected.Value
chkJobComplete.SetFocus
ocxCalendarCollected.Visible = False
cmdCollected.Visible = False
End Sub
Private Sub ocxCalendarReady_Click()
txtDateReady.Value = ocxCalendarReady.Value
chkJobComplete.SetFocus
ocxCalendarReady.Visible = False
cmdReady.Visible = False
End Sub
Thanks
Sandy
Is it possible to use only one calendar rather than two as I have at the
moment?
Private Sub cmdCollected_Click()
ocxCalendarCollected.Visible = True
If Not IsNull(txtDateCollected) Then
ocxCalendarCollected.Value = txtDateCollected.Value
Else
ocxCalendarCollected = Date
End If
End Sub
Private Sub cmdReady_Click()
ocxCalendarReady.Visible = True
If Not IsNull(txtDateReady) Then
ocxCalendarReady.Value = txtDateReady.Value
Else
ocxCalendarReady = Date
End If
End Sub
Private Sub ocxCalendarCollected_Click()
txtDateCollected.Value = ocxCalendarCollected.Value
chkJobComplete.SetFocus
ocxCalendarCollected.Visible = False
cmdCollected.Visible = False
End Sub
Private Sub ocxCalendarReady_Click()
txtDateReady.Value = ocxCalendarReady.Value
chkJobComplete.SetFocus
ocxCalendarReady.Visible = False
cmdReady.Visible = False
End Sub
Thanks
Sandy