اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

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

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

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

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

Message.PNG

تم تعديل بواسطه بيداء الخزعلي
قام بنشر
في ١٠‏/١٢‏/٢٠١٦ at 09:35, ابوخليل said:

 اسمه مثال :

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

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

قام بنشر

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

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

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

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

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

 

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

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

 

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

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

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

 

  • Like 2
قام بنشر

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

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

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

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

تحياتي

  • Like 2
قام بنشر

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

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

بالتوفيق

مثال1.rar

  • Like 1
قام بنشر (معدل)
في ١٥‏/١٢‏/٢٠١٦ at 09:29, ابوخليل said:

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

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

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

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

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

 

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

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

 

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

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

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

 

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

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

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

تم تعديل بواسطه بيداء الخزعلي
قام بنشر
14 ساعات مضت, رمهان said:

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

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

بالتوفيق

مثال1.rar

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

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

1.PNG

2.PNG

مثال.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

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

بالتوفيق

  • Like 2
قام بنشر
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

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

بالتوفيق

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

  • Like 2
  • 2 weeks later...
قام بنشر

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

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

قام بنشر (معدل)
في 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

تم تعديل بواسطه ابا جودى
قام بنشر

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

تحياتي

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information