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

    [Resolvido]Lançamentos de cadastro em branco

    avatar
    MoiDVAec
    Novato
    Novato

    Respeito às regras : 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 21/8/2018, 23: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 : Respeito às Regras 100%

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

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

    Mensagem  tauron 22/8/2018, 10: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 : 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 23/8/2018, 01:48

    Ok muito obrigado!
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tauron 23/8/2018, 11:13

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

    Respeito às regras : 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 23/8/2018, 11:52

    Sim, deu certo!

      Data/hora atual: 23/6/2021, 07:40