Dim strTab As DAO.TableDef Dim strCon As DAO.QueryDef Dim Rst As DAO.Recordset Dim dbDatabase As DAO.Database
Uma janela:
Application.RefreshDatabaseWindow
Tabelas:
dbDatabase.TableDefs.Refresh
Consultas:
dbDatabase.QueryDefs.Refresh
Recordset:
dbDatabase.Rst.Refresh
................................................................................. Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Amigão você pediu a sintese do Refresh, o F9 faz o Recalc
Me.Recalc
................................................................................. Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Amigão no modulo não pode referenciar com o Me, terá de referenciar Form!Seufrom!Recalc
................................................................................. Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Se preferir utilizar a tecla do Recalc pode chamar assim;
SendKeys "{F9}"
................................................................................. Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.