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


    [Resolvido]Executar pesquisa em RecordSet

    avatar
    Convidado
    Convidado


    [Resolvido]Executar pesquisa em RecordSet Empty Executar pesquisa em RecordSet

    Mensagem  Convidado 11/8/2011, 17:05

    Amigos, é possível algo assim:

    rs.FindFirst (IDDetento Where "Dedo = " & Me.txtDedo)

    Não sei se o é.. se for preciso de ajuda para reescrever..

    Grato
    avatar
    Convidado
    Convidado


    [Resolvido]Executar pesquisa em RecordSet Empty Re: [Resolvido]Executar pesquisa em RecordSet

    Mensagem  Convidado 11/8/2011, 17:43

    Consegui o seguinte código

    Private Sub Multi_Find(ByRef oRs As DAO.Recordset, sCriteria As String)
    On Error Resume Next

    Dim clone_rs As DAO.Recordset
    Set clone_rs = oRs.Clone

    clone_rs.Filter = sCriteria

    If clone_rs.EOF Or clone_rs.BOF Then
    oRs.MoveLast
    oRs.MoveNext
    Else
    oRs.Bookmark = clone_rs.Bookmark
    End If

    clone_rs.Close
    Set clone_rs = Nothing

    End Sub


    E utilizo esta função da seguinte maneira:


    Multi_Find rs, "ID_Detento = & me.txtID AND Dedo = & Me.txtDedo"

    If rs.EOF Then
    rs.AddNew ' ... abre a edição de registro...
    rs![ID_Detento] = Me.txtID
    rs!Digital = Serialize(template.tpt)
    rs!dedo = Me.txtDedo
    EscreveLog ("Dedo " & Me.txtDedo & " " & Me.txtMao & " Gravado com sucesso")
    rs.Update ' ... adiciona em novo registro...
    Me("" & Me.txtBotao & "").Caption = "INSERIDO"
    Me("" & Me.txtBotao & "").Enabled = False
    Else
    MsgBox "Já existe este dedo cadastrado!", vbInformation, "Atenção"


    End If
    End If

    'No entanto se ja tem a ID_Detento cadastrada da a mensagem "Já existe este dedo...."

    O que pretendo é a junção da ID_Detento e Campo Dedo...

    Multi_Find rs, "ID_Detento = & me.txtID AND Dedo = & Me.txtDedo"

    Como resolver isto amigos?



    avatar
    Convidado
    Convidado


    [Resolvido]Executar pesquisa em RecordSet Empty Re: [Resolvido]Executar pesquisa em RecordSet

    Mensagem  Convidado 11/8/2011, 21:55

    Encerrarei este tópico pois a certa altura se assemelhou com outro que tenho...

    Esta questão passa a ser resolvida neste tópico

    http://maximoaccess.forumeiros.com/t3780-consulta-em-campos-atraves-de-um-recordset

    Conteúdo patrocinado


    [Resolvido]Executar pesquisa em RecordSet Empty Re: [Resolvido]Executar pesquisa em RecordSet

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:26