MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Transferir valor de campo texto não associado para outro formulário

    Compartilhe

    Junior1415
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 24/08/2015

    Transferir valor de campo texto não associado para outro formulário

    Mensagem  Junior1415 em Ter 29 Set 2015, 15:02

    Bom dia caros colegas

    Preciso transferir o campo Texto54 de um formulário para outro. Já consegui por meio de código mas os dois formulários precisam estar abertos e isso é inviável.

    Recebi dicas sobre utilizar a função INSERT INTO (que acredito ser SQL) para gravar em uma tabela e depois passar para o formulário... Pesquisei um pouco sobre mas não sei onde e como inserir esse código SQL.

    Por favor me ajudem

    Obrigado!!

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: Transferir valor de campo texto não associado para outro formulário

    Mensagem  Cláudio Machado em Ter 29 Set 2015, 20:31

    Veja se ajuda:

    'By JPaulo ® Maximo Access

    Campos numericos
    CurrentDb.Execute "INSERT INTO SuaTabela (SeuCampo1, SeuCampo2) VALUES (" & SuaCaixaTexto1.Value & ", " & SuaCaixaTexto2.Value & ")"

    Campos Texto
    CurrentDb.Execute "INSERT INTO SuaTabela (SeuCampo1, SeuCampo2) VALUES ('" & SuaCaixaTexto1.Value & "', '" & SuaCaixaTexto2.Value & "')"

    Campos Data
    CurrentDb.Execute "INSERT INTO SuaTabela (SeuCampo1, SeuCampo2) VALUES (#" & Format(SuaCaixaTexto1.Value,"mm/dd/yyyy") & "#, #" & Format(SuaCaixaTexto2.Value,"mm/dd/yyyy") & "#)"


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Junior1415
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 24/08/2015

    Re: Transferir valor de campo texto não associado para outro formulário

    Mensagem  Junior1415 em Ter 29 Set 2015, 20:44

    Eu cheguei a ver este código, mas ao digitar naquela consulta da fonte de controle da erro. Alguma coisa escrito "caracteres encontrados após o final da instrução SQL". Vou tentar postar o banco.


    Última edição por Junior1415 em Ter 29 Set 2015, 22:39, editado 1 vez(es)

    Junior1415
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 24/08/2015

    Re: Transferir valor de campo texto não associado para outro formulário

    Mensagem  Junior1415 em Ter 29 Set 2015, 21:14

    [Você precisa estar registrado e conectado para ver este link.]

    Segue parte do banco em dropbox.

    Queria passar o texto54 do formulário reprodutivo para o texto126 do formulário formstransferencia... Se puderes fazer isso eu utilizo de exemplo para os outros campos.


    Obrigado!

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: Transferir valor de campo texto não associado para outro formulário

    Mensagem  Cláudio Machado em Ter 29 Set 2015, 23:27

    Bem pra que o código funcione, seu form "Controle Reprodutivo" não poderá ser Folha de Dados e sim "Formulário Contínuo".

    Coloque um botão ao lado do campo Texto 54 e no evento ao clicar do botão coloque este código abaixo.

    Código:


    DoCmd.OpenForm "formstransferencia"
    Forms![formstransferencia].Texto123 = Me.Texto54
    DoCmd.Close acForm, "Controle Reprodutivo"


      Data/hora atual: Dom 04 Dez 2016, 12:13