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]Comparar campos de uma tabela

    avatar
    leo.gool
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 27/02/2018

    [Resolvido]Comparar campos de uma tabela Empty [Resolvido]Comparar campos de uma tabela

    Mensagem  leo.gool 20/4/2018, 15:56

    Olá, eu tenho um formulário que lança dados em uma tabela, o formulário é para inserir dados da saída de um veículo, onde eu devo selecionar o motorista para o atendimento, eu preciso de uma função que alerte por mensagem, caso eu já tenha um atendimento agendado para aquele motorista e ele não tenha finalizado o atendimento, para isso eu criei uma caixa de combinação onde deve ser informada a situação do atendimento, o que eu desejo é que se caso o motorista selecionado tenha um registro anterior do qual não tenha dado baixa no serviço alerte o usuário para selecionar outro motorista.

    Eu tentei implementar isso através de um código VBA, mas não obtive resultado, acredito que a lógica esteja certa, mas não tenho conhecimento sobre recordset nem manipulação de tabelas em VBA

    Private Sub Combinação250_AfterUpdate()
       Dim qtd, i As Integer
       Dim nome As String
       Dim rs As DAO.Recordset
       nome = Combinação250.Value
       qtd = DCount("[ID_eventos]", "Eventos")
       For i = 0 To qtd
           If rs.Fields("Motorista") = nome And rs.Fields("Situação Saída") <> "FINALIZADA" Then
               MsgBox "Já existe saída cadastrada para o motorista solicitado"
           End If
       Next i
    End Sub


    Última edição por leo.gool em 20/4/2018, 22:38, editado 1 vez(es)
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]Comparar campos de uma tabela Empty Re: [Resolvido]Comparar campos de uma tabela

    Mensagem  Jungli 20/4/2018, 22:03

    Boas,
    Tente assim.

    Código:

       Dim qtd As Integer
       Dim strNome As String 'Evite nomear campos assim: nome
       strNome = Combinação250.Column(0)
       qtd = DCount("[ID_eventos]", "Eventos", "[Situação Saída]<>'FINALIZADA'")
       If qtd = 0 Then
          MsgBox "Motorista solicitado está livre"
       Else
          MsgBox "Já existe saída cadastrada para o motorista solicitado"
       End If

    Obs. Não testei...


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    avatar
    leo.gool
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 27/02/2018

    [Resolvido]Comparar campos de uma tabela Empty Re: [Resolvido]Comparar campos de uma tabela

    Mensagem  leo.gool 20/4/2018, 22:29

    Faltou na verdade um detalhe... ele funciona apenas para um caso, ele não compara se o motorista está disponível, ele apenas vê se há registro de saída com valor diferente de "FINALIZADA", mas eu posso ter vários outros motoristas com serviços em execução.
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]Comparar campos de uma tabela Empty Re: [Resolvido]Comparar campos de uma tabela

    Mensagem  Jungli 20/4/2018, 23:03

    Mais um teste...

    Código:

      Dim qtd As Integer
      Dim strNome As String 'Evite nomear campos assim: nome
      strNome = Combinação250.Column(0)
      qtd = DCount("[ID_eventos]", "Eventos", "[Situação Saída]<>'FINALIZADA' And [Motorista]) = '" & strNome & "'")
      If qtd = 0 Then
          MsgBox "Motorista solicitado está livre"
      Else
          MsgBox "Já existe saída cadastrada para o motorista solicitado"
      End If

    abs...


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    avatar
    leo.gool
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 27/02/2018

    [Resolvido]Comparar campos de uma tabela Empty Re: [Resolvido]Comparar campos de uma tabela

    Mensagem  leo.gool 20/4/2018, 23:15

    Obrigado pelo retorno, a lógica acredito que seja essa mesmo, mas a expressão está me retornando um erro no tempo de execução...

    Segue link com os erros...

    https://drive.google.com/file/d/1Cl5UvnmJ28wd0D_QNouPcsnfcTQ6RVSv/view?usp=sharing

    https://drive.google.com/file/d/18xTq9Cp7PGuUHKr_m5JtauEUQohtJQRl/view?usp=sharing
    avatar
    leo.gool
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 27/02/2018

    [Resolvido]Comparar campos de uma tabela Empty Re: [Resolvido]Comparar campos de uma tabela

    Mensagem  leo.gool 21/4/2018, 01:00

    Olá amigo, eu que não me atentei, o alerta era apenas da existência de um parênteses em excesso, removi e ficou perfeito, obrigado pela ajuda!
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]Comparar campos de uma tabela Empty Re: [Resolvido]Comparar campos de uma tabela

    Mensagem  Jungli 21/4/2018, 02:33

    Por nada,
    Estamos a disposição.


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

    Conteúdo patrocinado


    [Resolvido]Comparar campos de uma tabela Empty Re: [Resolvido]Comparar campos de uma tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 17:29