I have written VBA code for updating RefID dropdown boxes on two different forms (Barrier Data Form, Dam Data Form) with information that has been edited or added on a third form (Reference Data Entry New). The combo boxes reflect any edits I make to existing RefID records on the Reference Data Entry Form), however the combo boxes do not reflect additions I make using the Reference Data Entry Form). The code I have written is as follows. Thanks for any help.


Sub Form_AfterUpdate()
Const conObjStateClosed = 0
UpdateBarrierRef
UpdateDamRef
End Sub

Sub UpdateBarrierRef()
If SysCmd(acSysCmdGetObjectState, acForm, Forms("Barrier Data Form")) <> conObjStateClosed Then
RequeryList_Form_AfterUpdate
Else
End If
End Sub
Sub UpdateDamRef()
If SysCmd(acSysCmdGetObjectState, acForm, Forms![Dam Data Form]) <> conObjStateClosed Then
RequeryListDam_Form_AfterUpdate
RequeryListDamPurposeSF_Form_AfterUpdate
Else
End If
End Sub

Sub RequeryList_Form_AfterUpdate() 'updates the RefID listboxes when this form is updated
Dim ctlList As Control ' Return Control object pointing to list box.
Set ctlList = Forms![Barrier Data Form]![RefID] 'updates the RefID in Barrier form
ctlList.Requery ' Requery source of data for list box.
End Sub
Sub RequeryListDam_Form_AfterUpdate()
Dim ctlListD As Control
Set ctlListD = Forms![Dam Data Form]![RefID]
ctlListD.Requery
End Sub
Sub RequeryListDamPurposeSF_Form_AfterUpdate()
Dim ctlListP As Control
Set ctlListP = Forms![Dam Data Form]![DamPurposeSubform child].Form![DamxDamPurpose.RefID]
ctlListP.Requery
End Sub