resim daha açıklayıcı olacak
![[Resim: p5YAVq.jpg]](https://i.hizliresim.com/p5YAVq.jpg)
(07/06/2019, 08:02)haliliyas yazdı: tam olarak anlayamadım, biraz daha açıklayıcı olabilir misiniz?
ama anladığım kadarıyla söyleyeyim
1 - her bir metin kutusundan 10 tane eklersiniz hepsini doldurunca "tamam" tuşuna bastığınızda ekleyebilirsiniz
2 - altformda geçici bir tablo oluşturup yine "tamam" tuşuna basılınca eklenebilir
3 - kayıtlar arasına ";",":" yada "|" ekleyerek bir dizi/array oluşturup o şekilde de ekleyebilirsiniz
iyi çalışmalar
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