سلام:
با تشکر از لطف همه دوستان....
نوشته شده توسط
سنبله کار
باید بگردید و فرق اون 7 یا 8 مورد را با اون یک مورد پیدا کنید که مثلا در مقدار یا نوع داده یا هرچیز دیگری ممکنه باشه که در کد نویسی پیش بینی نشده
آقای سنبله کار عزیز هیچ تفاوتی نداره و از نظر منطقی هم نمیتونه داشته باشه ( یا من متوجه نشدم) , من بدون اینکه دیتا را دستی وارد کنم فقط با وارد کردن یک عدد به عنوان id (در text کد )
باعث میشوم که این کد که در زیر است بدون هیچ تفاوتی هی تکرار شود ولی این کد در بعضی مواقع به ترتیب سورت نمیشود...اگر می شود بی زحمت خودتان تست کنید با این روش که گفتم 10 ,12 تا رکورد ثبت کنید تا متوجه منظورم بشوید
Private Sub ID_BeforeUpdate(Cancel As Integer)
On Error GoTo err
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Tb_bar ( Mavad,Code ,ID )SELECT Tb_mavad.mavad,Tb_mavad.ID, " & ID & " FROM Tb_mavad ;"
Form_Tb_bar1.Requery
DoCmd.SetWarnings True
Exit Sub
err:
MsgBox err.Description
End Sub