Dim x As Integer
DoCmd.SetWarnings False
For x = 1 To Me.Metin5.Value
DoCmd.RunSQL ("INSERT INTO Tablo1 ( [ÇALIŞMA ADI] ) SELECT '' AS İfade1;")
Next x
DoCmd.SetWarnings True
Requery
butonu tıkladığında açılan kutudan seçtiğin veri kadar tabloya boş kayıt eklenir.
Pardon Ercan hocam, 1 dakika geç kalmışım.