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

تحديد كل السجلات ونقل كل السجلات المحدده من جدول الى جدول

محمد حمزه

بواسطه محمد حمزه
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

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

محمد حمزه

محمد حمزه

قام بنشر
قام بنشر

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

استاذتي الكرام

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

بالجدول الفرعي عند النقر على كود الصنف به زر تحديد الكل والغاء التحديد

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

ومرفق الملف للتعديل عليه 

جزاكم الله خير الجزاء

Hmza.rar

رابط هذا التعليق
شارك
محمد أبوعبدالله

محمد أبوعبدالله

قام بنشر
قام بنشر

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

لتحديد الكل نستخدم استعلام تحديث كالتالي 

        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE TableItem SET TableItem.Selc = -1;"
        DoCmd.SetWarnings True
        Me.Requery

ولالغاء تحديد الكل 

        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE TableItem SET TableItem.Selc = 0;"
        DoCmd.SetWarnings True
        Me.Requery

ولنسخ البيانات الى جدول اخر نستخدم استعلام الحاق كالتالي 

        DoCmd.SetWarnings False
        DoCmd.OpenQuery "Query1"
        DoCmd.SetWarnings True
        Me.Requery

Hmza.rar

تحياتي

  • Thanks 1
رابط هذا التعليق
شارك
محمد حمزه

محمد حمزه

قام بنشر
  • الكاتب
قام بنشر

استاذي محمد أبوعبدالله

مشكور على مرورك اخي الكريم 

اخي محمد أبوعبدالله 

عند الاختيار بعد التحديد والضغط على موافق لم يرحل معي كل الاصناف 

كل ماريده هوا مثل هذا الكود 

Forms![FormName]![SubFormFormName]![Text] = Me![Text]
Forms![FormName]![SubForm_FormName]![Text] = Me![Text]
Forms![FormName]![SubForm_FormName]![Text] = Me![Text]
Forms![FormName]![SubForm_FormName]![Text] = Me![Text]
docmd.close

 

رابط هذا التعليق
شارك
محمد أبوعبدالله

محمد أبوعبدالله

قام بنشر
قام بنشر
7 دقائق مضت, محمد حمزه said:

عند الاختيار بعد التحديد والضغط على موافق لم يرحل معي كل الاصناف 

لان جدول Table_StorExch مرتبط بعلاقة مع جدول Table_StorPri

لذلك يجب تحديد رقم Id اولاً انظر الاستعلام Query1

Hmza.rar

تحياتي

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك
محمد حمزه

محمد حمزه

قام بنشر
  • الكاتب
قام بنشر

حاولت التعديل على هذا الكود بدلا من استعلام الحاق 

      DoCmd.SetWarnings False
      DoCmd.RunSQL "UPDATE TableItem SET TableItem.Selc = -1;"
      Forms![Form_StorPri]![Form_StorExchSubform]![ItimeCode] = Me![ItimeCode]
      Forms![Form_StorPri]![Form_StorExchSubform]![NameItemIn] = Me![NameItem]
      Forms![Form_StorPri]![Form_StorExchSubform]![UnetIn] = Me![Unet]
      Forms![Form_StorPri]![Form_StorExchSubform]![A-NoIn] = Me![A-No]
      Forms![Form_StorPri]![Form_StorExchSubform]![QtyIn] = Me![Qty]
      Forms![Form_StorPri]![Form_StorExchSubform]![PraicIn] = Me![Praic]
      Forms![Form_StorPri]![Form_StorExchSubform]![TotalIn] = Me![Total]
        DoCmd.OpenQuery "Query1"
        DoCmd.SetWarnings True
       Me.Requery
DoCmd.Close

ولكن لم يفلح معي

  • Confused 1
رابط هذا التعليق
شارك
  • أفضل إجابة
محمد أبوعبدالله

محمد أبوعبدالله

قام بنشر
  • أفضل إجابة
قام بنشر

حسنا اخي الكريم

اضغط على كود الصنف النموذج الفرعي سيظهر نموذج الاصناف

اختار الاصناف ثم اضغط موافق وانظر النتيجية

Hmza.rar

تحياتي

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك
محمد أبوعبدالله

محمد أبوعبدالله

قام بنشر
قام بنشر
الان, محمد حمزه said:

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

بارك الله فيك اخي الكريم

بالتوفيق اخي الكريم

تحياتي

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

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.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept