3326 "This Recordset is not updatable"

M

microsoft

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
 
J

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]
 
M

microsoft

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top