Value From a Form might help.

Just add to the event in the subform to refresh before opening the form.

Thanks Adam, I have tried to add the event in the subform to refresh, and because the the subform uses a different table than the main form, it is not so initiative
this is the subform code:

Private Sub perid_Click()
    Dim passValue As String  
    
    passValue = Me!PerID
    Forms!MDKA_Form!.Requery ' this does not work
    
   ' MsgBox passValue
    DoCmd.OpenForm "MDKA_Form", , , "PerID=" & passValue
    
End Sub

Forms!MDKA_Form.Requery Not second !

this is the main form refresh:

Private Sub cmdRefresh_Click()
    Dim strsearch As String
    Dim passValue As Long
    passValue = PerID
    Me.FilterOn = False

    strsearch = "SELECT * from EwingIndex_Master"
    Me.RecordSource = strsearch
    DoCmd.GoToControl "PerID"
    DoCmd.FindRecord passValue
End Sub

Actually might be Forms!MDKA_Form.Form.Requery

Adam, I do now what you mean "Not second! "

Forms!MDKA_Form!.Requery ' this does not work

Your code says this, see how after FormsMDKA_Form you have !.Requery

You don't need that second exclamation mark there, just a dot. Try out that code above Forms!MDKA_Form.Form.Requery

and I just figured out what not second....do not use the 2nd ! use only one !

got it

and I put both

Forms!MDKA_Form.Form.Requery
Forms!MDKA_Form.Requery

and it works....thanks

Well , it almost works,  it works for the next click, but the next one goes to a blank record....damn...almost had it

and how do put the white background on the code?

How can I shift the active (focused) form from subf to main.

Thats an admin HTML thing. I don't think you can do it.

So looking over your code, you have it over complicated.

Private Sub perid_Click()
    Dim passValue As String  
    
    passValue = Me!PerID
    Forms!MDKA_Form!.Requery ' this does not work
    
   ' MsgBox passValue
    DoCmd.OpenForm "MDKA_Form", , , "PerID=" & passValue
    
End Sub

Why bother declaring a variable, setting the variable, then using the variable for the open form? Why not take out all the variable stuff and just do

Private Sub perid_Click()
    Forms!MDKA_Form!.Requery ' this does not work  
   ' MsgBox passValue
    DoCmd.OpenForm "MDKA_Form", , , "PerID=" & [PerID]
End Sub

Same thing here

Private Sub cmdRefresh_Click()
    Dim strsearch As String
    Dim passValue As Long
    passValue = PerID
    Me.FilterOn = False

    strsearch = "SELECT * from EwingIndex_Master"
    Me.RecordSource = strsearch
    DoCmd.GoToControl "PerID"
    DoCmd.FindRecord passValue
End Sub

to

Private Sub cmdRefresh_Click()
    Me.FilterOn = False
    Me.RecordSource = "SELECT * from EwingIndex_Master"
    DoCmd.GoToControl "PerID"
    DoCmd.FindRecord PerID
End Sub

If you want to move focus from the subform to the main form do Forms!FormName!FieldName.SetFocus

So you are typing in a search in the top form, and that is changing the records shown in the subform, then when you push to open it in the subform you want the main form to go to that record is that correct?

You can probably do like a open event in the subform like

Forms!MDKA_form.Form.Recordsource = "Select * From [EwingIndex_Master] where PerID=" & PerID

no it is not working,  need to refresh/requery the main form source

yes your:

Forms!MDKA_form.Form.Recordsource = "Select * From [EwingIndex_Master] where PerID=" & PerID

works and it is a lot cleaner  THANK YOU!!

Glad to hear, problem solved then? ;)