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

    [Resolvido]set current.db com 2 criterios não funciona

    Compartilhe

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    [Resolvido]set current.db com 2 criterios não funciona

    Mensagem  Ney Santos em Sex 30 Set 2016, 09:51

    Boa noite!
    não consigo fazer funcionar a seguinte linha de comando:
    Set rs = CurrentDb.OpenRecordset("select * from CAD_PROCESSO where FICHA= '" & Me!NFICHA & "'" And [Arquivo] = "'" & "N" & "'")
    Explico
    Num evento após atualizar de um campo preciso verificar se o valor digitado ja consta na referida tabela e se o campo"Arquivo" tem o valor "N"
    para esse valor, se for positivo uma msgbox irá avisar.
    porem quando digito da o  erro "Tempo de execução 13" Tipos incompativeis.
    Ambos os campos da tabela são texto.

    abaixo o codigo inteiro:
    Private Sub NFICHA_AfterUpdate()
    Dim Cont As String
    Cont = 6 - Len(Me.NFICHA)
    If Cont > 0 Then
    Do While Cont > 0
    Me.NFICHA = 0 & Me.NFICHA
    Cont = Cont - 1
    Loop
    End If
    Dim rs As DAO.Recordset

    If IsNull(Me.NFICHA) = False Then
    Set rs = CurrentDb.OpenRecordset("select * from CAD_PROCESSO where FICHA= '" & Me!NFICHA & "'" And [Arquivo] = "'" & "N" & "'")

    If Not rs.EOF Then
      MsgBox "Existem Processos com esse n.º de Ficha em arquivo normal. " & Chr(10) & "" _
      & " !!!", vbCritical
    Set rs = Nothing
    Exit Sub
    End If

    End If

    Ja tentei varias formas mas sempre da erro.
    Somente quanto tento executar com um criterio no caso a linha vai somenet a te o "nficha" funciona, porem extem chances do numero da ficha ser "arquivo " "M" e ai td bem em usar o numero da ficha digitado.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2327
    Registrado : 14/08/2013

    Re: [Resolvido]set current.db com 2 criterios não funciona

    Mensagem  FabioPaes em Sex 30 Set 2016, 14:34

    Tipos incompativeis significa que esta passando um valor para comparação como Texto e na tabela é Numero... Ou vice Verso.

    Começe removendo essas Aspas extras...

    Se o N for uma Variável use este:
    Set rs = CurrentDb.OpenRecordset("select * from CAD_PROCESSO where FICHA= '" & Me!NFICHA & "' And [Arquivo] = " & N & "") ' <== Aqui estou assumindo que N é variavel do tipo Numero




    Se o o Campo Arquivo for igual ao VALOR N:
    Set rs = CurrentDb.OpenRecordset("select * from CAD_PROCESSO where FICHA= '" & Me!NFICHA & "' And [Arquivo] = 'N'")


    Quando o Campo da Tabela e do Tipo Texto, utilizamos '" & me.NomeCampo & "'.
    Quando nao for Texto utilizamos " & Me.NomeCampo & "


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Re: [Resolvido]set current.db com 2 criterios não funciona

    Mensagem  Ney Santos em Sex 30 Set 2016, 15:19

    Preza FABIO
    Mais uma vez voce matou a pau.
    Cara eu me confundo mutio com esse negociode aspas simples e duplas..

    Obrigado funcionou perfeitamente.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2327
    Registrado : 14/08/2013

    Re: [Resolvido]set current.db com 2 criterios não funciona

    Mensagem  FabioPaes em Sex 30 Set 2016, 16:25

    Grato pelo Retorno amigo! 


    Por favor Poste como ficou a Linha inteira...


    Ate a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Qui 08 Dez 2016, 23:58