Notifications
Clear all
2024 - Integração Excel & Access 2024
2
Posts
1
Usuários
0
Reactions
996
Visualizações
Topic starter
Mais uma pessoal.
Procurei e não achei. Espero que seja possível.
É possível criar uma variável e utiliza-la como o exemplo abaixo 
Dim Fieldname= "!Codigo"
TabelaMDB = "zTab"
Set DaoDB = DAO.OpenDatabase(DirDB)
Set DaoRS = DaoDB.OpenRecordset(TabelaMDB, dbOpenDynaset)
With DaoRS
.AddNew
Fieldname = 1
.Update
End With
Pietro Farias
Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.
Postado : 02/04/2015 12:10 pm
Topic starter
Não achei, mas coloquei a Cuca para funcionar e conseguir fazer assim:
FldName = "Codigo"
TabelaMDB = "zTab"
Set DaoDB = dao.OpenDatabase(DirDB)
Set DaoRS = DaoDB.OpenRecordset(TabelaMDB, dbOpenDynaset)
With DaoRS
.AddNew
.Fields(FldName) = 1
.Update
End With
Pietro Farias
Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.
Postado : 02/04/2015 12:35 pm