تكرار ركوردها

با سلام خدمتدوستان و اساتيد محترم در برنامه پيوست يك فرم وجوددارد كه در آن دو تكست باكس وجوددارد مي خواهم زماني كه در تكست باكس عنوان نامي وارد شد و در تكست باكس تعداد دفعات تكرار عددي وارد شد با زدن دكمه ثبت به تعداد ذكر شده از ركورد مورد نظر در جدول ذخيره گردد مثلا اگر عدد 5 زده شد 5 بار ركورد تكرار گردد . خواهشمندم در صورت امكان راهنمائي بفرمائيد . با تشكر

نمونه فایلتان اصلاح شد

با سلام اول تشكر مي كنم از اينكه به سوال من توجه نموديد و پاسخ داديد . دوست عزيز در برنامه پيوست من سه عدد تكست باكس دارم كه كه شمار را تغيير دادم تا هر سه تكست باكس در جدول قرار گيرد ولي يك مشكل بوجود مي آيد و آن هم اين است كه هر كدام از تكست باكسها را در يك ركورد ذخيره مي كند در صورتيكه من مي خواهم هر سه تكست باكس در يك ركورد ذخيره شوند در صورت امكان راهنمائي فرمائيد اگر زحمتي نيست فايل را اصلاح بفرمائيد ممنون

کد زیر را جایگزین کنید:

Private Sub Command4_Click()

Dim s As String

s = "INSERT INTO Table1 ([name],[family],[jens]) VALUES('" & Text0 & "','" & Text5 & "','" & Text7 & "')"

For k = 1 To Val(Text2)

  CurrentDb.Execute s

Next

End Sub

دوست بسيار عزيزم از راهنمائي شما سپاسگزارم مشكل كاملا مرتفع گرديد ممنون