C
Casey
I know about the problem with the DTP control and setting MIn/max dates but
sp3 was supposed to cure this.
I'm using VBA in access developer 2000
I have VB 6.0 sp5 installed my mscomct2.ocx is version 6.00.8804 and is in
my system32 directory.
However dtpDuetime.MinDate = Now() returns an error -
Runtime error 35772
An invald date was specified for the MinDate property.
Questions
Does VBA use a different control or ocx/dll the object browser says not?
If not what is wrong?
Full code in the form open procedure is below
Private Sub Form_Open(Cancel As Integer)
Dim intID As Long
Static blCopy As Boolean
DoCmd.OpenForm "frmClientSelect", acNormal, , , acFormEdit, acDialog
intID = Form_frmClientSelect.intID
DoCmd.Close acForm, "frmClientSelect"
If intID >= 0 Then
Me.Filter = "ClientID=" & intID
Me.FilterOn = True
dteMin = Now()
cboResponse = Null
chkCopy = blCopy
dtpDuetime.MinDate = Now()
Else
Cancel = True
End If
End Sub
sp3 was supposed to cure this.
I'm using VBA in access developer 2000
I have VB 6.0 sp5 installed my mscomct2.ocx is version 6.00.8804 and is in
my system32 directory.
However dtpDuetime.MinDate = Now() returns an error -
Runtime error 35772
An invald date was specified for the MinDate property.
Questions
Does VBA use a different control or ocx/dll the object browser says not?
If not what is wrong?
Full code in the form open procedure is below
Private Sub Form_Open(Cancel As Integer)
Dim intID As Long
Static blCopy As Boolean
DoCmd.OpenForm "frmClientSelect", acNormal, , , acFormEdit, acDialog
intID = Form_frmClientSelect.intID
DoCmd.Close acForm, "frmClientSelect"
If intID >= 0 Then
Me.Filter = "ClientID=" & intID
Me.FilterOn = True
dteMin = Now()
cboResponse = Null
chkCopy = blCopy
dtpDuetime.MinDate = Now()
Else
Cancel = True
End If
End Sub