H
hfreedman
I haven't done any coding in about a year, so I'm a little rusty. I re-used
code from an old project to implement a pop-up calendar. The functions are as
follows:
Private Sub ActiveXCalendar_Click()
[Date Required].Value = ActiveXCalendar.Value
[Date Required].SetFocus
ActiveXCalendar.Visible = False
End Sub
Private Sub Date_Required_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
ActiveXCalendar.Visible = True
ActiveXCalendar.SetFocus
If Not IsNull([Date Required]) Then
ActiveXCalendar.Value = [Date Required].Value
Else
ActiveXCalendar.Value = Date
End If
The calendar pops up properly, but when I select a date, I get the following
error:
Run-time error '3326'
This recordset is no updateable
Any help would be very much appreciated. Thanks! - Howard
code from an old project to implement a pop-up calendar. The functions are as
follows:
Private Sub ActiveXCalendar_Click()
[Date Required].Value = ActiveXCalendar.Value
[Date Required].SetFocus
ActiveXCalendar.Visible = False
End Sub
Private Sub Date_Required_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
ActiveXCalendar.Visible = True
ActiveXCalendar.SetFocus
If Not IsNull([Date Required]) Then
ActiveXCalendar.Value = [Date Required].Value
Else
ActiveXCalendar.Value = Date
End If
The calendar pops up properly, but when I select a date, I get the following
error:
Run-time error '3326'
This recordset is no updateable
Any help would be very much appreciated. Thanks! - Howard