[Resolvido]Botão de Comando Atualizar BD

Boa noite.

Gostaria caso possível de um pequeno help.

Como fazer via VBA atualização total de um bd atravez de um botão de comando no evento ao clicar.

Obrigado

Norberto, Bom Dia.

Apenas um Botão atualizar como aquele residente na barra de ferramentas do ACCESS que atualiza todos os novos registros imputados no BD, eu poderia fazer com uma macro no meu formulário principal mas gostaria de fazer com uma rotina VBA.

Obrigado

Obrigado galera, peguei um exemplo aqui que deu resultado.

Seria legal compartilhar a solução.
às vezes outro colega possa ter a mesma necessidade.

Sem Problemas segue o código

Comando para atualizar todas as tabelas cujo o campo seja texto


Sub UpdateTables()
Dim td As TableDef
Dim fd As Field
Dim strSQl As String

For Each td In CurrentDb.TableDefs
If Left(td.Name, 4) <> "MSys" Then
For Each fd In td.Fields
If fd.Type = 10 Then
strSQl = "UPDATE " & td.Name & " SET " & fd.Name & " = ''"
CurrentDb.Execute strSQl
End If
Next
End If
Next

End Sub