Erro 3021, Usar Eos?

[Rochedo]

Opa,

Estou fazendo um programa vb com acess. Tenho varios formularios entre eles um de login e um de principal. Quando o usuario faz o login, ou ele vai ser registrado como novo ou irá logar como usuario já existente. Após logar, esse usuário deveria aparecer numa label no frm_principal. Só que no momento do login(apenas uma sigla do nome de uma pessoa, ex.: rr, n), está ocorrendo um erro:

Isso acontece quando eu adiciono um novo registro "x", assim tenho que parar o teste(até ai ele já adicionou o registro na tabela). Se eu testar novamente o programa e colocar esse mesmo registro login "x", o erro não vai ocorre e irá aparecer o usuario que esta logado na lbl do frm_principal normalmente.

o Código da situação acima:

Private Sub CMD_login_Click()
FRM_Login.Hide
FRM_Principal.Show

tbl.Seek "=", TXT_Login.Text

If tbl.NoMatch Then
    tbl.AddNew
    tbl("usuario") = TXT_Login.Text
    tbl.Update
End If

FRM_Principal.TXT_LoginP.Text = UCase(tbl("usuario"))

End Sub
[/codebox]

Já tentei colocar dentro do if o FRM_Principal.TXT_LoginP.Text = UCase(tbl("usuario")), mas aí se for logar com um registro já existente ele da o mesmo erro :huh: ..

alguém tem alguma idéia de como me ajudar!?(EOF ou BOF resolve?!)

Editado Abril 9, 2007 por Rochedo

[Graymalkin]

Veja se isso resolve:

Private Sub CMD_login_Click()
    Dim novo As Boolean

    novo = False
    FRM_Login.Hide
    FRM_Principal.Show

    tbl.Seek "=", TXT_Login.Text

    If tbl.NoMatch Then
        tbl.AddNew
        tbl("usuario") = TXT_Login.Text
        tbl.Update
        novo = True
    End If

    If novo Then
        If Not (tbl.Eof and tbl.Bof) Then
            tbl.MoveLast
        End If
    End If
    FRM_Principal.TXT_LoginP.Text = UCase(tbl("usuario"))

End Sub

Abraços,

Graymalkin

[Rochedo]

O fera valeu pela ajuda aí! Conseguimos uma saída para esse problema aqui.!

AbraçO!