Pasa datos de una columna a otra
Amigo mira tengo un problemilla he creado un subformulario llamado artículos y dos columnas una llamada cantidad y otra acumulado
Necesito que al clickear un botón se pasen todos los registros del subformulario de la columna cantidad a la columna acumulado y la columna cantidad que en cero..
Necesito que al clickear un botón se pasen todos los registros del subformulario de la columna cantidad a la columna acumulado y la columna cantidad que en cero..
1 Respuesta
Respuesta
1
Supongo que te refieres a un Control Cuadro de lista, si es así para pasar los datos de una lista a otra el siguiente código agregado a un botón de Comando llamado Comando1 te podría servir:
Private Sub Comando1_Click()
On Error GoTo Err_Comando1_Click
Me.Lista2.RowSource = Me.Lista1.RowSource
Me.Lista1.RowSource = ""
Exit_Comando1_Click:
Exit Sub
Err_Comando1_Click:
MsgBox Err.Description
Resume Exit_Comando1_Click
End Sub
Private Sub Comando1_Click()
On Error GoTo Err_Comando1_Click
Me.Lista2.RowSource = Me.Lista1.RowSource
Me.Lista1.RowSource = ""
Exit_Comando1_Click:
Exit Sub
Err_Comando1_Click:
MsgBox Err.Description
Resume Exit_Comando1_Click
End Sub