ترحيل حقل مرفق عن طريق مربع تحرير وسرد _ معدل

[حامل المسك]

السلام عليكم ورحمة الله،،

وصباحكم سعيد بكل خير ونور..

أساتذتنا الكرام،،

هل يمكن نقل المرفقات عن طريق الاختيار من مربع تحرير وسرد عن طريق كود

Me![ha1] = Me![ha].Column(1)

حيث يظهر خطأ في النقل،،

مع جزيل الشكر وعظيم الامتنان،،

ترحيل مرفقات.accdb

[TQTHAMI]

If MsgBox("سيتم نقل سجل الموظف رقم " & Me.Cmb & " الى الجدول الثانى ", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl2 ( [رقم الموظف], ha1, التاريخ ) SELECT tbl1.[رقم الموظف], tbl1.الاسم, tbl1.التاريخ FROM tbl1 WHERE (((tbl1.[رقم الموظف])=[forms]![frm1].[cmb]));"
DoCmd.RunSQL "DELETE  tbl1.* FROM tbl1 WHERE (((tbl1.[رقم الموظف])=[forms]![frm1].[cmb]));"
Me.Requery
DoCmd.SetWarnings True
End If

غير المسميات وضعه في حدث بعد التحديث

ان شاء الله اكون وفقت في ماطلبت

[حامل المسك]

5 ساعات مضت, TQTHAMI said:

غير المسميات وضعه في حدث بعد التحديث

ان شاء الله اكون وفقت في ماطلبت

أسعدك الله ورضي عنكم ،، لم تضبط معي،، علمًا بأني أريد نسخ وليس حذف..

 

[ابوخليل]

وعليكم السلام .. اهلا ابا انس

الحقيقة  نقله عبر النموذج فيه صعوبة حبتين لاننا نحتاج لمصفوفة لجلب بيانات المرفق

ايضا نحن بحاجة الى حقل صريح مرتبط بالحقل الذي نريد النقل منه ، ونموذجك مصدر بياناته الجدول المنقول اليه

لدي استفسار ذو شقين :

هل طلبك هو عملية نقل المرفق واحدا واحدا حسب الحاجة ؟ 

وما رأيك بعملية نسخ الجدول الأول بكامله الى الجدول الثاني ؟

[Moosak]

من مكتبتي ..

هذا مرفق من موقع أجنبي لكيفية نقل المرفقات من جدول إلى آخر .. وكيفية نقل الحقول ذوات القيم المتعددة أيضا ..

حيث أنهما يشتركان في طريقة التعامل نفسها 🙂 

theDBguyMVFAttachmentDemoV1.accdb

[ابوخليل]

شكرا استاذ موسى على المرفق الجميل جزاك الله خيرا

قمت باستلال الزبدة منه .. لكونها هنا ابقى واقرب للتناول

On Error GoTo errHandler

Dim rs1 As DAO.Recordset 'Table with attachments to be imported
Dim rs2 As DAO.Recordset 'Table to import attachments into
Dim rs3 As DAO.Recordset2 'Attachments to be imported
Dim rs4 As DAO.Recordset2 'Recordset to accept the new attachments
Dim strSQL As String

'Open table with attachments
strSQL = "SELECT RecordID, Attachments FROM tblOldTable WHERE Attachments.FileName Is Not Null ORDER BY RecordID"
Set rs1 = db.OpenRecordset(strSQL, dbOpenSnapshot)

'Loop through all the records to be imported
Do While Not rs1.EOF
    'Open table to be appended
    strSQL = "SELECT RecordID, Attachments FROM tblNewTable WHERE RecordID=" & rs1!recordid
    Set rs2 = db.OpenRecordset(strSQL, dbOpenDynaset)
    
    'Recordsets for the attachment fields
    Set rs3 = rs1!Attachments.Value
    Set rs4 = rs2!Attachments.Value

    'Table to be appended must be in edit mode
    rs2.Edit
    
    'Add all new attachments (Note: Access automatically adds the file type)
    Do While Not rs3.EOF
        rs4.AddNew
            rs4!FileData = rs3!FileData
            rs4!FileName = rs3!FileName
        rs4.Update
        rs3.MoveNext
    Loop
    
    'Update parent record
    rs2.Update
    
    'Go to next record with attachment to import
    rs1.MoveNext
    
Loop
    
'Refresh new table subform
Me.frmNewAttachment.Requery

errExit:
    'Cleanup
    rs2.Close
    rs1.Close
    Set rs4 = Nothing
    Set rs3 = Nothing
    Set rs2 = Nothing
    Set rs1 = Nothing
    Exit Sub
    
errHandler:
    MsgBox Err.Number & ": " & Err.Description
    Resume errExit

 

[ابوخليل]

نسيت شيئا 

هذا الكود يوضع في اعلى الكود السابق تحت المتغيرات بالضبط

strSQL = "INSERT INTO tblNewTable (RecordID, Field1) " _
    & " SELECT RecordID, Field1 FROM tblOldTable"
  
db.Execute strSQL, dbFailOnError

وايضا كود لحذف الجدول الجديد يوضع قبل هذا ...

عذرا احبتي .. التوجيه لأخوتي المبتدئين .. 

[Eng.Qassim]

11 ساعات مضت, حامل المسك said:

هل يمكن نقل المرفقات عن طريق الاختيار من مربع تحرير وسرد عن طريق كود

لايمكن ذلك ...فحقل ال Attachment فيه ثلاث تفرعات

abb.FileData

abb.FileName

abb.FileType

ولهذا تحتاج لنسخ تلك الحقول او التفرعات الى حقل الجدول لديك

اعتقد مثال استاذ موسى يساعدك

1 ساعه مضت, ابوخليل said:

هل طلبك هو عملية نقل المرفق واحدا واحدا حسب الحاجة ؟

هذا كان السؤال الذي يدور في دماغي ...فنحن لسنا بحاجة للدوران حول كل السجلات

لكن المشكلة ان الاستعلام لايعمل مع ال Attachment

اعتقد الموضوع بحاجة لبخور عماني ☺️

[حامل المسك]

حياكم الله أساتذتنا الفضلاء،،

وأعتذر لتأخر الإجابة على ما تفضلتم به وما كان ذلك لي إلا لكثرة عمل بخاصة في هذه الأيام..

وأنا أستعين بكم بعد الله في كل خطوة كتب الله أجركم ورضي عنكم،،

وشكر الله لك @ابوخليل فأنت صاحب فضل سابق ولاحق،،

والشكر موصول لـ @TQTHAMI و @Moosak و @Eng.Qassim

على كل فائدة رائعة ورائدة مما خطت به أناملكم،،

 

19 ساعات مضت, ابوخليل said:

دي استفسار ذو شقين :

هل طلبك هو عملية نقل المرفق واحدا واحدا حسب الحاجة ؟ 

وما رأيك بعملية نسخ الجدول الأول بكامله الى الجدول الثاني ؟

الفكرة أن لدي برنامج به مجموعة  مرفقات من قرارات ونماذج وورد واكسل مرفقة تسهل على الزملاء في العمل العمل،،

أخشى في حال دخول الزميل لتنزيل النموذج واستخدامه أن يقوم بحذفه، فجاءت الفكرة أن الزميل يختار رقم النموذج فينتقل لجدول آخر خاص به بحيث لو حذف المرفقات أو أحدها تكون الأصل لدي موجودة،،

هذا أصل الفكرة .. إذا كان هناك إمكانية أن تبقى كما هي ويكون هناك إمكانية استخدام دون حذف فهذا رائع،،

أسعدكم الله يا كرام ..