MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]duvida com código de verificação se produto tem cadastro na tabela

    Nogaro513
    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 12/08/2013

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  Nogaro513 em 19/11/2020, 19:15

    boa tarde aos amigos do Forum mais uma vez peço ajuda, este código do amigo vieira
    funciona bem só que mesmo com o produto cadastrado aparece o aviso que  não tem cadastro ! tentei algumas alterações mas sem sucesso até o momento.
        fico no aguardo !
      desde já agradeço a atenção Nogaro


    If MsgBox("Item não cadastrado: '" & NewData & "'" & vbCrLf _
    & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
    DoCmd.OpenForm "NogaroProdutosInserir", , , , acFormAdd, _
    acDialog, NewData
    ' A execução deste código fica interrompida aqui até o
    ' fechamento do segundo formulário.
    Produto = UCase(NewData) ' Converte o texto para maiúsculas.


    Response = acDataErrAdded

    Else

    Response = acDataErrContinue

    End If
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  crysostomo em 19/11/2020, 20:36

    Boa tarde.
    Você esqueceu de apontar para qual campo e tabela e vai verificar
    CÓDIGO:
    Código:
    response= DLookup("[seu campo]", "a tabela ", "[seu campo] ='" & Me!nome do campo onde você vai digitar & "'")


    If Me.campo do formulario = responseThen
      MsgBox " Campo já cadastrado"
    Else
     If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Ref") = vbYes Then
    DoCmd.OpenForm "ProdutosInserir"
    End If
    End If


    Última edição por crysostomo em 19/11/2020, 20:40, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Nogaro513
    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 12/08/2013

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  Nogaro513 em 19/11/2020, 20:39

    Gilliard
    agradeço a ajuda vou testar e lhe informo
    Nogaro513
    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 12/08/2013

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  Nogaro513 em 19/11/2020, 20:56

    Gilliard
    não funcionou
    ficou assim
    If MsgBox("Item não cadastrado: '" & NewData & "'" & vbCrLf _
    & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
    DoCmd.OpenForm "NogaroProdutosInserir", , , , acFormAdd, _
    acDialog, NewData
    ' A execução deste código fica interrompida aqui até o
    ' fechamento do segundo formulário.
    Produto = UCase(NewData) ' Converte o texto para maiúsculas.


    Response = acDataErrAdded

    Else

    Response = acDataErrContinue

    Response = DLookup("[Ref]", "ProdutosInserir ", "[Ref] ='" & Me!Ref & "'")


    If Me.Ref = Response Then
    MsgBox " Campo já cadastrado"

    End If
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  crysostomo em 19/11/2020, 21:23

    altera ela como voce ver na mensagem acima
    entrarei em aula em instantes depois eu volto se ate as 20hs não foi resolvida


    Última edição por crysostomo em 19/11/2020, 21:35, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Nogaro513
    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 12/08/2013

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  Nogaro513 em 19/11/2020, 21:29

    coloco estye código assim no antes de atualizar ?

    response= DLookup("[seu campo]", "a tabela ", "[seu campo] ='" & Me!nome do campo onde você vai digitar & "'")


    If Me.campo do formulario = responseThen
    MsgBox " Campo já cadastrado"
    Else
    If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Ref") = vbYes Then
    DoCmd.OpenForm "ProdutosInserir"
    End If
    End If
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  crysostomo em 19/11/2020, 21:44

    evento ao clicar, só não esquecer de apontar para onde ele vai verificar.
    response= DLookup("[seu campo]", "a tabela ", "[seu campo] ='" & Me!nome do campo onde você vai digitar & "'")


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Nogaro513
    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 12/08/2013

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  Nogaro513 em 19/11/2020, 21:46

    ok vou testar mas já funcionou parcial
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  crysostomo em 19/11/2020, 23:10

    E aí Jovem, resolvido?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Nogaro513
    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 12/08/2013

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  Nogaro513 em 19/11/2020, 23:15

    teria como executar um código que na compra do produto estando cadastrado seguiria em frente na compra caso não estiver cadastrado , ai abrir o formulário de cadastro seria o que preciso para resolver este problema
    mas até o momento não consegui resolver !
    Nogaro513
    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 12/08/2013

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  Nogaro513 em 20/11/2020, 17:00

    Gilliard consegui resolver com este código simples



    funcionou tudo ao contento 100%

    If Me.Ref = Response Then
     MsgBox " Produto cadastrado" retirei este código MsgBox " Produto cadastrado"
    Else
      Me.Undo 'desfaz a digitação.
    Cancel = True 'cancela o evento.


    If MsgBox("este Produto não esta cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Ref") = vbYes Then
    DoCmd.OpenForm "NogaroProdutosInserir"

    End If

    quando retorna ao campo de compra foco no campo do cód.barra entrando com cód.barra já esta atualizado mas gostaria que quando o produto estiver cadastrado não enviar mensagem de produto aadastrado


    Última edição por Nogaro513 em 20/11/2020, 21:51, editado 1 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]duvida com código de verificação se produto tem cadastro na tabela Empty Re: [Resolvido]duvida com código de verificação se produto tem cadastro na tabela

    Mensagem  crysostomo em 20/11/2020, 21:08

    Cheguei de viagem.
    Você tem que apontar para onde vai ser verificado assim ele para de mandar mensagem. Daqui a 10 min entrarem pelo computador


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

      Data/hora atual: 26/11/2020, 03:40