Solved Trying to pass text from a subform to another form

[Sam Summers]

Hi guys,

I am baffled once again and tried what i think is everything.

I have a form called 'MainForm' and on it i have an unbound textbox 'NewRA'.

All i am trying to do is after the update of a textbox on the form 'EnterOperationActivity', is to pass the text/Value to the textbox 'NewRa' on the MainForm.

I have tried this:-

40 Forms!EnterOperationActivity!OperationActivitySubform.Form!RiskAssessmentID.SetFocus
45 Forms!MainForm.NewRA.SetFocus
50 Forms!MainForm.NewRA.Value = Forms!EnterOperationActivity!OperationActivitySubform.Form!RiskAssessmentID
60 Forms!EnterOperationActivity!OperationActivitySubform.Form!OperationActivity.SetFocus

And this:-

Private Sub RiskAssessmentID_Dirty(Cancel As Integer)

10 Forms!MainForm.NewRA.SetFocus
20 Forms!MainForm.NewRA.Text = Me.RiskAssessmentID
30 Forms!EnterOperationActivity!OperationActivitySubform.Form!OperationActivity.SetFocus

End Sub

And also this directly into the Control Source of the 'NewRA' textbox itself:-

=[Forms]![EnterOperationActivity]![OperationActivitySubform].[Form]![RiskAssessmentID]

--------------------------------------------------------------------------------

I've tried changing from .Text to .Value and leaving it blank but all i have got in 'NewRA' on the 'MainForm' is blank or #Name?

Any ideas?

Many thanks in advance

Sam

 

[arnelgp]

you use the OperationActivitySubform subform's AfterUpdate Event:

private sub form_afterupdate()
Forms![MainForm]![NewRA]= Me.RiskAssessmentID
end sub

 

[Sam Summers]

you use the OperationActivitySubform subform's AfterUpdate Event:

private sub form_afterupdate()
Forms![MainForm]![NewRA]= Me.RiskAssessmentID
end sub

And it was as easy as that! Can't believe it!
Thank you so much!