نقل ملفات Attachment من جدول لأخر

[ام ناصر]

السلام عليكم ورحمة الله وبركاته ..

لدي استفسار لو سمحتوا راجية فيه ارشادكم ونصحكم اساتذتي الكرام ,

عند نقل او حف بيانات موظف من جدول الموظفين لجدول لآخر وذلك بأستخدام استعلام الحاقي او استعلام حذف  تُنقل وتحذف كافة البيانات كما نود  اما عند اضافة حقل ملفات Attachment للجدول  و تنفيذ  الاستعلامين المذكورين تظهر مسج كما مبينة بالصورة ادناه ولايتم نقل البيانات للجدول الثاني.

 ياترى كيف تعالج هذه الحالة ؟ وكيف يمكنني ان الغي رسائل الاستعلام عن الرغبة بأضافة او حذف السجل التي تظهر عند ضغط زر الامر بالحذف والاضافة, حاولت ارفق المثال ألا ان حجمه اكبر من الحجم المسموح  للاضافة , شاكرة لكل من يتابع الموضوع .

تم تعديل ديسمبر 9, 2016 بواسطه بيداء الخزعلي

[ابوخليل]

 اسمه مثال :

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

[ام ناصر]

شكرا ً للاهتمام استاذي الجليل 

المثال مرفق ادناه 

مثال1.rar

[ام ناصر]

في ١٠‏/١٢‏/٢٠١٦ at 09:35, ابوخليل said:

 اسمه مثال :

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

استاذي الفاضل تم  رفع المثال  

[ابوخليل]

ابنتي الفاضلة

مع الاسف لم اتمكن من الوصول الى حل المشكلة

علما اني  اعمل  على الاصدار  2003 وليس لي خبرة بهذه المشكلة من قبل وكان لزاما ان انقل المثال الى جهاز آخر

وكانت النتيجة : "اكسس يمتنع عن الحاق  الحقول ذات القيم المتعددة"

والمجال مفتوح لاهل الخبرة  ليفيدونا مشكورين لمن مرت به هذه المشكلة وتمكن من الإلحاق

 

وان استعصى الحل  قد نجد مخرجاً :

 ما الغرض من الالحاق ؟ .. لعلنا نجد لك حلا  آخر ينوب عنه

 

اما بالنسبة لالغاء رسائل التحذير  

فالحل هو  ان نجعل  امر  الاستعلام  (الكود او امر فتح الاستعلام  بين هذين السطرين )

DoCmd.SetWarnings False
 ' .......
 DoCmd.SetWarnings True
 

 

[رمهان]

بارك فيك استاذ ابا خليل وبعد اذنك

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

سيتم التطبيق عند العودة للبيت ان شاء الله

واوافقك الراي في لماذا المرفقات تكون في اكثر من جدول مع العلم ان وجودها في جدول واحد كافي ويتم الربط بين الجدولين

تحياتي

[رمهان]

هذا كود يقوم بمهمة نقل المرفقات

الاستعلام يكون استعلام الحاق عادي غير مضمن به حقل المرفقات والكود يقوم بالمهمة وبنقر الزر بالنموذج

بالتوفيق

مثال1.rar

[ام ناصر]

في ١٥‏/١٢‏/٢٠١٦ at 09:29, ابوخليل said:

ابنتي الفاضلة

مع الاسف لم اتمكن من الوصول الى حل المشكلة

علما اني  اعمل  على الاصدار  2003 وليس لي خبرة بهذه المشكلة من قبل وكان لزاما ان انقل المثال الى جهاز آخر

وكانت النتيجة : "اكسس يمتنع عن الحاق  الحقول ذات القيم المتعددة"

والمجال مفتوح لاهل الخبرة  ليفيدونا مشكورين لمن مرت به هذه المشكلة وتمكن من الإلحاق

 

وان استعصى الحل  قد نجد مخرجاً :

 ما الغرض من الالحاق ؟ .. لعلنا نجد لك حلا  آخر ينوب عنه

 

اما بالنسبة لالغاء رسائل التحذير  

فالحل هو  ان نجعل  امر  الاستعلام  (الكود او امر فتح الاستعلام  بين هذين السطرين )

DoCmd.SetWarnings False
 ' .......
 DoCmd.SetWarnings True
 

 

استاذي الفاضل ابو خليل شكرا جزيلاً لتفضلك بالرد  ..

بالنسبة للغرض من استخدام استعلام الالحاق وارفاق الملحقات بأكثر من جدول هو ناتج عن طلب العميل بالغاء خدمة احد الموظفين مع ابقاء كامل معلوماته في جدول آخر للموظفين المنتهية خدمتهم وانا استخدمت استعلام الالحاق وواجهتني هذه المشكلة  .

واشكرك مرة ثانية لكود الغاء رسائل التحذير .

تم تعديل ديسمبر 16, 2016 بواسطه بيداء الخزعلي

[ام ناصر]

14 ساعات مضت, رمهان said:

هذا كود يقوم بمهمة نقل المرفقات

الاستعلام يكون استعلام الحاق عادي غير مضمن به حقل المرفقات والكود يقوم بالمهمة وبنقر الزر بالنموذج

بالتوفيق

مثال1.rar

بارك الله فيك استاذي الجليل  المثال قام بنقل جميع المرفقات بنجاح

استفسار آخر جزاك ربي خير ,كيف سيتم نقل  بيانات موظف واحد من مجموعة موظفين مع العلم اني وضعت الشرط في الاستعلام  وذلك بعد تحديد اسم الموظف من النموذج الا انه لم يتم نقل مرفقاته بشكل صحيح  ويظهر لي المسج ادناه والمثال بعد وضع الشرط مرفق ادناه لو سمحت 

مثال.rar

[رمهان]

تعديل في جمل الاسكيو ال

Set rs = CurrentDb.OpenRecordset("select * from emp where [اسم الموظف] Like '" & [Text1] & "*'"): rs.MoveFirst
Set rs1 = CurrentDb.OpenRecordset("select * from transfer where [اسم الموظف] Like '" & [Text1] & "*'"): rs1.MoveFirst

مع التنبيه انه يتم تشغيل الاستعلام اولا ثم النقر على الزر

بالتوفيق

[ام ناصر]

5 دقائق مضت, رمهان said:

تعديل في جمل الاسكيو ال

Set rs = CurrentDb.OpenRecordset("select * from emp where [اسم الموظف] Like '" & [Text1] & "*'"): rs.MoveFirst
Set rs1 = CurrentDb.OpenRecordset("select * from transfer where [اسم الموظف] Like '" & [Text1] & "*'"): rs1.MoveFirst

مع التنبيه انه يتم تشغيل الاستعلام اولا ثم النقر على الزر

بالتوفيق

سلمت الايادي استاذنا الفاضل ربي يوفقكم ولايحرمنا من عطائكم .. الكود شغال وتم النقل فيه بنجاح 

[ام ناصر]

سؤال آخر لأساتذتي الكرام اهل الخبرة لو يتفضلون علينا بالاجابة مشكورين  ..

استخدمت جملة التحديث في نقل بيانات الموظفين من جدول الموظفين  الى جدول انهاء الخدمة واردت ان احذف السجل  الخاص بالموظف المنهية خدمته من جدول الموظفين ,فعند استخدامي لاستعلام الحذف تمسح كافة البيانات المرتبطة بهذا الموظف من عقوبات مكافآت ..الخ ,  من الجداول المرتبطة معه بعلاقات ولا استطيع حذف هذه العلاقات لمنعها من التأثر بالحذف الحاصل في جدول الموظفين. فما العمل برأيكم ؟ 

[ابو جودي]

في 12/16/2016 at 15:58, رمهان said:

تعديل في جمل الاسكيو ال

Set rs = CurrentDb.OpenRecordset("select * from emp where [اسم الموظف] Like '" & [Text1] & "*'"): rs.MoveFirst
Set rs1 = CurrentDb.OpenRecordset("select * from transfer where [اسم الموظف] Like '" & [Text1] & "*'"): rs1.MoveFirst

مع التنبيه انه يتم تشغيل الاستعلام اولا ثم النقر على الزر

بالتوفيق

السلام عليكم ورحمة الله تعالى وبركاته
استاذى الحبيب ومعلمى الجليل 

ممكن سؤال على استحياء
مال الحكمة من قول حضرتك 

مع التنبيه انه يتم تشغيل الاستعلام اولا ثم النقر على الزر

ولماذا لم تقم بعمل الكود بهذا الشكل فيتم الضغط على الزر مباشرة فيشغل الاستعلام اولا ثم الكود البرمجى بعد الاستعلام ؟!!!!!!

Private Sub Command0_Click()

DoCmd.SetWarnings False
DoCmd.OpenQuery "استعلام اضافة بيانات"
DoCmd.SetWarnings True

Set rs = CurrentDb.OpenRecordset("select * from emp where [اسم الموظف] Like '" & [Text1] & "*'"): rs.MoveFirst
Set rs1 = CurrentDb.OpenRecordset("select * from transfer where [اسم الموظف] Like '" & [Text1] & "*'"): rs1.MoveFirst

While Not rs.EOF
Set rs2 = rs.Fields(7).Value
Set rs3 = rs1.Fields(7).Value
rs1.Edit
While Not rs2.EOF
rs3.AddNew
rs3!FileName = rs2!FileName
rs3!FileData = rs2!FileData
rs3.Update
rs2.MoveNext
Wend
rs1.Update
rs.MoveNext
rs1.MoveNext
Wend
End Sub

 

_upمثال1.rar

تم تعديل ديسمبر 24, 2016 بواسطه ابا جودى

[رمهان]

الهدف اضافة السجلات اولا وبدون مرفقات . وكلامك صحيح وجميل باضافة الاضافة من الكود . 

تحياتي