Refresh another Form

[NigelBrown]

Hi All,

I am trying to refresh a textbox in form A while in Form B from an OnClick (both forms are open at the same time) - I want to write the below function but do not seem to be able to get this right. I have tried Requery but it does work ?

need something like

[code=vb]
[Forms]![tbl_Ronnie_Mast er]![Textbox].Refresh
[/code]

any help/advise will be appreciated
Thanks

[ajalwaysus]

Is one of these a subform in the other, or are they 2 independent forms?

-AJ

[NigelBrown]

Hi AJ,

No they are two independant forms, the only reason I did not do a subform is becuase I need to see both as continuous. one form changes a calculation after filters are applied, i would like another text box in a another form to pick this up everytime a filter is changed (general idea) - if you have a better way of doing it then please advise

[ajalwaysus]

Well one thing I would recommend first is to ask if it is possible to make both these forms subforms in a main form, that way, first off you can pull up both forms at the same time and position by calling the main form. Then if you did that, you could refresh Form B from Form A with this code:

Me.Parent.FormB.Requery

Or else, I am not sure if you can call a requery on an independent form from another. I could very well be wrong and hope someone corrects me if I am.

-AJ

[Hennepin]

This is how I have two forms communicate. I set a form variable to the instance of the open form. I 'use the form's class name instead of form.
This way VBA returns all controls, public subs and functions
when typing the dot after the form variable.

Private frmDrawing As Form_Drawings  

Private Sub Form_Open(Cancel As Integer)
    GetLoadedForm "Drawings", frmDrawing
    Me.DJob.DefaultValue = "'" & frmDrawing.DJob & "'"
    Me.DJob.Requery
End Sub

Private Sub Form_AfterUpdate()
     frmDrawing.Refresh
End Sub

'mean while In a public module

Function GetLoadedForm(MyFormName, theform As Form) As Boolean
    '  Determines if a form is loaded.
    Const FORM_DESIGN = 0
    Dim i As Integer
    For i = 0 To Forms.count - 1
        If Forms(i).FormName = MyFormName Then
            If Forms(i).CurrentView <> FORM_DESIGN Then
                Set theform = Forms(i)
                GetLoadedForm = True
                Exit Function  '  Quit function once form has been found.
            End If
        End If
    Next
    GetLoadedForm = False
End Function

[MMcCarthy]

I may be wrong but if I am following you I think you need to change the variable scope of frmDrawing from Private to Public.

[Hennepin]

I may be wrong but if I am following you I think you need to change the variable scope of frmDrawing from Private to Public.

I realize I did not make myself clear. The form variable and the sub routines are in a form called Drawing_Add. Its scope is only inside the form so it does not need to be public. I could have just defined it by Dim frmDrawing As Form_Drawings.

[MMcCarthy]

OK I haven't time to check this at the moment but if I remember correctly the refresh only acts on unbound controls whereas you need the requery for bound controls. The refresh is essentially used to clear data from unbound controls and the requery is used to preform calculations on bound (and unbound) controls.

Having now reread the posts I think I know what your problem is. You're resetting the default value of the control and then trying to requery that value into an existing record. Default value only works on new records. Try passing the value directly into the control rather than resetting the default value.

[NeoPa]

Actually, I think this is over-cooking the meal. AJ's post #4 is the simple solution. Refresh updates only the data for pre-existing records. A Requery will add new and remove old records from the list. This is required after a filter is applied (as the OP mentions belatedly in post #3).

[MMcCarthy]

A Requery will add new and remove old records from the list. This is required after a filter is applied (as the OP mentions belatedly in post #3).

I should have read them a third time I guess LOL! Thanks Ade.