Uso del control de datos de VB
Datos 1. Recordset.MovePrevious
Comando 2. habilitado = verdadero
si data1. recordset.BOF luego
datos1. Recordset.MoveFirst
Comando 1. Habilitado=falso
Terminará si...
Finalizar conector
Subcomando privado 2_Click()'Botón Siguiente
Datos 1. Recordset.MoveNext
Comando 1. habilitado = verdadero
si data1. Recordset.EOF luego
datos1. Recordset.MoveLast
Comando 2. enable = false
Termina si...
Finalizar conector
Subcomando privado 3_Click() 'Agregar botón
Datos1. Recordset.AddNew
Comando 1. enable=false
Comando 2. enable=false
Comando 4. enable=false
Comando 5. enable=false
Comando 3. habilitado = falso
Texto1. SetFocus
Conector final
Subcomando privado 4_Click()'Botón Eliminar
I = MsgBox("¿Está seguro de que desea eliminar este registro?", 52 , "Mensaje de información")
Si i = 6, entonces
datos 1. Recordset.Delete
Datos1. Actualizar
Finalizará si...
Finalizar conector
Subcomando privado 5_Click()
Si SMS 6. Text = " "Entonces
MsgBox "Ingrese el contenido que desea consultar", 48, "Mensaje de información"
Texto 6. SetFocus
Conector de salida
Terminará si...
Si Combo1. Texto = "nombre" y luego
datos 1. conjunto de registros. buscar primero = "amp =";"'" texto 6. Texto&"
ElseIf Combo1. Texto = "Landline"
datos 1. conjunto de registros. findfirst "Landline=";"'" & Texto 6. Texto&"
De lo contrario, si Combo1. Texto = "teléfono móvil" y luego
datos 1. buscar primero " Teléfono móvil = " "'" y texto 6. Texto amp"
ElseIf Combo1. Texto = "QQ "Entonces
Datos 1. QQ = " amp "'" Texto 6. Text&"
ElseIf Combo1. Then Text = "Email"
Data1." E_Mail = "amp"'"&Text6. Text&"
p>Será terminar si...
Si el dato es 1. Recordset.NoMatch
MsgBox "No existe tal registro", 64, "Mensaje de información"
Terminará si...
Finalizar conector
Subcomando privado 6_Click() 'Botón Aceptar
Ir al controlador de errores en caso de error
Datos 1.
Actualizar registro
Datos1. Recordset.MoveLast
Comando 1. enable=true
Comando 2. enable=true
Comando 3. enable=true
Comando 4. enable=true
Comando 5. enable = true
Salir del encabezado
Manejador de errores:
si hay error. Entonces número = 524
MsgBox "¡Registro duplicado!", 48, "Mensaje de información"
Terminará si...
Reanudar
Conector final
Subform_Load() privado
Combo1. Texto = Combo1. Lista(0)
Conector final