3326 "This Recordset is not updatable"

[Guest]

Hi

I have created a form using the Calendar control. Each time I try to select
a date in the Calendar I get this message 3326 "This Recordset is not
updatable".

There is a combox box on the form which brings up the calendar from which
the user selects the date.

My Code
Private Sub Entry_Date_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
ocxCalendar.Visible = True
ocxCalendar.SetFocus
If Not IsNull(Entry_Date) Then
ocxCalendar.Value = Entry_Date.Value
Else
ocxCalendar.Value = Date
End If
End Sub

Private Sub ocxCalendar_Click()
Entry_Date.Value = ocxCalendar.Value
Entry_Date.SetFocus

End Sub

Any idea why I woud receive this error?

Thanks

 

[John Vinson]

Each time I try to select
a date in the Calendar I get this message 3326 "This Recordset is not
updatable".

That suggests that you have an error - not in your VBA code, or the
Calendar control - but in the Query upon which the form is based.

What is the Control Source of the combo? Is the Calendar control bound
to a table field? And - most importantly - is the Form's Recordsource
query updateable? Open it in datasheet view to check; is there a *>
new record indicator on the bottom row?

John W. Vinson[MVP]

 

[Guest]

Hi

The Entry Field combo box was tied to the corresponding field in the
database. There is the *> in the datasheet view, however it is greyed out.

Removing the control source entry attached to the entry field combo seemed
to have resolved the problem. Thanks for guiding me in the right direction.