[Resolvido]Salvar informações na Tabela dos campos com expressões

Olá, bom dia. Peço que me ajudem, por favor, pois tenho um banco de dados com 37 campos, sendo que 16 campos são com resultados de expressões de informações dos campos digitados, o problema é que quando salvo o registro os 16 campos ficam vazios na Tabela, só salva o que foi digitado, pelo o que pesquisei quando coloca uma expressão o campo perde ligação com a Tabela, mas como que faço então? Pesquisei e não achei a solução.

Grato pela atenção.

Olá Reinaldo


Terá que usar o VBA, aqui está em linhas gerais para você adaptar ao teu aplicativo:

Código:


      Dim rs As Recordset, bd As Database 
       Set bd = CurrentDb
       Set rs = bd.OpenRecordset("Nome da Tabela", dbOpenTable)  
        rs.AddNew
        ' coloque todas os campos com expressão , logo abaixo
        rs("Nome do campo na tabela") = Me!Nome do campo com a expressão
        rs("Nome do campo na tabela") = Me!Nome do campo com a expressão
        
        rs.Update           
        rs.Close





Como pode ver , é apenas pra  você, ter por onde iniciar

Bom estudo

Noob

Olá Noob, obrigado pela resposta mas deu erro, quando troco as informações:

rs("Nome do campo na tabela") = Me!Nome do campo com a expressão

Aparece:

Erro de compilação:
Era esperado: fim da instrução

E os campos com expressão aparece nos resultados "Tipo!"

Eu vi uma orientação do colega de fórum Criquio que é assim:
( Quando você utiliza expressões na origem do campo, o vínculo com o campo da tabela é quebrado, deixando o campo do formulário como um campo desvinculado. Utilize VBA para preencher os campos:

Me.NomeDoCampo = Me.NomeDaCombo.Column(?)

Pode ser no evento "Após atualizar" da combo.

Você precisa tirar as expressões da origem do campo e revinculá-los aos respectivos campos da tabela. Um campo com alguma coisa na origem dele não aceita imputar valor via VBA. )

No caso da explicação do Criquio é onde vai a expressão então?

Grato pela atenção

Reinaldo

Para eu saber onde está o erro, você precisa mostrar o código por inteiro como eu fiz

Onde diz "Nome de..." entre aspas, você deve substituir pelo nome dos controles da tua aplicação.

Por exemplo:

rs("Nomeclientes") = Me!txtNomeDoCliente
rs("Endereço") = Me!txtEndereço
e assim por diante, até completar as colunas do teu form/relatorio.

Acredito que seria melhor você fazer através do VBA por ser menos trabalhoso.

Abraços
Noob

Olá Noob, eu já tinha feito desse jeito, mas está dando um erro na hora de colocar os dados e quando insisto as expressões não funcionam.

Reinaldo

Tem como postar copia de parte do aplicativo?

Noob

Olá Noob, desculpe a demora, estava sem internet aqui. Vou te passar um modelo com dois campos com expressões, por favor, dá uma olhada e veja se consegue aplicar a instrução que me passou, grato pela atenção.

Reinaldo

Pelo o que eu vi no teu projeto, você está tentando colocar código VBA numa macro, assim não funfa mesmo.

Abra teu formulário em modo designe, clique no  botão salvar e na folha de propriedde, no evento AoClicar escolha
procedimento do evento.

É ali que você tem que colocar o código que te passei como referência.

Portanto, baseado no código que passei, e com a ajuda do access, vc irá aprendendo como fazer esse código.

Abraços

Noob

Olá Noob, consegui!!! Cara, muito obrigado mesmo, me ajudou muito, está funcionando direitinho.

Tudo de bom!

Que ótimo poder ter ajudado, meu amigo

Como pode ver, apesar dos pesares, o Access é apaixonante !

Grande Abraço

E boa sorte

Noob