MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Passar dados entre formulários e gravar esse dado numa tabela

    avatar
    machavct
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 12/10/2017

    Passar dados entre formulários e gravar esse dado numa tabela Empty Passar dados entre formulários e gravar esse dado numa tabela

    Mensagem  machavct 12/10/2017, 14:31

    Olá. Sou novo no uso do access. Tenho um formulário de entrada no sistema com usuário e senha. Se estiver correta a senha abre um formulário para lançamento de dados. Consegui passar os dados do primeiro para o segundo formulário desta forma:
    Private Sub Bt_login_Click()
    If Txt_Senha_Confirma.Value = txt_senha.Value And Txt_Tecnico_Confirma.Value = Txt_Tecnico.Value Then
         If Txt_Tecnico_Confirma.Value = "KLADANN" Then
           DoCmd.Close
           DoCmd.OpenForm "FrmMenuKladannNovo"
         Else
         If Txt_Tecnico_Confirma.Value = "ESTOQUE" Then
           DoCmd.Close
           DoCmd.OpenForm "Frm_cadPeças"
         Else
         DoCmd.OpenForm "Frm_Lançamento de Ordens de Serviço", acNormal
         Forms![Frm_Lançamento de Ordens de Serviço].LANÇADOPOR = UCase(Me.Txt_Senha_Confirma)
         DoCmd.Close acForm, "Frm_AcessoAoSistema", acSaveYes
         End If
         End If
         
    Else
         MsgBox ("Senha inválida")
    End If
    End Sub


    Ao abrir o formulário "Frm_lançamento de Ordens de serviço" o campo LANÇADOPOR (do formulário) está preenchido de forma correta e ao gravar o registro esse valor é passado para a tabela.
    O problema acontece no próximo registro novo onde o campo é limpo.
    O Campo da TABELA é "LANÇADO POR".
    Já tentei :
    Private Sub Form_Load()
    DoCmd.GoToRecord , , acNewRec
    Me.[LANÇADOPOR].Enabled = False
    Me.[LANÇADO POR] = Me.LANÇADOPOR
    End Sub

    O campo do formulário [LANÇADOPOR] ao chamar o formulário no novo registro fica AZUL mas vazio.
    Pensei em fazer uma variável mas, não sei como fazer com variável
    Alguma sugestão?
    Gratidão
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Passar dados entre formulários e gravar esse dado numa tabela Empty Re: Passar dados entre formulários e gravar esse dado numa tabela

    Mensagem  JPaulo 13/10/2017, 13:35



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Passar dados entre formulários e gravar esse dado numa tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Passar dados entre formulários e gravar esse dado numa tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    Passar dados entre formulários e gravar esse dado numa tabela Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 22/11/2024, 01:41