Dados Caixa de Texto

[Einstein 0]

Ola pessoal,

 

 

como faço para um usuario digitar seu RE e apareceça seu nome automaticamente em uma caixa de texto e caso seu re nao exista, mostre uma mensagem : " RE nao existe", segue abaixo o modelo:

 

 

Re: (usuario digita o RE)

Nome: (apareceria, automaticamente, o nome dele)

 

 

tenho uma tabela : tb_users

 

campos : re, nomes

 

 

Obrigado a todos

 

Pasteur

[Einstein 0]

ola galera, estou usando esse seguinte codigo para fazer acontecer a situação acima:

 

 

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim re As String
Dim eleitor As String
Dim n_usuario As String


Set db = CurrentDb()

re = Me.u_chapa

Set rs = db.OpenRecordset("cons_analitico") ---consulta dos usuarios que ja votaram
rs.MoveFirst

Set rs1 = db.OpenRecordset("cons_users")----consulta da tabela usuarios
rs1.MoveFirst


eleitor = rs.Fields("RE-Eleitor")
n_usario = rs1.Fields("nome")


If re = eleitor Then
        MsgBox ("Usuario ja Votou!")
        Me.txtnome = "Digite o RE!"
        rs.MoveFirst
     
else

Do 
        If re = rs1.Fields("chapa") Then
        Me.txtnome = n_usuario
        rs1.MoveNext
    End If
  Loop
end if

Infelizmente esse codigo nao esta resolvendo , onde estou errando na minha logica para que apareça o nome do usuario qdo digite seu re ou diga que ele ja votou?

 

Grato