problema con el addnew

[ReViJa]

Prueba así y nos cuentas.

Código:

With frm_jugadores.datJugadores.Recordset
'  .AddNew
  Debug.Print frm_jugadores.txtJugador(0).Text
'  !IDClub = 1
  Debug.Print frm_jugadores.txtJugador(1).Text
  Debug.Print frm_jugadores.txtJugador(2).Text
  Debug.Print frm_jugadores.txtJugador(3).Text
  Debug.Print frm_jugadores.cboDemarcacion.Text
  Debug.Print frm_jugadores.txtJugador(9).Text
  Debug.Print frm_jugadores.txtJugador(4).Text
  Debug.Print frm_jugadores.txtJugador(5).Text
  Debug.Print frm_jugadores.txtJugador(7).Text
  Debug.Print frm_jugadores.txtJugador(6).Text
  Debug.Print frm_jugadores.txtJugador(8).Text
  Debug.Print frm_jugadores.txtJugador(10).Text
'  If frm_jugadores.chk_lesion.Value = 1 Then
'    !Lesionado = True
'  Else
'   !Lesionado = False
'  End If
'  If frm_jugadores.chk_int.Value = 1 Then
'    !Internacional = True
'  Else
'    !Internacional = False
'  End If
'  !IDClub = 1
'  .Update
'  .Close
End With

Ctrl + G para ver los resultados.