Unbound combo Boxes and a form with allow edit set to 'NO'

[ShanVel]

Hi folks,

I have a form with a record source property set to a query which pulls the data by joining two tables. The form also has four navigation buttons (first, previous, next, last) and a ADD record, SAVE record, EDIT record, DELETE record buttons.

I also have a unbound combo box (control source iset to 'empty') in the form's header section and its record source property set to an SQL (SELECT DISTINCTROW tblProjts1.chrProjectName, tblProjts1.intProjectID FROM tblProjts1 ORDER BY tblProjts1.chrProjectName. It's columns count is 2, bound column is set to 2 and column width is set to 3.1146";0".

In the edit button, I have the code "Me.AllowEdits = True" so that the user can edit the data.

Also, I have the following code on form's "on current" and "after update" events so that it will flip back to allow edit to 'NO'
Me.AllowEdits = False

Also, I have the following code on the combo box's 'after update' event.
Dim strSearch As String

strSearch = "[intProjectID] = " & Me![cboProjectID]

'Find the record that matches the control
Me.Requery
Me.RecordsetClone.FindFirst strSearch
Me.Bookmark = Me.RecordsetClone.Bookmark.

My Problem:

When I run the form and select a record from a combo box it populates the fields (all memo data type) in the form with correct linked record, ONLY when my allow edit property is set to 'YES'.

With allow edit set to 'NO', then when a tried to make a selection from a combo box it doesn't allow me to select any record. The combo box seems to be locked up and I can't select any record.

Does anyone come across such a problem with cbo box and 'allow edits' property in the forms.

Your help is much appreciated.

ShanVel

 

[Tarantula]

hello,

Private Sub cbo_GotFocus()
Me.AllowEdits = True
End Sub

Private Sub cbo_LostFocus()
Me.AllowEdits = False
End Sub

 

[ShanVel]

Dear Tarantula,

Thanks a lot. I tried and it works.

ShanVel