Notifications
Clear all

Criar variável como Nome do Campo ao exportar para o Access

2 Posts
1 Usuários
0 Reactions
875 Visualizações
pfarias
(@pfarias)
Posts: 265
Reputable Member
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.

ANALISTA X

 
Postado : 02/04/2015 12:10 pm
pfarias
(@pfarias)
Posts: 265
Reputable Member
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.

ANALISTA X

 
Postado : 02/04/2015 12:35 pm