kodu aşağıdaki ile değiştirerek deneyiniz.

Dim Sql As String



Dim i As Byte



For i = 1 To 5

sql = "Insert Into Table1 ([MAX], [MIN], [SONUC]) values ('" & Controls("Max" & i) & "', '" & Controls("Min" & i) & "','" & Controls("Sonuc" & i) & "')"

      Debug.Print sql

      CurrentDb.Execute sql

Next i