Verificando A Existência De Um Registro

[ppgsalomao]

Olá,

Desculpe importunar de novo com o mesmo tema, mas estou tentando e o VB reclama ... e não achei nenhuma solução para !

O código que tentei usar:

    If Not Trim(Me.txtRegistro.Text) = "" Then
        If Not adVerif.Recordset.Find("registro = " & txtRegistro.Text) Then
            MsgBox "O registro digitado já está cadastrado", vbExclamation, "Erro"
            soluc = False
            Exit Sub
        ElseIf Not IsNumeric(Me.txtRegistro.Text) Then
            MsgBox "O registro precisa ser numérico", vbExclamation, "Erro"
            soluc = False
            Exit Sub
        End If
    End If

Ele mostra um erro que diz :

Compile Error:
Expected Function or Variable

E aponta para o .Find !

[ursolouco]

Antes de realizar pesquisa dentro do seu recordset, experimente, ver se o mesmo, não esta vazio.

If Not Recordset.EOF Then ...

Abraços!!

[Graymalkin]

Find não é uma função, por isso essa linha não está correta:

If Not adVerif.Recordset.Find("registro = " & txtRegistro.Text) Then

Dê uma olhada neste outro tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=36061

Abraços,

Graymalkin

[ppgsalomao]

Fala,

Seguinte,

O que acontece é que eu não queria ter de criar um outro ADODC para fazer essas verificações !

Que eu posso até fazer com outro ADO DC que é fácil ... mas eu queria estar usando algo do gênero !

O ADO aqui de casa ele não tem FindNext ... Aih me complica !

Ele só tem Find !

[Graymalkin]

A questão não é ter ou não o FindNext... só referenciei aquele post porque tratam do mesmo erro (você leu o quarto post daquele tópico?). Ao invés de:

If Not adVerif.Recordset.Find("registro = " & txtRegistro.Text) Then
           MsgBox "O registro digitado já está cadastrado", vbExclamation, "Erro"

Você deveria usar:

adVerif.Recordset.Find "registro = " & txtRegistro.Text
if not adVerif.Recordset.Eof then
  MsgBox "O registro digitado já está cadastrado", vbExclamation, "Erro"
...

Como eu já havia dito, Find não é uma função, por isso não retorna nada.

Abraços,

Graymalkin

[ppgsalomao]

De certinho !!

Valeu !