Bien pongo el campo muestra de esta manera:
Código:
Private Sub mostrar(ByVal c As Long)
Get #1, c, regins
txtape.Text = regins.Ape
txtaño.Text = regins.Año
txtin.Text = regins.Nro_ins
txtnom.Text = regins.Nom
CBOEstado.Text = regins.Estci
txtfecnac.Text = regins.FNac
txtlnac.Text = regins.LNac
txtdom.Text = regins.Dom
txtmat1.Text = regins.Mat1
txtmat2.Text = regins.Mat2
txtmat3.Text = regins.Mat3
txtmat4.Text = regins.Mat4
txttel.Text = regins.Tel
txttit.Text = regins.Tit
txtest.Text = regins.Establ
txthora.Text = regins.Hora
End Sub
ahora quiero comprar si el DNI ya existe , haciendo una llamada al "mostrar"
Osea en el campo del DNI pongo esto :
Código:
Private Sub txtdni_LostFocus()
Dim b As Byte, c As Integer
b = 0
Call busca_lostfocus
If b = 1 Then
Call mostrar
End If
End Sub
Me salta error en call mostrar..
Dejo una captura de mi formulario asi masomenos se guian...
