calling the after_update event of a control in Form A from Form B

[pietlinden]

Tried everything I can think of and can't figure this out.

I have a popup form that a user can select from a series of cascading
dropdowns (one filters the next).

I can pass the value of one control in Form A to a control in Form B
(both of which are open), but I can't get the AfterUpdate event to
trigger so the dropdown requeries. Am I just getting brain dead?

Okay try not to laugh really loud. Here's my code...

Private Sub txtPatientID_DblClick(Cancel As Integer)
Dim frm As Form

If IsNull(Me.txtPatientID) Then
If MsgBox("Get Patient Number from Enrollment Database?",
vbYesNo + vbInformation, "Choose a Patient") = vbYes Then
DoCmd.OpenForm "frmPickAPatient", acNormal
Set frm = Forms!frmPickAPatient
If Not IsNull(Me.cboChooseStudy) Then
Forms!frmPickAPatient!cboChooseStudy =
Me.cboChooseStudy
'Call
Forms("frmPickAPatient").cboChooseStudy_AfterUpdate
'Call frm.Controls("cboChooseStudy").AfterUpdate
End If
End If
End If
End Sub

No matter what I do, I can pass the value from Me.cboChooseStudy to
frmPickAPatient.cboStudy, but I can't get the AfterUpdate event to
fire so the control requeries and then drops down. Am I just
overlooking something? (Like Keri Hardwick's article on how to do
most of this stuff on Access Web?)

Thanks!

Pieter
"Hey, get your *own* village! This one *already has* an idiot!"

 

[Marshall Barton]

Tried everything I can think of and can't figure this out.

I have a popup form that a user can select from a series of cascading
dropdowns (one filters the next).

I can pass the value of one control in Form A to a control in Form B
(both of which are open), but I can't get the AfterUpdate event to
trigger so the dropdown requeries. Am I just getting brain dead?

Okay try not to laugh really loud. Here's my code...

Private Sub txtPatientID_DblClick(Cancel As Integer)
Dim frm As Form

If IsNull(Me.txtPatientID) Then
If MsgBox("Get Patient Number from Enrollment Database?",
vbYesNo + vbInformation, "Choose a Patient") = vbYes Then
DoCmd.OpenForm "frmPickAPatient", acNormal
Set frm = Forms!frmPickAPatient
If Not IsNull(Me.cboChooseStudy) Then
Forms!frmPickAPatient!cboChooseStudy =
Me.cboChooseStudy
'Call
Forms("frmPickAPatient").cboChooseStudy_AfterUpdate
'Call frm.Controls("cboChooseStudy").AfterUpdate
End If
End If
End If
End Sub

No matter what I do, I can pass the value from Me.cboChooseStudy to
frmPickAPatient.cboStudy, but I can't get the AfterUpdate event to
fire so the control requeries and then drops down. Am I just
overlooking something?

Did you forget to make that AfterUpdate event procedure
Public?