MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Ajuda com rotina de verificação

    Compartilhe

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Ajuda com rotina de verificação

    Mensagem  jorgek em Qui 03 Abr 2014, 19:52

    Boa tarde, mestres!

    Venho com mais uma dúvida cabeluda! Smile
    Bom, é o seguinte:
    Tenho um formulário e um subformulário que quando é aberto, clicando duas vezes em um campo de um outro formulário, pega os dados de uma consulta.
    O Formulário gera um novo pedido e recebe o código do cliente e o código do vendedor.
    O subformulário pega os dados dos produtos que estão em uma outra tabela através de uma consulta de acréscimo, que insere os dados na tabela original e este subformulário dá um requery para exibir os produtos na tela.
    (É um sistema de pedido online que criei aqui na empresa com uma página PHP inserindo dados em uma tabela)

    O formulário tem um botão para imprimir o pedido, mas com o seguinte critério:
    Se o valor do produto inserido for menor do que o preço de tabela deste produto, ele não deixa imprimir (estes dados estão no subformulário).
    Pois bem, isso só funciona no se este erro estiver no primeiro registro. Se estiver a partir do segundo em diante, ele deixa passar.

    Queria saber como faço para percorrer os registros desse pedido e verificar todos.
    Lembrando que o formulário trabalha com uma tabela e o subformulário trabalha com outra.

    Desde já agradeço a ajuda de todos!

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Ajuda com rotina de verificação

    Mensagem  Alexandre Neves em Qui 03 Abr 2014, 19:57

    Boa tarde,
    Crie um recordset com os registos pretendidos e faça a verificação, percorrendo todos os registos do recordset


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Re: Ajuda com rotina de verificação

    Mensagem  jorgek em Qui 03 Abr 2014, 20:02

    Pois é, Alexandre...
    Não sei como fazer isso... Sad

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Ajuda com rotina de verificação

    Mensagem  Alexandre Neves em Qui 03 Abr 2014, 20:03

    Só com a descrição, só dá para descrever


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Re: Ajuda com rotina de verificação

    Mensagem  jorgek em Qui 03 Abr 2014, 20:38

    Segue um exemplo de como estou fazendo, mas não estou conseguindo:

    Código:
    Dim ValMenor
    Dim rst As Recordset
    Set rst = Me.Recordset
    'rst.MoveFirst


        'If Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] < PTabela Then
        If ValMenor = "SELECT Detalhe.Codigo, [Valor]<[PrecoTabela] AS ValorMenor, Detalhe.Ped FROM Detalhe WHERE (((Detalhe.Ped)=[Forms]![PEDIDO]-[Teste]![Pedido]))" Then
     
        MsgBox "Insira um valor maior ou igual a tabela de preço", vbOKOnly, "Atenção!"
        'Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] = 0

    Do While Not rst.EOF
    With rst
    .MoveNext
    End With
    Loop
    Set rst = Nothing

    Exit Sub
    End If

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Ajuda com rotina de verificação

    Mensagem  Alexandre Neves em Sex 04 Abr 2014, 19:33

    Boa tarde,
    Não percebi o alcance do código que tem, até me parece que não funciona nem para um único preço, mas tente assim
    Dim ValMenor as double
    Dim rst As Recordset
    Set rst = currentdb.openrecordset("SELECT PrecoTabela FROM Detalhe WHERE Ped=" & [Forms]![PEDIDO]-[Teste]![Pedido])
    ValMenor =-1
    do while not rst.eof
    if rst(0)rst.movenext
    Loop
    Set rst = Nothing

    if Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] MsgBox "Insira um valor maior ou igual a tabela de preço", vbOKOnly, "Atenção!"
    Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] = 0
    End If


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Re: Ajuda com rotina de verificação

    Mensagem  jorgek em Ter 08 Abr 2014, 14:15

    Na verdade, Alexandre, ele não está indo para o registro de baixo do subformulário.
    Ele fica somente no primeiro registro.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Ajuda com rotina de verificação

    Mensagem  Alexandre Neves em Ter 08 Abr 2014, 18:25

    Boa tarde,
    Se disponibilizar dados significativos para se testar...


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Seg 05 Dez 2016, 04:23