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

append الحاق اسماء المختاريين


Ibrahim IQ

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

السلام عليكم ، اصدقائي عندى قاعده‌ البيانات ولدي جدوليين ولكن اريد فقط اسماء المختاريين في نموذج (frm_A) وهذا النموذج بني على جدول (tbl_A) ترحيل او append الى جدول (tbl_B) فقط اسماء المختاريين الحق الى جدول الثاني .

 

مع تحياتى للجميع

append selected.rar

تم تعديل بواسطه Rebaz Bahram
رابط هذا التعليق
شارك

3 دقائق مضت, Rebaz Bahram said:

السلام عليكم ، اصدقائي عندى قاعده‌ البيانات ولدي جدوليين ولكن اريد فقط اسماء المختاريين في نموذج (frm_A) وهذا النموذج بني على جدول (tbl_A) ترحيل او append الى جدول (tbl_B) فقط اسماء المختاريين الحق الى جدول الثاني .

 

مع تحياتى للجميع

append selected.rar

يا اخ ريباز انا الان عم استخدم موبايل

ان شاء الله راح اساعدك غدا

اذا ما يسبقني احد

تحياتي

  • Like 1
رابط هذا التعليق
شارك

2 دقائق مضت, Shivan Rekany said:

يا اخ ريباز انا الان عم استخدم موبايل

ان شاء الله راح اساعدك غدا

اذا ما يسبقني احد

تحياتي

الله يحميك

من علمني حرفاً ملكني عبدا.... ( علي بن ابي طالب ) ( ر.ض )

  • Like 1
رابط هذا التعليق
شارك

17 ساعات مضت, Rebaz Bahram said:

الله يحميك

من علمني حرفاً ملكني عبدا.... ( علي بن ابي طالب ) ( ر.ض )

اخي ريباز
السلام عليكم ورحمة الله وبركاته
في البداية انا فتحت استعلام ترحيل واضفت حقل ANJAM وعطيت له شروط TRUE اي من بها صح
وعمل نفس الاستعلام لكن استعلام الحذف
واستخدمت هذا الكود لفتح تلك الاستعلامين
 

RESALE = "هل تريد نقل البيانات المحدودة الى جدول اخر"
TITLE = "تنبيه"
If MsgBox(RESALE, vbMsgBoxRight + vbYesNo, TITLE) = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "appendselected1", acViewNormal
DoCmd.OpenQuery "DELETEappendselected1", acViewNormal
DoCmd.Requery
DoCmd.SetWarnings True
MsgBox "تم النقل"
End If

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

DoCmd.OpenQuery "DELETEappendselected1", acViewNormal

واليك قاعدة بياناتك بعد التعديل
 

append selected.rar

  • Like 1
رابط هذا التعليق
شارك

منذ ساعه, Shivan Rekany said:

اخي ريباز
السلام عليكم ورحمة الله وبركاته
في البداية انا فتحت استعلام ترحيل واضفت حقل ANJAM وعطيت له شروط TRUE اي من بها صح
وعمل نفس الاستعلام لكن استعلام الحذف
واستخدمت هذا الكود لفتح تلك الاستعلامين
 


RESALE = "هل تريد نقل البيانات المحدودة الى جدول اخر"
TITLE = "تنبيه"
If MsgBox(RESALE, vbMsgBoxRight + vbYesNo, TITLE) = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "appendselected1", acViewNormal
DoCmd.OpenQuery "DELETEappendselected1", acViewNormal
DoCmd.Requery
DoCmd.SetWarnings True
MsgBox "تم النقل"
End If

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


DoCmd.OpenQuery "DELETEappendselected1", acViewNormal

واليك قاعدة بياناتك بعد التعديل
 

append selected.rar

شكرا لك اخى شڤان بصراحة انا معجب بمعلوماتك ، وهذا يعمل بشكل ممتاز ... بالمناسبة لدي سؤال ، انت تعرف احنا نستعمل (Unikurd Keyboard) وهذا لده بعض النواقس في كلمات مثلا ( ڤ - ىَ - وَ ..... ) في ( access VBA) او وحده‌ النمطية هل هناك حل لهذا ؟؟؟

رابط هذا التعليق
شارك

2 دقائق مضت, Rebaz Bahram said:

شكرا لك اخى شڤان بصراحة انا معجب بمعلوماتك ، وهذا يعمل بشكل ممتاز ... بالمناسبة لدي سؤال ، انت تعرف احنا نستعمل (Unikurd Keyboard) وهذا لده بعض النواقس في كلمات مثلا ( ڤ - ىَ - وَ ..... ) في ( access VBA) او وحده‌ النمطية هل هناك حل لهذا ؟؟؟

بعد انا ما جربت شي هكذ
لكن اذا ما كان على الخطأ 
ذاك المشكلة هو نفس المشكلة في اللغة العربية ب ( أ و إ و ة الخ )
لذا نكدر نستفيد منها وفي المنتدى بها كتير من موضوعات على ذلك

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information