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]Erro em filtro

    avatar
    fernando rodrigo zanchini
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 18/04/2018

    [Resolvido]Erro em filtro Empty [Resolvido]Erro em filtro

    Mensagem  fernando rodrigo zanchini em 13/2/2019, 17:24

    Boa tarde pessoal preciso de uma ajuda.

    Criei um modulo de consulta que esta em um subform (“Tb_cliente_sub”)  do form principal (“FRM_VENDAS_PAA”) mais esta dando erro quando eu insiro o 2º critério de Filtro no  (“cs_sado, cs_sado1e  cs_sado2”) . um para cada campo.
    1º [Forms]![FRM_VENDAS_PAA]![COD_CLI] para selecionar o cliente
    2º[Forms]![ Tb_cliente_sub]![cod1] , um para cadas consulta.
    São 2 criterios 1º para definir o cliente e o 2º é para qual produto ele esta cadastrado

    Para que possa broquear caso coloque um item não cadastrado ou caso não tenha mais saldo de quantidade, no campo(“Produto”) do sub form (“Tb_vendaDet sub”) coloque uma linha de comando que esta dando erro.
    Campo Produto: evento :após atualizar

    If Me.produto = Forms!Tb_cliente_sub!produto1 Or Me.produto = Forms!Tb_cliente_sub!produto2 Or Me.produto = Forms!Tb_cliente_sub!produto3 Then
          Me.quantidade.SetFocus
          Me.valor.Value = Me.produto.Column(2)
       Else
                      If MsgBox("O ITEN NÃO FAZ PARTE DOS 3 REGISTROS, DESEJA CONTINUAR ?", vbYesNo) = vbYes Then
           MsgBox "esse produto não faz parte dos 3", vbExclamation, "verifique"
           Else
               DoCmd.RunCommand acCmdDeleteRecord
       End If
        End If

    E no campo (“quantidade”) do sub form (“Tb_vendaDet sub”) coloque uma linha de comando que esta dando erro tb.
    Campo quantidade:: após atualizar

               If Forms!Tb_cliente_sub![Texto94] > Forms!Tb_cliente_sub![quantidade1] Then
         MsgBox "Existem " & Forms!Tb_cliente_sub!SALDO1 & " unidades de " & Me.produto.Column(1), vbInformation, "Quantidade do produto"
         Me.quantidade = "0"
         Me.Recalc
         Me.quantidade.SetFocus
             End If
    Anexos
    [Resolvido]Erro em filtro AttachmentPAA_SJ-cor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (605 Kb) Baixado 3 vez(es)
    avatar
    fernando rodrigo zanchini
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 18/04/2018

    [Resolvido]Erro em filtro Empty Re: [Resolvido]Erro em filtro

    Mensagem  fernando rodrigo zanchini em 15/2/2019, 13:25

    Bom dia pessoal consegui resolver o problema mas não sei se e a melhor maneira mas funcionou
    Anexos
    [Resolvido]Erro em filtro AttachmentPAA_SJ-cor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (657 Kb) Baixado 7 vez(es)

      Data/hora atual: 26/5/2019, 14:56