Io Emad قام بنشر نوفمبر 23, 2017 مشاركة قام بنشر نوفمبر 23, 2017 (معدل) السلام عليكم عندي جدولين جدول 1 وجدول 2 اريد عند أضافة البيانات في جدول 1 بشرط ان هناك خليتين في جدول واحد عبارة عن ارقام خلية برقم من 10 والخلية التانية 20 كما في الصورة التالية تضاف تلقائيا الي الجدول رقم 2 بحيث يتم تكرار البيانات في خلية من 10 الي 20 كما في الصورة التالية القاعدة مرفقة Database22.zip تم تعديل نوفمبر 23, 2017 بواسطه Io Emad رابط هذا التعليق شارك More sharing options...
Io Emad قام بنشر نوفمبر 25, 2017 الكاتب مشاركة قام بنشر نوفمبر 25, 2017 هل الموضوع صعب ؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 26, 2017 مشاركة قام بنشر نوفمبر 26, 2017 وعليكم السلام الموضوع غير واضح ، ياريت تعطينا مثالين. جعفر 1 رابط هذا التعليق شارك More sharing options...
Io Emad قام بنشر نوفمبر 26, 2017 الكاتب مشاركة قام بنشر نوفمبر 26, 2017 عندي جدول اسمة 1 فيه الحقول التالية ID Name NumberFrom NumberTo Date وجدولل اخر اسمة 2 فيه الحقول التالية ID Name Number Date عند أضافة البيانات في الجدول رقم واحد تضاف البيانات تلقائي الي الجدول رقم 2 بدون تدخل مني بشرط أذا كان الرقم في حقل NumberFrom 1 والرقم اللي في حقل NumberTo 10 يقوم بتكرار البيانات في حقل Number من 1 ل10 مع مع جعل البيانات ثابتة ف الحقول ID و Name و Date رابط هذا التعليق شارك More sharing options...
Io Emad قام بنشر نوفمبر 27, 2017 الكاتب مشاركة قام بنشر نوفمبر 27, 2017 up رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 27, 2017 مشاركة قام بنشر نوفمبر 27, 2017 تفضل هذا الكود يقوم بالعمل: Private Sub cmd_Do_Records_Click() Dim i As Integer Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [2]") For i = Me.NumFrom To Me.NumTo rst.AddNew rst!ID = Me.ID rst![name] = Me!name rst!Numall = i rst![date] = Me.[date] rst.Update Next i rst.Close: Set rst = Nothing MsgBox "Done" End Sub جعفر 759.Database22.accdb.zip 2 رابط هذا التعليق شارك More sharing options...
Io Emad قام بنشر نوفمبر 27, 2017 الكاتب مشاركة قام بنشر نوفمبر 27, 2017 (معدل) 2 ساعات مضت, jjafferr said: تفضل هذا الكود يقوم بالعمل: Private Sub cmd_Do_Records_Click() Dim i As Integer Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [2]") For i = Me.NumFrom To Me.NumTo rst.AddNew rst!ID = Me.ID rst![name] = Me!name rst!Numall = i rst![date] = Me.[date] rst.Update Next i rst.Close: Set rst = Nothing MsgBox "Done" End Sub جعفر 759.Database22.accdb.zip شكرا اخي علي اهتمامك وتعبك وعملك الرائع .. بالفعل هذا هو المطلوب .. أشكرك جدا . استاذي الفاضل تم تعديل نوفمبر 27, 2017 بواسطه Io Emad رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 28, 2017 مشاركة قام بنشر نوفمبر 28, 2017 حياك الله ولكي يكتمل الكود ، يجب ان تفحص الجدول اذا كانت هذه القيمة تم اضافتها سابقا ، وإلا فسيكون عندك تكرار في سجلات الجدول 2 جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان