1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| If reg = 1 Then
Do While i < nb
i = i + 1
max = DMax("[NSerie]", "registreGeneral") + 1
sql = "INSERT INTO confirmation (NSerie, reference, designation, indice, operateur, fam, cat, gac, pgc, observation, registre)" & _
"SELECT [reference], [designation], [fam], [cat], [gac], [pgc], [registre]" & _
"FROM [temp]" & _
"WHERE confirmation.NSerie = " & max & "" & _
"WHERE confirmation.indice = '" & UCase(Me.indice) & "'" & _
"WHERE confirmation.operateur = '" & UCase(Me.Modifiable31) & "'" & _
"WHERE confirmation.observation = '" & UCase(Me.observ) & "';"
CurrentDb.Execute sql
Loop
End If |
Partager