MS Access 从子表单的组合框中选择下拉菜单后，在主表单中填写 ID

Question

I have similar situation with this link: MS Access automatically fill id in main form when data is entered in subform

In short, I wanted to be able to create autonumber ID in the main form when I enter data in subform. This is possible with this code inside sub form:

Private Sub Form_Dirty(Cancel As Integer)
With Me.Parent
    If IsNull(!MainFormID) Then
        ' Change any field to create the parent record
        .Description = "Test"
        ' Save changes on the parent form.
        .Dirty = False
    End If
End With
End Sub

I have pasted the VBA Code and create additional field called "Description" which capture changes in the main form. This works if I fill in a text box in subform. However, if I select an item from combobox it doesn't work.

Lets say my combobox is cboSelectItem, I also have tried changing the event to below but to no available.

Private Sub cboSelectItem_BeforeUpdate(Cancel As Integer)

Anyway to change the code to be able to run for combo box and still retain my selection from the drop down?

Answer 1

You can intercept the On Enter event of the sub form frame and check if the "parent" form has an active record. In this way, you can still enfore relationship between parent and sub form when adding new records to the "parent" form.

On the main form select the Sub form frame object (where you usually select link master fields \\ link child fields . That fram should have two events, On Enter & On Exit .

Use the On Enter event to check if the "parent" form has any record. Note, you are already in the parent forms so parent form = current form .

The event should look like this:

'This code should appear in the parent form's code page
Private Sub SubFormName_Enter()
    On Error Resume Next
    If (Me.NewRecord) Then

        Me!Description = "test"
        Me.Dirty       = False
    End If
End Sub

This should work when you enter the sub form and parent form has no records. If it's good idea doing this way is up to you to decide.