كيف يمكن دمج مجموعة من السجلات في نموذج وإلحاقها إلى نموذج آخر؟

وعليكم السلام اخي خضر :)

عذرا ، لم افهم المطلوب ، وياريت ترفق مثال :)

جعفر

السلام عليكم أخي الغالي جعفر

أتمنى أن تساعدني في هذه الفكرة

عذرا اخي خضر ، فانا لم افهم المطلوب ، وارفاق مثال سيساعدني في فهم المطلوب :)

جعفر

السلام عليكم أخي العزيز جعفر

السلام عليكم أخي العزيز جعفر

وضحت الفكرة أخي جعفر

وضحت الفكرة أخي جعفر

وضحت الفكرة أخي جعفر

هذا المرفق

هذا المرفق

TestKhodor.rar

تفضل :)

انا غيرت اسم الزر الى cmd_Append ، وهذا كود حدث الضغط على الزر:

Private Sub cmd_Append_Click()
On Error GoTo err_cmd_Append_Click

    'save the last change in the Form
    If Me.Dirty Then Me.Dirty = False
    
    'place the whole Form data in a Recordset
    Set rst = Me.RecordsetClone
    'load it all in memory
    rst.MoveLast: rst.MoveFirst
    
    'initialize the subjects to nothing
    s = ""
    'loop through the Form Records
    For i = 1 To rst.RecordCount
        
        'only use the Record which's Send is selected
        If rst!Send = -1 Then
            s = s & " " & rst!Subject
        End If
        
        'move to the next Record
        rst.MoveNext
    Next i
    
    
    'do the Append SQL
    mySQL = "INSERT INTO Destination ( Subject ) SELECT " & Chr(34) & Trim(s) & Chr(34)
    'execute it, without warnings
    CurrentDb.Execute (mySQL)
    
    MsgBox "Done"

Exit Sub
err_cmd_Append_Click:

    If Err.Number = 3021 Then
        'ignore, No Record
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

End Sub

جعفر

أخي العزيز جعفر شكرا لك جزيل الشكر

لقد تم المطلوب بنجاح

حياك الله :)

شكرا أخي العزيز جعفر من جديد

لقد قرأت الكود بتمعن وقد فهمت القصد منه

هيك الشغل المزبوط :)

لهذا السبب انا دائما اكتب ملاحظاتي في الكود :)

جعفر

السلام عليكم اخي خضر :)

معلومة اخرى قد تستفيد منها :)

في صفحة الكود ، اختار

View > immediate window

هذا سيفتح لك نافذة صغيرة تحت الكود ، ويمكننا في هذه النافذة إعطاء أمر ، او مجرد مشاهدة (وهذا الذي ستلاحظه فيها الآن) ،

بعد السطر اللي يبدأ بـ mySQL ، ادخل السطر التالي:

debug.print mySQL

والآن اضغط زر Append في النموذج ، ثم ارجع ولاحظ ما كتب في نافذة الكود ،

سترى انه كود استعلام الإلحاق ،

جرب:

انسخه ،

اخرج من الكود الى الواجهة الرئيسية للاكسس ،

ثم اعمل استعلام جديد ، غير الوضع الى SQL ، والصق هذا السط في SQL الاستعلام ،

غير الوضع الى تصميم ، وسترى الاستعلام بالطريقة المعتادة :)

السبب الذي اخبرتك عن هذا كله ، حتى تعرف لماذا استعملت chr(34) في الكود :)

جعفر