Private Sub Komut68_Click()
Dim x As Integer
For x = 0 To CInt(Me.Metin57) - 1
Sql = " insert into [t_evraklar] (turbaglama, tarihi, ciltno, ilksayfano) values(" & _
Me![Açılan_Kutu6] & ",#" & CStr(Me.Metin18) & "#," & Me![Metin10] & "," & Me![Metin40] + Me![Metin46] * x & ")"
CurrentDb.Execute SQL
Next
End Sub
aşağıdaki ekle butonunun kodunu dener misiniz?