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]O comando não está desfazendo do evendo

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1928
    Registrado : 23/01/2018

    [Resolvido]O comando não está desfazendo do evendo Empty [Resolvido]O comando não está desfazendo do evendo

    Mensagem  crysostomo 19/4/2019, 22:13

    Meus amigos , boa noite.
    Amigos, tem um código que desfaz do evento, mas pula linha , ou seja cadastre cliente ate 34 se eu desfazer do 35 quando eu cadastrar denovo ele vai para 36
    Código:
    Private Sub nome_AfterUpdate()
    Me.nome = StrConv(Me.nome, 3)

    If (Not IsNull(DLookup("[nome]", "tblSample", _
    "[nome] ='" & Me![nome] & "'"))) Then
    MsgBox "O cliente " & Me.nome & " ja é cadastrado.", vbInformation, "Arquivamento"
    Me.nome.SetFocus
    Me.Undo ' desfaz do evento
    Me.nome = ""
    Me.nome.SetFocus

    e outra coisa quando fala que o cliente ja está salvo , ele salva o de novo em branco ou seja, ele não desfaz o evento por completo.


    Última edição por crysostomo em 19/4/2019, 22:33, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2046
    Registrado : 13/12/2016

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  Alexandre Fim 19/4/2019, 22:30

    Provavelmente, voce etá utilizando o campo "cód_cliente" como Numeração Automática, e quando a tabela sofre alguma alteração, este número [e alterado, para manter a integridade dos dados.
    Não tem como reutilizar este código, e ai o Access grava os dados no proximo autonumero.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1928
    Registrado : 23/01/2018

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  crysostomo 19/4/2019, 22:40

    mas eu tenho que ter uma chave primaria que o o cod so, se não os outros comando não funciona , tipo p recalc refresh e outros
    é outra coisa , mesmo exibindo a mensagem cliente já cadastrado , exibe a mensagem que " cadastra com sucesso"


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1928
    Registrado : 23/01/2018

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  crysostomo 19/4/2019, 23:05

    Código:
    Private Sub salvarReg_Click()
    If IsNull(Me.nome) Then
    MsgBox "Quem você está salvando?", vbinformation, "Arquivamento"
    Me.nome.SetFocus
    ElseIf (Not IsNull(DLookup("[nome]", "tblSample", _
    "[nome] ='" & Me![nome] & "'"))) Then
    MsgBox "O cliente " & Me.nome & " ja é cadastrado.", vbInformation, "Arquivamento"
    Me.nome.SetFocus
    Cancel = True
    Else
    DoCmd.Save
    Me.Recalc
    MsgBox " Cadastro salvo", vbInformation, "Arquivamento"
    DoCmd.GoToRecord , , acNewRec

    Ele não pode desfazer e salvar de um e salva o outro em branco, ou seja, ele desfez do regiatro 7 e salvou o registro 8 em branco


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1928
    Registrado : 23/01/2018

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  crysostomo 20/4/2019, 13:50

    como eu corrijo esse erro , não estou consegindo.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1928
    Registrado : 23/01/2018

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  crysostomo 20/4/2019, 17:28

    Código:
    Private Sub salvarReg_Click()
    If IsNull(Me.nome) Then
        MsgBox "Quem você está salvando?", vbInformation, "Arquivamento"
        Me.nome.SetFocus
    ElseIf (Not IsNull(DLookup("[nome]", "tblSample", _
        "[nome] ='" & Me![nome] & "'"))) Then
        MsgBox "O cliente " & Me.nome & " ja é cadastrado.", vbInformation, "Arquivamento"
        Me.nome.SetFocus
    me.undo
    Else
      DoCmd.Save
        Me.Recalc
        MsgBox " Cadastro já está savo!", vbInformation, "Arquivamento"
        DoCmd.GoToRecord , , acNewRec
    End If


    End Sub

    olha o codigo, ele ainda está salvando , no primeiro bloco ele ja tinha que desfazer do cadastro mais ele desfaz e salva em branco


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2046
    Registrado : 13/12/2016

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  Alexandre Fim 22/4/2019, 15:23

    Olá Crysostomo,

    Não se deve fazer a pesquisa de cliente já cadastrado através do "Nome", pois você poderá ter homônimos em seu cadastro.
    Utilize um outro campo como parâmetro de comparação (geralmente se utiliza o CPF).

    Quando form programar no VBA, procure separar os eventos para que fique mais fácil a visualização e a manutenção do seu código.

    Segue um pequeno modelo de cadastro de clientes.


    [Resolvido]O comando não está desfazendo do evendo Cadcli11


    Abra o código e veja como é separada cada rotina.

    Espero ter ajudado

    Boa sorte.
    Anexos
    [Resolvido]O comando não está desfazendo do evendo AttachmentCadCliente.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 9 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1928
    Registrado : 23/01/2018

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  crysostomo 22/4/2019, 19:43

    beleza Alexandre.
    Quando form programar no VBA, procure separar os eventos para que fique mais fácil a visualização e a manutenção do seu código. escreveu:

    Atribuo essa atenção


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2046
    Registrado : 13/12/2016

    [Resolvido]O comando não está desfazendo do evendo Empty Re: [Resolvido]O comando não está desfazendo do evendo

    Mensagem  Alexandre Fim 22/4/2019, 19:53

    Valeu Crysostomo cheers cheers cheers

    Boa sorte!!!

    Abraço

      Data/hora atual: 25/1/2022, 17:41