Código para nuevo registro y actualizar un cuadro de lista:
Lista26 es el nombre del cuadro de lista
NuevoCliente es el nombre del botón
Private Sub NuevoCliente_Click()
On Error GoTo Err_NuevoCliente_Click
DoCmd.GoToRecord , , acNewRec
Me.Lista26.Requery
Exit_NuevoCliente_Click:
Exit Sub
Err_NuevoCliente_Click:
MsgBox Err.Description
Resume Exit_NuevoCliente_Click
End Sub
Código para eliminar un registro y actualizar un cuadro de lista:
Lista26 es el nombre del cuadro de lista
Comando29 es el nombre del botón
Private Sub Comando29_Click()
On Error GoTo Err_Comando29_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.Lista26.Requery
Exit_Comando29_Click:
Exit Sub
Err_Comando29_Click:
MsgBox Err.Description
Resume Exit_Comando29_Click
End Sub
Código para guardar un registro y actualizar un cuadro de lista:
Lista26 es el nombre del cuadro de lista
Comando28 es el nombre del botón
Private Sub Comando28_Click()
On Error GoTo Err_Comando28_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Lista26.Requery
Exit_Comando28_Click:
Exit Sub
Err_Comando28_Click:
MsgBox Err.Description
Resume Exit_Comando28_Click
End Sub
Código para pre-visualizar un informe con los datos de un formulario:
Comando37 es el nombre del botón
Private Sub Comando37_Click()
On Error GoTo Err_Comando37_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "InCliente"
stLinkCriteria = "[Id]=" & Me.Id
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
Exit_Comando37_Click:
Exit Sub
Err_Comando37_Click:
MsgBox Err.Description
Resume Exit_Comando37_Click
End Sub
Código para abrir un formulario con los datos de un cuadro de lista al hacer clic en uno de los registros:
Lista26 es el nombre del cuadro de lista
Private Sub Lista26_Click()
On Error GoTo Err_Lista26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Clientes"
stLinkCriteria = "[Id]=" & Me.Lista26.Column(0)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Lista26_Click:
Exit Sub
Err_Lista26_Click:
MsgBox Err.Description
Resume Exit_Lista26_Click
End Sub
Código para ordenar un cuadro de lista mediante la selección de campos en un cuadro combinado:
Lista26 es el nombre del cuadro de lista
combinado34 es el nombre del cuadro combinado que incluye los valores Nombre, Apellido y Teléfono
Private Sub Cuadro_combinado34_AfterUpdate()
Dim ordenado As String
Dim MiSql As String
MiSql = "SELECT [Id], [Nombre], [Apellidos], [DNI], [Telefono] FROM Clientes"
Select Case Cuadro_combinado34
Case "Nombre"
ordenado = " ORDER BY Nombre;"
Case "Apellido"
ordenado = " ORDER BY Apellido;"
Case "DNI"
ordenado = " ORDER BY DNI;"
Case "Telefono"
ordenado = " ORDER BY Telefono;"
End Select
Lista26.RowSource = MiSql & ordenado
Lista26.Requery
End Sub
Mensajes de alerta:
DoCmd.SetWarnings False 'se apagan los mensajes por default del access
DoCmd.RunSQL Var 'sen ejecuta la consulta de eliminación
DoCmd.SetWarnings True 'se encienden los mensajes por default de access