homer01

Experiencia

'tambien he probado esto pero no se jacerlo bien
Private Sub cb_confirmar_Click()
Dim dato As String
If List2.ListCount < 16 Then
Open "c:\examen.txt" For Append As #1
For i = 0 To List2.ListCount
dato = Nombre & "=cstr('"List2.List(i)"')"
Data1.Recordset.FindFirst dato
If List2.List(i) = dato Then
Write #1, Data1.Recordset.Fields("nombre"), Data1.Recordset.Fields("demarcacion"), Data1.Recordset.Fields("dorsal"), Data1.Recordset.Fields("partidos")
End If
Next
Close #1
Else
MsgBox ("La convocatoria tiene mas de 16 jugadores")
End If
End Sub