Seleccion multiple no funciona.
Publicado por Cristian (42 intervenciones) el 19/05/2017 16:46:30
Hola tengo un formulario en donde hay un listbox que muesta un listado de alumnos y un boton "cargar". El problema me surge cuando selecciono mas de un alumno y clic en el boton en el subformulario que se tiene que impactar solo se repite el ultimo de la seleccion tantas veces como los datos seleccionados.
El codigo que tengo en el boton es el siguiente
Puede ser que me este faltando algo en el codigo?
Como siempre gracias por sus aportes.
El codigo que tengo en el boton es el siguiente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub CmdProcesa_Click()
Dim vrt_NroDNI As Variant
Dim midb As Database
Dim RS As Recordset
Dim RS1 As Recordset
Dim N_Deporte As Integer
Dim Categoria As String
Call OpenMain(midb)
N_Deporte = CLng(Forms![FrmAsistencia]![CmbDeporte])
Categoria = Forms![FrmAsistencia]![CmbCategoria]
Set RS = midb.OpenRecordset("Asistencia", dbOpenTable)
Set RS1 = midb.OpenRecordset("Asistencia", dbOpenTable)
RS.Index = "Primarykey"
For Each vrt_NroDNI In Me.ListaAlumnos.ItemsSelected
RS1.Index = "Primarykey"
RS.AddNewWith RS
.Fields(1) = Me.ListaAlumnos.Column(0) 'dni
.Fields(2) = Me.ListaAlumnos.Column(1) 'nombre socio
.Fields(3) = Me.TxtCategoria 'categoria
.Fields(4) = CDate(Me.fecha) 'fecha
.Fields(6) = "A"
End With
RS.UpdateNext vrt_NroDNI
RS.Close'Forms![SubFrmAsistencia].Requery
Forms![FrmAsistencia]!SubFrmAsistencia.Requery
Beep
Beep
End Sub
Puede ser que me este faltando algo en el codigo?
Como siempre gracias por sus aportes.
Valora esta pregunta
0
