Option Compare Database
Option Explicit
Private Sub cmdBuscar_Click()
Dim sDocumento As String
Dim nDocumento As Long
Dim rst As Recordset
Dim miSQL As String
Dim sFicha As String
Dim sResultado As String
On Error GoTo Error_Buscar:
sDocumento = InputBox("Indique el No de Documento a Buscar", "SISBEN", "")
nDocumento = Abs(CDbl(sDocumento))
Me.RESULTADO.ControlSource = "=''"
'Se busca el documento
'*********************
miSQL = "SELECT * FROM [BASE DATOS SISBEN IV] WHERE DOCUMEN = " & nDocumento
Set rst = Me.Application.CurrentDb.OpenRecordset(miSQL)
'Se busca el documento, si no existe terminamos
'**********************************************
If rst.RecordCount = 0 Then
MsgBox "El documento No " & nDocumento & " no esta registrado.", vbOKOnly + vbExclamation, "Mensaje de SISBEN"
Exit Sub
End If
'Cargamos el resultado en el control
'No es editable por que contiene una formula
'*******************************************
sResultado = rst!nom1 & " " & rst!nom2 & ", " & rst!ape1 & " " & rst!ape2
Me.RESULTADO.ControlSource = "=" & Chr$(34) & sResultado & Chr$(34)
'Tomamos la ficha y Cerramos la conexion
'***************************************
sFicha = rst!ficha
rst.Close
Set rst = Nothing
'Buscamos la ficha en este formulario
'************************************
Set rst = Me.Recordset
rst.FindFirst "ficha = " & sFicha
Exit_Buscar:
'Salimos
'*******
Exit Sub
Error_Buscar:
MsgBox "El documento Introducido es inválido", vbOKOnly + vbCritical, "Error en la Aplicación"
Resume Exit_Buscar
End Sub
Saludos
