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]Cadastrar Cliente caso não esteja na Lista

    avatar
    fabioavila
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 22/03/2011

    [Resolvido]Cadastrar Cliente caso não esteja na Lista Empty [Resolvido]Cadastrar Cliente caso não esteja na Lista

    Mensagem  fabioavila 18/2/2021, 03:20

    Ola amigos

    No codigo abaixo ao digitar um CLIENTES que não esteja na LISTA ele MOSTRA a MSG que o CLIENTE não está cadastrado porém ao clicar em SIM ele não abre o Formulario de CLIENTES para realizar o cadastro do mesmo, alguém pode me dar uma ajuda.

    Código:

    Private Sub CLIENTE_NotInList(NewData As String, Response As Integer)
    On Error Resume Next
    If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
    DoCmd.OpenForm "ClientesInserir", , , , acFormAdd, _
              acDialog, NewData
                      Response = acDataErrContinue
        Else

            Response = acDataErrContinue
            Me.CLIENTE.Undo
            End If

    End Sub

    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2109
    Registrado : 13/04/2012

    [Resolvido]Cadastrar Cliente caso não esteja na Lista Empty Re: [Resolvido]Cadastrar Cliente caso não esteja na Lista

    Mensagem  Fernando Bueno 18/2/2021, 09:43

    Olá bom dia!!

    Código:
    Me!SuaCombo.Undo
        If MsgBox("O Cliente " & UCase(NewData) & " não está cadastrado. Cadastrar?", _
            vbQuestion + vbYesNo, "Não cadastrado...") = vbNo Then
            Me!nomeCliente.SetFocus ' Põe o foco no próprio campo
            Response = acDataErrContinue ' Aceita nova entrada
            Exit Sub
        End If
        DoCmd.OpenForm "frmCad_Cliente2", acNormal, , , acFormAdd, acDialog, _
            UCase(NewData) ' Abre form de cadastro de clientes
        Me!SuaCombo.SetFocus ' Volta ao campo para confirmação
        Response = acDataErrAdded ' Atualiza a combo


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Cadastrar Cliente caso não esteja na Lista 16rzeq
    avatar
    fabioavila
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 22/03/2011

    [Resolvido]Cadastrar Cliente caso não esteja na Lista Empty Re: [Resolvido]Cadastrar Cliente caso não esteja na Lista

    Mensagem  fabioavila 19/2/2021, 01:03

    Olá Fernando tudo bem

    Utilzei seu código e funcionou, porém depois que vai pro Cadastro do Cliente e eu faço o cadastro e volto pra tela de Vendas ela não aparece na COMBOX so aparece se fechar o formulário de Venda , tem como atualizar na COMBOX após eu realizar o cadastro ?

    Código:

    Private Sub CLIENTE_NotInList(NewData As String, Response As Integer)
    Me!CLIENTE.Undo
        If MsgBox("O Cliente " & UCase(NewData) & " não está cadastrado. Cadastrar?", _
            vbQuestion + vbYesNo, "Não cadastrado...") = vbNo Then
            Me!CLIENTE.SetFocus ' Põe o foco no próprio campo
            Response = acDataErrContinue ' Aceita nova entrada
            Exit Sub
        End If
        DoCmd.OpenForm "Clientes", acNormal, , , acFormAdd, acDialog, _
            UCase(NewData) ' Abre form de cadastro de clientes
        Me!CLIENTE.SetFocus ' Volta ao campo para confirmação
        Response = acDataErrContinue ' Atualiza a combo

    End Sub

    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2109
    Registrado : 13/04/2012

    [Resolvido]Cadastrar Cliente caso não esteja na Lista Empty Re: [Resolvido]Cadastrar Cliente caso não esteja na Lista

    Mensagem  Fernando Bueno 20/2/2021, 10:10

    Olá bom dia;

    Private Sub CLIENTE_NotInList(NewData As String, Response As Integer)
    Me!CLIENTE.Undo
       If MsgBox("O Cliente " & UCase(NewData) & " não está cadastrado. Cadastrar?", _
           vbQuestion + vbYesNo, "Não cadastrado...") = vbNo Then
           Me!CLIENTE.SetFocus ' Põe o foco no próprio campo
           Response = acDataErrContinue ' Aceita nova entrada
           Exit Sub
       End If
       DoCmd.OpenForm "Clientes", acNormal, , , acFormAdd, acDialog, _
           UCase(NewData) ' Abre form de cadastro de clientes
       Me!CLIENTE.SetFocus ' Volta ao campo para confirmação
       Response = acDataErrContinue ' Atualiza a combo

    End Sub

    Tente substituir o comando em vermelho por acDataErrAdded


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Cadastrar Cliente caso não esteja na Lista 16rzeq
    avatar
    fabioavila
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 242
    Registrado : 22/03/2011

    [Resolvido]Cadastrar Cliente caso não esteja na Lista Empty Re: [Resolvido]Cadastrar Cliente caso não esteja na Lista

    Mensagem  fabioavila 20/2/2021, 23:33

    Olá Fernando

    Agora sim substitui e funcionou perfeito

    Obrigado !
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2109
    Registrado : 13/04/2012

    [Resolvido]Cadastrar Cliente caso não esteja na Lista Empty Re: [Resolvido]Cadastrar Cliente caso não esteja na Lista

    Mensagem  Fernando Bueno 21/2/2021, 01:32

    Boa noite Fabio!

    Perfeito, precisando estamos por aqui.

    Agradecemos o retorno..


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Cadastrar Cliente caso não esteja na Lista 16rzeq

      Data/hora atual: 14/6/2021, 06:10