Home‎ > ‎

Buscar Registro Con Opciones

Varias Opciones de Busqueda de Registro....
 
 
Otro Ejemplo y el mas practico es buscar Usando un Recordset
El Codigo
 
Option Compare Database
       '**************************************************
       'Codigo de Busqueda Cortesia de Jefferson Jimenez *
       '**************************************************
Dim i As Integer
Private Sub Form_Current()
For i = 1 To 10
Me.Controls("Text" & i).Enabled = False
Next i
End Sub
Private Sub IdCliente_AfterUpdate()
Dim BUSCAR As String
Dim CriterioBusqueda As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone 'Recorremos la tabla cliente
BUSCAR = Me.IdCliente.Value
CriterioBusqueda = "[IdCliente]=" & "'" & BUSCAR & "'"
    'Comprobamos si existe el Codigo Cliente
     If DCount("IdCliente", "Clientes", CriterioBusqueda) > 0 Then
          Me.Undo 'limpiamos el campo
           'Si lo encontramos un mensaje
             If MsgBox("Encontrado  " _
               & BUSCAR & vbCrLf & _
                "Desea modificarlo", vbYesNo + vbInformation _
                 , "BUSCAR") = vbYes Then
                  'Nos movemos al registro especificado _
                   y desbloquemos todos los campos
                    rsc.FindFirst CriterioBusqueda
                     Me.Bookmark = rsc.Bookmark
                      For i = 1 To 10
                    Me.Controls("Text" & i).Enabled = True
                   Next i
                 Else 'De elegir NO solamente nos movemos
              rsc.FindFirst CriterioBusqueda
            Me.Bookmark = rsc.Bookmark
          End If
        Set rsc = Nothing 'Cerramos el Recordset
Else 'De no existir el cliente
       If MsgBox("Cliente no Encontrado" & vbCrLf & _
          "Desea crear al cliente : " _
             & BUSCAR, vbYesNo, "No Encontrado") = vbYes Then
                 Me.Undo 'limpiamos
                    DoCmd.GoToRecord , , acNewRec 'Creamos un nuevo registro
                       For i = 1 To 10 'Desbloqueamos
                          Me.Controls("Text" & i).Enabled = True
                        Next i
                     IdCliente = BUSCAR 'Asignamos el valor de la variable Buscar _
                   al campo IdCliente
                 DoCmd.GoToControl "Text1" 'Nos movemos al siguiente campo
              Else 'De haber elegido NO
           Me.Undo 'limpiamos
        End If 'Salimos
    End If
End Sub 'Nos vamos
 
 
 Escribe el codigo del Cliente sobre el campo que aparece desbloqueado
 
 
 
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descargue el Ejemplo  44 kb v. 1 4 jun. 2009 15:12 Jefferson Jimenez
ċ

Descargar
Descargue el Ejemplo  53 kb v. 1 29 may. 2009 13:02 Jefferson Jimenez
Comments