Access refresh from

[morpheusdreams]

Private Sub dd_Name_Change()

    Dim strSQL As String

    strSQL = "UPDATE tblVar SET [AgentID]=" & Form_frm_EditAgent.dd_Name.Value & ";"
    
    DoCmd.RunSQL strSQL
    
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

End Sub

What the above should be doing is when the dropdown changes sending its value to the variable table.

The form should then refresh, thus refreshing the data in the subform which is linked to a query based on the value updated in the variable field.

 

[morpheusdreams]

Ah, i should mention is that when it sends the data to the form it works fine, but on the refresh code:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

it says "Refresh not available" in an error message.

If i wait for about 30 seconds the data updates on its own but i need it to be almost instant.

 

[JerryKlmns]

How about

Me.Requery

 

[morpheusdreams]

Ah thank you very much.

After that i need to select elements in the query like:

Form_frm_EditAgent.sfrm_AgentDetails.Field1 but when i type this in, nothing comes up on command menus like usual.

How can i access them?

 

[JerryKlmns]

How about faq181-447 ?

 

[morpheusdreams]

Can't seem to see anything on there that helps.

 

[JerryKlmns]

Hmmmmm
Field1 is a textbox?

Forms![Form_frm_EditAgent]![sfrm_AgentDetails].[Field1]

 

[morpheusdreams]

sfrm_AgentDetails shows results from a query

Field1 would be one of the fields from that query

 

[morpheusdreams]

MsgBox (Forms![frm_EditAgent]![sfrm_AgentDetails].[TM_ID])

=

"Object doesn't support this property or method

 

[JerryKlmns]

So, the question is a bit vague
i need to select elements in the query

 

[morpheusdreams]

Dim strMonkey

strMonkey = sfrm_AgentDetails.Form!Aspect_No


Worked fine.

Sorry for not explaining myself adequately