Para i = parámetro INSERTAR valores múltiples en la tabla

Buenas tardes,

He buscado mi pero apagado para encontrar una solución a mi problema.

Estoy tratando de obtener acceso para insertar varias filas en mi base de datos, pero todas las filas tienen valores diferentes.

Por ejemplo: tengo dos personas que marcaron un gol, por lo que el gerente pondrá en forma a dos personas que marcaron con tiempos, etc.

El método que estoy usando ahora funciona pero está haciendo lo mismo hasta 10 veces.

Esto es lo que tengo ahora.

Select Case LCounter
    Case 1
        dbs.Execute " INSERT INTO tblMatchPlayer " _
            & "(MatchID, PlayerID, SubstituteID, PositionID, Surname, ScoreTime, RedCards, YellowCards, Substitude, Penalty, OwnGoal, Assist) VALUES " _
            & "(" & Me.MatchID & ", '', '', '', '" & Me.cmScoreName1 & "', " & Me.tbScoreTime1 & ", '', '', '', " & Me.cbPenalty1 & ", " & Me.cbOwnGoal1 & ", '" & Me.cmAssist1 & "');"

Hasta el caso 10

Lo que he intentado hacer es hacer un bucle.

If Location.Value = "Thuis" Then InsertScore = ResultHomeTeam.Value Else InsertScore = ResultAwayTeam.Value

For i = 1 To InsertScore
   QueryInsert = " INSERT INTO tblMatchPlayer " _
    & "(MatchID, PlayerID, SubstituteID, PositionID, Surname, ScoreTime, RedCards, YellowCards, Substitude, Penalty, OwnGoal, Assist) VALUES " _
    & "(" & Me.MatchID & ", '', '', '', '" & Me.cmScoreName & i & "', " & Me.tbScoreTime & i & ", '', '', '', " & Me.cbPenalty & i & ", " & Me.cbOwnGoal & i & ", '" & Me.cmAssist & i & "');"
   Debug.Print QueryInsert
   dbs.Execute QueryInsert
Next

Pensé que esto haría lo mismo, pero solo en lugar de un caso selecto, estoy usando un bucle For con el "&" como valor para usar cuando 1 jugador ha marcado o 2 jugadores o 10 jugadores.

Pero esto no está funcionando.

¿Alguna idea sobre cómo puedo hacer que esto funcione sin usar los 10 casos?

Atentamente,

Patricio

Respuestas a la pregunta(1)

Su respuesta a la pregunta