MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Lançamentos de cadastro em branco

    avatar
    MoiDVAec
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 20/03/2018

    [Resolvido]Lançamentos de cadastro em branco Empty [Resolvido]Lançamentos de cadastro em branco

    Mensagem  MoiDVAec em 21/8/2018, 18:59

    Boa Noite, Pessoal!

    Não sei falar bem como isso acontece e quando acontece, mas quando fecho meu formulário de cadastro de movimentação de estoque ele salva registros em branco na minha tabela. Achei o problema seria corrigido pelo código a seguir mas nada faz. Alguém pode me explica!
    Código:
    Private Sub BtSair_Click()
     With CodeContextObject
        If MsgBox("Deseja sair?", vbInformation + vbYesNo, "Aviso") = vbYes Then
            If (.Form.Dirty) Then
                DoCmd.RunCommand acCmdUndo
            End If
            DoCmd.GoToRecord , , acNewRec
            DoCmd.Close , ""
            End If
        End With
    End Sub
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1080
    Registrado : 07/12/2011

    [Resolvido]Lançamentos de cadastro em branco Empty Re: [Resolvido]Lançamentos de cadastro em branco

    Mensagem  tauron em 22/8/2018, 05:51

    Observe que o neste codigo existe uma linha que cria um novo registro antes de sair, tente executar sem ela:

    Private Sub BtSair_Click()
    With CodeContextObject
       If MsgBox("Deseja sair?", vbInformation + vbYesNo, "Aviso") = vbYes Then
           If (.Form.Dirty) Then
               DoCmd.RunCommand acCmdUndo
           End If
           DoCmd.GoToRecord , , acNewRec
           DoCmd.Close , ""
           End If
       End With
    End Sub
    avatar
    MoiDVAec
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 20/03/2018

    [Resolvido]Lançamentos de cadastro em branco Empty Re: [Resolvido]Lançamentos de cadastro em branco

    Mensagem  MoiDVAec em 22/8/2018, 20:48

    Ok muito obrigado!
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1080
    Registrado : 07/12/2011

    [Resolvido]Lançamentos de cadastro em branco Empty Re: [Resolvido]Lançamentos de cadastro em branco

    Mensagem  tauron em 23/8/2018, 06:13

    E então fez o teste?
    avatar
    MoiDVAec
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 20/03/2018

    [Resolvido]Lançamentos de cadastro em branco Empty Re: [Resolvido]Lançamentos de cadastro em branco

    Mensagem  MoiDVAec em 23/8/2018, 06:52

    Sim, deu certo!

    Conteúdo patrocinado

    [Resolvido]Lançamentos de cadastro em branco Empty Re: [Resolvido]Lançamentos de cadastro em branco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 11:21