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

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

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

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

    Mensagem  Ney Santos Sex 30 Set 2016, 05: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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes Sex 30 Set 2016, 10: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
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

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

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

    Mensagem  Ney Santos Sex 30 Set 2016, 11: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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes Sex 30 Set 2016, 12: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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov 2024, 20:52