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

Código:

Private Sub Text1_LostFocus()
 Data1.DatabaseName = "c:\NombreDB.mdb"
 Data1.RecordSource = "select * from Tabla where codigo = " & Text1
 Data1.Refresh
 With Data1.Recordset
 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

Saludos