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]Função para Validar registros de outra tabela antes de continuar.

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Função para Validar registros de outra tabela antes de continuar.

    Mensagem  ton0612 3/6/2011, 15:00

    Bom dia Pessoal, não sei se o título será o certo, mas avaliaremos no decorrer.
    Estou precisando novamente de uma ajudinha... rsrs..

    Vou explicar o processo:

    eu tenho varias tabelas relacionadas, sendo que uma delas é o pedido relacionado 1 para muitos no produto de pedidos e este relacionado em 1 para muitos no processo de fabricação. ou seja. eu tenho varios processos para um item do pedido e varios itens por pedido. até aqui tudo bem. cada um deste processos esta designado para cada setor (setor 1, setor 2...) ai nas telas destes setores aparece o que cada um vai fazer, exemplo: Setor 1 - vincar, setor 2 imprimir, e cada uma assim que concluido clica no botao btnconcluido e aparece na tabela de processo que o processo do setor1 para o item x do pedido y foi concluido naquela data.

    e o penultimo processo é expedir, onde depois de concluido libera o pedido para ser faturado. o que eu gostaria é que neste penultimo processo, ao clicar em btnconcluido_Exp ele varra a tabela de processos (tbl_processos) onde o código do produto (cod_prod_ped) for = ao cod_prod_ped no form (me.cod_prod_ped) e verifique se tem algum processos sem concluir antes da expedição.

    Desde ja muito obrigado... e uma excelente sexta-feira a todos.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  criquio 3/6/2011, 15:27

    Uma ideia seria algo assim:

    If DCount("NomeCampo", "NomeTabela", "NomeCampo=" & "") > 0 Then
    MsgBox "Há processos sem concluir", vbOkOnly + vbCritical, "Atenção"
    Else
    Exit Sub
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  ton0612 3/6/2011, 15:35

    Obrigado Criquio... vou testar e ja retorno...
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  ton0612 3/6/2011, 17:13

    Criquio Obrigado mais uma vez...
    eu coloquei o código conforme abaixo:

    Private Sub btnVerificar_Click()


    If DCount("DataConcluido", "[tbl Programacao de Processos]", "Cod_Prod_Ped=" & Me.Cod_Prod_Ped & "") > 0 Then
    MsgBox "Há processos sem concluir", vbOKOnly + vbCritical, "Atenção"
    Else
    Exit Sub
    End If


    End Sub

    Ele funcionou, mas agora eu preciso que na msgbox informe o setor o qual nao concluiu. Tem mais alguma ideia?
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  ton0612 3/6/2011, 17:25

    Criquio to com uma idéia aqui vou tentar e ja posto aqui.... só to mandando o post...para você não se preocupar com ele agora.
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  ton0612 3/6/2011, 17:36

    Criquio... da uma olhada no código abaixo. Ele funcionou quase que perfeitinho, só falta agora ele apontar o setor ao falta ser concluido, ou setores, mas se me mostrar um setor já estará suficiente.

    Desde Ja Agradeço.



    Private Sub btnVerificar_Click()
    Dim TotalReg, Validador As String

    TotalReg = DCount("Cod_Prod_Ped", "[tbl Programacao de Processos]", "Cod_Prod_Ped=" & Me.Cod_Prod_Ped & "")
    Validador = DCount("DataConcluido", "[tbl Programacao de Processos]", "Cod_Prod_Ped=" & Me.Cod_Prod_Ped & "") + 1

    If Validador <> TotalReg Then
    MsgBox "Há processos sem concluir", vbOKOnly + vbCritical, "Atenção"
    MsgBox ("N=" & TotalReg & " / " & Validador) 'verifica os valores das variaveis

    Else
    MsgBox ("Todos os Processos foram concluidos")
    MsgBox ("N=" & TotalReg & " / " & Validador) 'verifica os valores das variaveis

    End If
    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  criquio 3/6/2011, 17:47

    Que tal uma consulta que filtre os registros com campo nulo ou com valor tipo "Pendente" e um formulário contínuo que abra caso a consulta retorne maior que zero? Assim, você teria os registros em aberto todos exibidos no formulário contínuo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  ton0612 3/6/2011, 17:52

    Perfeito... vou fazer isso...

    como diz o JPaulo: "optar pelo simples."

    Criquio... você é Demais mesmo... Valeu cara... ja vou dar o tópico como resolvido e qualquer coisa abro outro...


    Obrigado mesmo.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  criquio 3/6/2011, 17:59

    Valeu pelo retorno. Qualquer coisa, assovie.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Função para Validar registros de outra tabela antes de continuar. Empty Re: [Resolvido]Função para Validar registros de outra tabela antes de continuar.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:29