[Resolvido]Separar códigos Inserir x Verificar

Amigos.. tenho este código que faz uma verificação na tabela para comparar uma digital, porem este código verifica caso não tenha cadastra uma nova...

Gostaria de separá-los
para:

o de Cadastro em um Botão e o de verificação em outro...

Se puderem me ajudar.. pois estou encontrando problemas quando os separo

Private Sub btIdentificar_Click()
On Error GoTo TrataErro

If Not MoldeValido() Then
EscreveLog ("Erro na captura da digital")
Exit Sub
End If
Do While Not r.EOF
score = 0
digi = r!Digital
tpt = Deserialize(digi)
ret = Verifica(score)
If ret <= 0 Then
r.MoveNext
Else
Exit Do
End If
Loop
If r.EOF Then
r.AddNew
r!Usuario = Nome
r!Digital = Serialize(template.tpt)
r.Update
EscreveLog ("Registro Gravado com sucesso")
Forms!frmCliente!Digital = Serialize(template.tpt)

Exit Sub
Else
EscreveLog1 ("Usuario identificado: " & r!Usuario)
If Me.btIdentificar.Caption = "Identificar" Then
Me.btIdentificar.Caption = "IDENTIFICADO"
Me.btIdentificar.ForeColor = vbRed
End If
End If
Exit Sub
TrataErro:
DoCmd.SetWarnings True
DoCmd.Hourglass False
MsgBox Error, , "Erro nº" & err & " ao clicar em Cadastrar"
End Sub


Grato

Novidades por aqui amigos?

Não

O código é meio longo e precisa um pouco de atenção. Veremos depois com mais calma, caso alquem não o faça antes

Bem amigos..

Para o botão Identificar:

If Not MoldeValido() Then
EscreveLog ("Erro na captura da digital")
Exit Sub
End If
Do While Not r.EOF
score = 0
digi = r!Digital
tpt = Deserialize(digi)
ret = Verifica(score)
If ret <= 0 Then
r.MoveNext
Else
Exit Do
End If
Loop
If r.EOF Then
EscreveLog1 ("Detento Não identificado")
Exit Sub
Else
EscreveLog1 ("Detento identificado: " & r!Usuario)
Me.txtScore = score
Me.txtScore.Visible = True
If Me.btIdentificar.Caption = "Identificar" Then
Me.btIdentificar.Caption = "IDENTIFICADO"
Me.btIdentificar.ForeColor = vbRed
End If
End If
Exit Sub


Para o botão cadastrar pode continuar o mesmo, pois na hora do cadastro aproveita e faz tmbém a verificação


Grato pela Atenção e ajuda

Nada como estar trabalhando com as ferramentas em mão para descobrir as falhas