تكرار البيانات في جدول اخر

[Io Emad]

السلام عليكم

عندي جدولين جدول 1 وجدول 2

اريد عند أضافة البيانات في جدول 1 بشرط ان هناك خليتين في جدول واحد عبارة عن ارقام خلية برقم من 10 والخلية التانية 20

كما في الصورة التالية 

 

تضاف تلقائيا الي الجدول رقم 2 بحيث يتم تكرار البيانات في خلية من 10 الي 20 

كما في الصورة التالية

 

القاعدة مرفقة

 

Database22.zip

تم تعديل نوفمبر 23, 2017 بواسطه Io Emad

[Io Emad]

هل الموضوع صعب ؟

[jjafferr]

وعليكم السلام

 

الموضوع غير واضح ،

ياريت تعطينا مثالين.

 

جعفر

[Io Emad]

عندي جدول اسمة 1 فيه الحقول التالية

 

ID Name NumberFrom NumberTo Date

وجدولل اخر اسمة 2 فيه الحقول التالية

 

ID Name Number Date

عند أضافة البيانات في الجدول رقم واحد تضاف البيانات تلقائي الي الجدول رقم 2 بدون تدخل مني بشرط

 

أذا كان الرقم في حقل NumberFrom 1

والرقم اللي في حقل NumberTo 10

يقوم بتكرار البيانات في حقل Number من 1 ل10 مع  مع جعل البيانات ثابتة ف الحقول ID و Name و Date

 

[Io Emad]

up

[jjafferr]

تفضل

 

هذا الكود يقوم بالعمل:

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

[Io Emad]

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

[jjafferr]

حياك الله

 

ولكي يكتمل الكود ، يجب ان تفحص الجدول اذا كانت هذه القيمة تم اضافتها سابقا ، وإلا فسيكون عندك تكرار في سجلات الجدول 2

 

جعفر