Elsayed A Eldiasty

استاذتنا الكرم شكراً لي اهتمام حضرتكم 

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

قمت بعمل مربع نص اخر جمب مربع نص البحث

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

Dim X

x= me.searchbox.Text

Me.search =x

وتم تعديل دالة Like وازالة Text منها 

والمشكلة كانت استخدام تعريف الحقل في الاستعلام انه Text 

الملف بعد التعديل.rar

السلام عليكم

عندي استعلام وبداخله حقل فيها شرط بحث بي دالة like وشغاله تمام

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

تجريبي.rar

10 دقائق مضت, alhourriah said:

منطقياً اتوقع الموضوع متعلق بنوع الطابعة وخصائصها، عندي طابعتين في العمل، الأولى تملك هذه الخاصية والثانية لا.

لا اتوقع تستطيع ان تطبع على وجهين اذا كانت الطابعة لا تملك هذا الخيار.

 

انا الطباعة عندي بتطبع علي الجانبين 

الفكرة انا عوز طريقة عند الطباعة المباشرة تقوم بالطباعة علي وجهتي الورقة 

1 ساعه مضت, kkhalifa1960 said:

استاذ @Elsayed A Eldiasty اقرأ هذه المشاركة .

 

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

السلام عليكم 

هل من الممكن عند طباعة تقرير مباشر 

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

15 ساعات مضت, شايب said:

مشاركة مع الاساتذه الكرام

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

ولكن يمكن التوصل للمطلوب بدون الحاجة الى ذلك

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

وبالتالي يمكن اضافة السطر

Me.AllowEdits = False

قبل الكود الذي تستخدمه

ولكن لابد ان تعيد تغيير الخاصة الى نعم بعد تنفيذ البحث او في اي حدث اخر لتتمكن من تعديل البيانات في النموذج

اخونا الشايب

 

تمام استاذنا الغالي تواصلت لي النتيجة التي اريده

والكود اصبح 

Me.AllowEdits = False

DoCmd.GoToControl Screen.PreviousControl.Name

DoCmd.RunCommand acCmdFind

وهنا اضع دالة التأكد من الصلاحية اذا كان له الصلاحية 

Me.AllowEdits = True

وبذالك اكون تغلبت علي عدم ظهور استبدال وطبعاً الفضل لي مشاركة حضرتك

17 ساعات مضت, kkhalifa1960 said:

تفضل أخي @Elsayed A Eldiasty محاولتي . ووافني بالرد .

DD438.rar 33.14 kB · 9 downloads

شكراً لي اهتمام حضرتك ليس هذا ما اريده

والحمد لله تواصلت للحل بمساعدة الاستاذ @شايب

منذ ساعه, Foksh said:

السلام عليكم ،

قمت بتجربة الأكواد ولكنها لم تعمل , اعتذر 

شكرا لي اهتمام حضرتك

32 دقائق مضت, Moosak said:

جرب اضغط Ctrl+H

أو ضع الكود التالي على الزر :

Me.TextBoxName.Setfocous
Application.SendKeys "^h"

 

🙂 

استاذنا الغالي

الفكرة باختصار انا اريد وضع هذا الكود في زر في النموذج

DoCmd.GoToControl Screen.PreviousControl.Name
DoCmd.RunCommand acCmdFind
للبحث داخل اي حقل اقوم بالتركيز عليه قبل الضغط علي زر تشغيل قائمة (Find) وهو يعمل معي تمام

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

لذالك اريد عند فتح القائمة يظهر (بحث فقط)

منذ ساعه, kkhalifa1960 said:

ممكن توضح أكثر أو ترسل مرفق موضح عليه طلبك .

استاذنا

اريد كود يقوم بفتح هذه القائمة يظهر خيار بحث فقط

السلام عليكم 

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

السلام عليكم 

لدي متغيير قمت بتعريفه في قاعدة البيانات اسمه namerpts اريد وضعه داخل دالة DLookup

(" [لما القيمة دي تساوي المتغيير] = namerpts ","اسم الجدول","[الحقل]")DLookup

الرجاء المساعدة في كتابة الدالة بالصيغة الصحيحة لكي تعمل معي

في 10‏/7‏/2023 at 16:50, د.كاف يار said:

طبعا لا يمكن 
و لكن تستطيع انشاء جدول داخل جدول من خلال اكواد HTML

<table border="1" width="100%">
  <tr>
    <td>Name 1</td>
    <td>Name 2</td>
    <td colspan="2">Name 3</td>
    <td>Name 4</td>
  </tr>

  <tr>
    <td rowspan="3">ITEM 1</td>
    <td rowspan="3">ITEM 2</td>
    <td>name</td>
    <td>price</td>
    <td rowspan="3">ITEM 4</td>
  </tr>
  <tr>
    <td>name</td>
    <td>price</td>
  </tr>
  <tr>
    <td>name</td>
    <td>price</td>
  </tr>
</table>

 

و النتيجة تكون التالي

 

ارفق مثالك و سيتم التطبيق عليه انشاء الله

السلام عليكم 

كل عام وانتم بخير

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

ملف تجريبي.accdb

هل من الممكن ان اضع نموذج مستمر داخل نموذج مستمر 

في الفورم مثل تجميع البيانات في التقرير

السلام عليكم

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

ملف تجريبي.accdb

في 22‏/6‏/2023 at 18:57, ناقل said:

بارك الله بك .. ممكن تزودنا بمثال تقريبي للمطلوب حتى نفهم ... 

محتاج نفس الطريفة المطبقة في التقرير بس في نموذج

New Microsoft Access Database.accdb

في 20‏/6‏/2023 at 14:55, ناقل said:

نعم اذا كان هناك علاقة بينهما ....

انا بسأل عن إذا كان النموذج مستمر وليس مفرد

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

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

عند فتح التقرير يظهر هذه الرسالة 

الذاكرة المتوفرة غير كافية لتنفيذ هذه العملية قم بإغلاق التطبيقات غير الضرورية وحاول تنفيذ العملية مرة اخري

ملاحظة المشكلة منتشرة عند اكثر من شخص 

فهل من حل لهذه المشكلة 

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

لدي قاعدة بيانات واريد ان ارفعه علي جوجل دريف وسوف اقوم باستخدمه منه 

فهل يوجد مشكلة في ذلك

في 13‏/8‏/2022 at 07:13, jjafferr said:

وعليكم السلام 🙂

لا توجد مشكلة ، فمثالي اعلاه يحتوي على كلمات عربية ايضا ،

اعمل مثالك ، واحفظ البرنامج ، ثم افتح برنامج الآخر واستورد منه هذه القائمة ، وستكون باللغة العربية 🙂

 

وحتى اذا اردت استعماله نفس قاعدة البيانات ، فترى من الملاحظة في الكود بأنه سيحذف القائمة السابقة والتي هي بنفس الاسم، ويستبدلها بالقائمة الجديدة :

 

جعفر

استاذ جعفر اريد تطبيق الفكرة علي قاعدة البيانات الخاصة بي وانا كتبت الاكود التي احتاج اليه هيا تعمل معي فقط عند استدعاء الكود باضافة كود عند الفتح 

لاكن انا اريد انا تستدعي عند شريط القوائم المختصرة  مثل الصورة ---

وارجو ان تعرفني الطريقة لو امكن

تجريبي.accdb

في 15‏/3‏/2023 at 23:43, Barna said:

 هل هناك مانع من ارفاق مثال مبسط به التقرير

بص انا تواصلت للمشكلة وهيا بسبب مربع النص الي في العنوان في التصدير الي اكسل فقط 

وانا احتاج الي هذا العنصر

New Microsoft Access Database.accdb

في 14‏/3‏/2023 at 20:49, محمد احمد لطفى said:

كيف تقوم بـ تصدير التقرير الي اكسل لكى نعرف أين الخطأ

بالتوفيق

بالكود الي في الصورة

او بالمكرو نفس المشكلة

اريد كتابة كود الغاء المعاينة في التقرير

منذ ساعه, محمد احمد لطفى said:

كيف تقوم بـ تصدير التقرير الي اكسل لكى نعرف أين الخطأ

بالتوفيق

بالكود الي في الصورة

او بالمكرو نفس المشكلة

عندم اصدر التقرير الي اكسل يفقد البيانات ويدخله في بعضه
 

30 دقائق مضت, ابو جودي said:

فقط غير السطر الاتى 

DoCmd.OpenForm "إضافة شحنة"

بالسطر الاتى

DoCmd.OpenForm "إضافة شحنة", , , , , acDialog

 

انا اريد فتح الفورم في طريقة العرض العادية لاني اقوم بالذهاب الي البيانات وليس المراد فتح الفورم فقط