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

    [Resolvido]Incerir dados de um Formulario para outro

    Nilo F.
    Nilo F.
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 22/04/2013

    [Resolvido]Incerir dados de um Formulario para outro Empty [Resolvido]Incerir dados de um Formulario para outro

    Mensagem  Nilo F. 28/12/2016, 19:34

    Olá Pessoal boa tarde;

    Alguém pode me ajudar novamente.

    Tenho um formulário principal de itens requisitados com um sub vinculado, neste formulário de itens Requisitados,
    tem um botão com o nome de "Requisição de Ítens", ao clicar nele abrirá outro formulário com ítens para ser incerido conforme solicitação da produção
    quando clicamos no botão para transferir os dados para a tabela principal "Frm_ItensRequisitados" nãao está funcionando, já tentei outros meios e não consegui, alguém pode me ajudar. o Codigo vba utilizado foi este abaixo. bd em anexo.

    desde já agradeço, pelo apoio galera.


    Private Sub BtnRegistra_Click()

    If MsgBox("CONFIRMA SOLICITAÇÃO DO ÍTEM?", vbInformation + vbYesNo, "Atenção") = vbYes Then

    Else

    Forms!Frm_ItensRequisitados!ItemPed = Me!Desenho
    Forms!Frm_ItensRequisitados!Denominacao = Me!Denominacao
    Forms!Frm_ItensRequisitados!MDR = Me!MDR
    Forms!Frm_ItensRequisitados!PontoAplicacao = Me!PontoAplicacao
    Forms!Frm_ItensRequisitados!LocalEstoque = Me!LocalEstoque
    Forms!Frm_ItensRequisitados!Linha = Me!Linha

    DoCmd.RunCommand acCmdSaveRecord


    DoCmd.Close


    End If
    Anexos
    [Resolvido]Incerir dados de um Formulario para outro AttachmentSystema.CSP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (946 Kb) Baixado 11 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Incerir dados de um Formulario para outro Empty Re: [Resolvido]Incerir dados de um Formulario para outro

    Mensagem  Silvio 28/12/2016, 22:37

    Experimente assim...

    Código:
    Private Sub BtnRegistra_Click()

    If MsgBox("CONFIRMA SOLICITAÇÃO DO ÍTEM?", vbInformation + vbYesNo, "Atenção") = vbYes Then


    Forms!Frm_ItensRequisitados!Frm_ItensRequisitados!ItemPed = Me!Desenho
    Forms!Frm_ItensRequisitados!Frm_ItensRequisitados!Denominacao = Me!Denominacao
    Forms!Frm_ItensRequisitados!Frm_ItensRequisitados!MDR = Me!MDR
    Forms!Frm_ItensRequisitados!Frm_ItensRequisitados!PontoAplicacao = Me!PontoAplicacao
    Forms!Frm_ItensRequisitados!Frm_ItensRequisitados!LocalEstoque = Me!LocalEstoque
    Forms!Frm_ItensRequisitados!Frm_ItensRequisitados!Linha = Me!Linha

    DoCmd.RunCommand acCmdSaveRecord


    'Forms!Frm_ControlePatio_Desova_CNT!DATA_REC = Me!DATA_RECEBIMENTO


    'Me.ExcluiDaLinhaDesova = -1
    'DoCmd.Requery

    'DoCmd.RunCommand acCmdDeleteRecord 'excluio registro

    DoCmd.Close


    End If
    End Sub

    Bons estudos !!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Nilo F.
    Nilo F.
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 22/04/2013

    [Resolvido]Incerir dados de um Formulario para outro Empty Re: [Resolvido]Incerir dados de um Formulario para outro

    Mensagem  Nilo F. 28/12/2016, 23:23

    Boa noite Silvio;

    Muito obrigado pela sua orientação e dica amigo, deu certinho sem erro algum, perfeito,
    obrigado novamente por me ajudar.

    cheers

    Conteúdo patrocinado


    [Resolvido]Incerir dados de um Formulario para outro Empty Re: [Resolvido]Incerir dados de um Formulario para outro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 01:59