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

[Ibrahim IQ]

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

 

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

append selected.rar

تم تعديل فبراير 19, 2017 بواسطه Rebaz Bahram

[Shivan Rekany]

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

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

 

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

append selected.rar

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

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

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

تحياتي

[Ibrahim IQ]

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

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

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

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

تحياتي

الله يحميك

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

[Shivan Rekany]

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

[Ibrahim IQ]

منذ ساعه, 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) او وحده‌ النمطية هل هناك حل لهذا ؟؟؟

[Shivan Rekany]

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

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

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