Visual Basic Codigod Para Botones

Para modificar el contenido de los registros se crea un nuevo botón que llamamos cmdModificar.
En genereal, para modificar un registro hay que indicar los valores que toman los campos que queremos modificar en ese registro, por ejemplo si se quiere cambiar el valor del campo Nombre de un registro hay que indicar el nuevo valor que este campo va a tener, por ejemplo "Antonio", esto se hace así:datVisitas.Recordset!Nombre = "Antonio"
Además es necesario que las sentencias en las que se indican los valores nuevos que toman los campos se encierren entre los métodos Edit y Update, así para que la asignación de la cadena de caracteres "Antonio" se efectuase correctamente, no bastaría con la sentencia anterior, sino que quedaría de la siguiente forma:
datVisitas.Recordset.EditdatVisitas.Recordset!Nombre = "Antonio"
datVisitas.Recordset.Update
Para modificar más de un campo, se indican todas las sentencias de modificación entre Edit y Update.
datVisitas.Recordset.Edit
datVisitas.Recordset!Nombre = "Antonio"
datVisitas.Recordset!Nif = "08369548K"
datVisitas.Recordset!Apellido1 = "Sánchez"
datVisitas.Recordset!Municipio = "Sevilla"
datVisitas.Recordset.Update
En el caso delbotón cmdModificar, cuando se pulse se modifica el registro actual de la tabla de datos con lo escrito en ese momento en las cajas de texto, es decir, ahora ya no basta con escribir un nuevo valor en una caja de texto para actualizar los datos de la tabla sino que hay que pulsar en cmdModificar.
El código de este botón quedaría así:

Al pulsar este botón se actualizan los valores de la tabla dedatos, para ello hemos usado el método Edit y Update entre los cuales hay que indicar las modificaciones de campos para que estas tengan efecto.
Código para imprimir
-------------------------------------------------
Dim QImpresora As Printer 'Impresoras
-------------------------------------------------

-------------------------------------------------Set Printer = QImpresora
-------------------------------------------------

-------------------------------------------------
With Printer
-------------------------------------------------
Printer.PaperSize = 1 'TAMAÑO PAPEL
-------------------------------------------------
.ScaleMode = 6 'Milimetro-------------------------------------------------
.ScaleHeight = 279 'Milimetros Alto
-------------------------------------------------
.ScaleWidth = 76 'Milimetros Ancho
-------------------------------------------------
.FontName = "FontB11" 'Letra
-------------------------------------------------
.FontSize = 8'Tamaño letra
-------------------------------------------------
.CurrentX = 4
-------------------------------------------------
.CurrentY = 5
-------------------------------------------------
Printer.Print "Texto a imprimir"
-------------------------------------------------
.EndDoc 'Se envia la impresión-------------------------------------------------
End With

 Controles de mantenimiento de registros (nuevo, modificar, guardar, eliminar
Una vez establecido lo anterior se procederá ahora a insertar Controles para el mantenimiento de registros.

Para esto también se recomienda usar un Frame y ahora le pondré los siguientes nombres:

CmdNuevo

CmdEditar
CmdGuardarCmdEliminar
Ahora insertaremos el siguiente código para cada uno de los botones de comando:
CmdNuevo
Private Sub CmdNuevo_Click()
DataEnvironment1.rsCommand1.AddNew
ModoEditar True
End Sub
CmdEditar
Private Sub CmdEditar_Click()
ModoEditarComven True
End Sub
CmdGuardar
Private Sub CmdGuardar_Click()
If MsgBox("¿desea guardar los cambios?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then...