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]set current.db com 2 criterios não funciona

    Compartilhe
    avatar
    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3226
    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!
    avatar
    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3226
    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: Qua 26 Jul 2017, 09:44