QUE TAL AMIGOS FOREROS.
UNA CONSULTA:
COMO SERIA EL SIGUIENTE CODIGO UTILIZANDO CONTROL DATA.
GRACIAS DE ANTEMANO.
Private Sub Text1_LostFocus()
Dim db As Database
Dim rst As DAO.Recordset
Dim sql As String
ChDir App.Path
Set db = OpenDatabase("NombreBD")
sql = "select * from Tabla where codigo = " & Text1
Set rst = db.OpenRecordset(sql)
With rst
If .EOF = True Then
'Si esta vacio el Recordset, entonces sale del sub.
.Close
'codigo restante
Exit Sub
End If
MsgBox "Este Codigo ya existe"
End With
End Sub