اذهب الي المحتوي

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

محمد حمزه

بواسطه محمد حمزه
نوفمبر 23, 2020 في قسم الأكسيس Access

https://www.officena.net/ib/topic/106332-%D8%AA%D8%AD%D8%AF%D9%8A%D8%AF-%D9%83%D9%84-%D8%A7%D9%84%D8%B3%D8%AC%D9%84%D8%A7%D8%AA-%D9%88%D9%86%D9%82%D9%84-%D9%83%D9%84-%D8%A7%D9%84%D8%B3%D8%AC%D9%84%D8%A7%D8%AA-%D8%A7%D9%84%D9%85%D8%AD%D8%AF%D8%AF%D9%87-%D9%85%D9%86-%D8%AC%D8%AF%D9%88%D9%84-%D8%A7%D9%84%D9%89-%D8%AC%D8%AF%D9%88%D9%84/

متابعين 0

إذهب إلى الإجابة الإجابة بواسطة محمد أبوعبدالله, نوفمبر 23, 2020

اضف رد علي هذا الموضوع
أضف موضوع جديد

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

محمد حمزه

محمد حمزه

قام بنشر نوفمبر 23, 2020

قام بنشر نوفمبر 23, 2020

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

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

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

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

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

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

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

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

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

قام بنشر نوفمبر 23, 2020

قام بنشر نوفمبر 23, 2020

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

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

        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

تحياتي

1

محمد حمزه

محمد حمزه

قام بنشر نوفمبر 23, 2020

الكاتب

قام بنشر نوفمبر 23, 2020

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

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

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

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

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

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

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

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

قام بنشر نوفمبر 23, 2020

قام بنشر نوفمبر 23, 2020

7 دقائق مضت, محمد حمزه said:

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

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

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

تحياتي

1
1

محمد حمزه

محمد حمزه

قام بنشر نوفمبر 23, 2020

الكاتب

قام بنشر نوفمبر 23, 2020

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

      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

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

1

تمت الإجابة

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

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

قام بنشر نوفمبر 23, 2020

تمت الإجابة

قام بنشر نوفمبر 23, 2020

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

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

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

تحياتي

1
1

محمد حمزه

محمد حمزه

قام بنشر نوفمبر 23, 2020

الكاتب

قام بنشر نوفمبر 23, 2020

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

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

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

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

قام بنشر نوفمبر 23, 2020

قام بنشر نوفمبر 23, 2020

الان, محمد حمزه said:

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

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

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

تحياتي

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.

اضف صوره من رابط خارجي

×

https://www.officena.net/ib/topic/106332-%D8%AA%D8%AD%D8%AF%D9%8A%D8%AF-%D9%83%D9%84-%D8%A7%D9%84%D8%B3%D8%AC%D9%84%D8%A7%D8%AA-%D9%88%D9%86%D9%82%D9%84-%D9%83%D9%84-%D8%A7%D9%84%D8%B3%D8%AC%D9%84%D8%A7%D8%AA-%D8%A7%D9%84%D9%85%D8%AD%D8%AF%D8%AF%D9%87-%D9%85%D9%86-%D8%AC%D8%AF%D9%88%D9%84-%D8%A7%D9%84%D9%89-%D8%AC%D8%AF%D9%88%D9%84/

متابعين 0

الذهاب الي قائمه المواضيع

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

×

×

اضف...

Important Information

I accept