Emad Fawzy Armanious

5 ساعات مضت, أحمد الفلاحجى said:

اخى الفاضل عماد

هل تكتب فالبحث موسوعه ام موسوعة

ان كانت الثانيه فالكود الموجود يلغى البحث بال

'  Asc(" آ ") =
'194
'  Asc(" أ ") =
'195
'  Asc(" إ ") =
'197
'  Asc(" ا ") =
'199
'  Asc(" ة ") =
'201
'  Asc(" ه ") =
'229
'  Asc(" ى ") =
'236
'  Asc(" ي ") =
'236

ويبحث بال { ا , ه , ى }

فقم بالبحث بكلمه موسوعه سيتم تصفيه النموذج

هذا ان فهمت كلامك

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

أستاذي الفاضل أحمد الفلاحجي شكرا على استجابتك 

ابحث بكلمة موسوعة

كيف يمكن تفيل هذا الكود لانةغير نشط وعند ازالة علامة ' من امام الكود يتغير اللون اللى الاحمر اي هناك خطأ 

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

في انتظار رد حضرتك

اين خبراء المنتدي؟

أستاذ / جعفر  المحترم

السادة الافاضل اعضاء المنتدى المحترمين

في الملف المرفق طريقة بحث تم التعديل عليها من قبلكم في مشاركة سابقة ولكن لى طلب لعمل تعديل بسيط فمثلا يوجد اسم مرجع يبدأ بكلمة موسوعة وعند إضافة مرجع اخر يبدأ بنفس الكلمة عند البحث وكتابة كلمة موسوعة كاملة لا تتم الفلترة وعرض كل السجلات المحتوية على كلمة موسوعة فقط 

1029.نموذج بحث.rar

16 ساعات مضت, Emad Fawzy Armanious said:

بداية أود أن أشكركم على طريقة البحث الرائعة فهذا ما كن ابحث عنه ولكن لى رجاء من الاخوه الاعضاء لعمل تعديل صغير على طريقة البحث فمثلا عند اضافة اسم مرجع أخر يبدأ بكلمة موسوعة والبحث بكلمة موسوعة كاملة لا تتم الفلتره وعرض السجلات المحتوية على يرجى التعديل ولكم جزيل الشكر

هل من حل ؟؟؟؟

بداية أود أن أشكركم على طريقة البحث الرائعة فهذا ما كن ابحث عنه ولكن لى رجاء من الاخوه الاعضاء لعمل تعديل صغير على طريقة البحث فمثلا عند اضافة اسم مرجع أخر يبدأ بكلمة موسوعة والبحث بكلمة موسوعة كاملة لا تتم الفلتره وعرض السجلات المحتوية على يرجى التعديل ولكم جزيل الشكر

15 ساعات مضت, خالد سيسكو said:

السلام عليكم

المفروض يكون الكود بدالة (if ) كالتالي

If rs!No.Value = Me.MNo Then
DoCmd.OpenForm "Dashboard"
Else
DoCmd.OpenForm "Copy"
End If

 

7 ساعات مضت, أبو إبراهيم الغامدي said:

السلام عليكم.. 

للأسف.. الحلول غبر متوقعة ومحبطة للغاية.. كما أن السؤال مربك

 

على العكس الحلول كانت رائعة وتم التنفيذ بنجاح وخالص الشكر للأستاذ محمد أبو عبد الله والاستاذ خالد والأستاذ أبو الكرم

شكرا أبو عبد الله

المرفق كان مثال من البرنامج لان البرنامج كبير الحجم ولا يمكن رفعه

عند تطبيق الكود على البرنامج الاساسي تظهر رسالة Overflow

ولا يتم التنفيذ

يرجى توضيح السبب

شكرا

شكرا لكل الأستاذة الافاضل الذين تفاعلوا مع طلبى 

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

توضيح إضافي 

هناك قيمة في النموذج المسمى Dashboard في ال Text Box المسمى MNo تساوى 1 

وهناك مجموعة من القيم  في الجدول Table 1  في العمود No

المطلوب هو 

عندما تتطابق القيمة في النموذج المسمى Dashboard في ال Text Box المسمى MNo مع اي من القيم في الجدول Table 1  في العمود No

يظل النموذج المسمى Dashboard

وعنندما لا تتطابق القيمة في النموذج المسمى Dashboard في ال Text Box المسمى MNo مع اي من القيم في الجدول Table 1  في العمود No

يتم فتح النموذج المسمى Copy  فوق النموذج المسمى Dashboard

مرفق ملف

Loop.rar

شكرا ابو الكرم 

تم التغيير ولكن نفس المشكلة

الجدول به عدة صفوف للحقل No منهم قيمة واحدة صحيحة

ما اريده هو ان يتم فحص هذه القيمه في كل صفوف الجدول وفي حالة تحقق الشرط يتم فتح النموذج المطلوب Dashbord وفي حالة عدم التحقق يتم فتح نموذ أخر  Copy

شكرا استاذ خالد

شكرا استاذ محمد 

عند تنفيذ الكود تم ظهور الرسالة المرفقة  وتظليل الجزء التالي من الكود باللون الاصفر

x = rs!No.Value

Dim i As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb

'حيث Table 1 يحتوى على عمود به القيم التى يراد التأكد من مطابقتها
 ("Set rs = db.OpenRecordset("Table1

For i = 0 To 2

'حيثNo هو الرقم الموجود في الجدول ويراد التأكد من مطابقته معMe.MNo 
If rs!No.Value = Me.MNo Then

'حيث Dashbord هو النموذج المراد فتحه في حالة تحقق الشرط
"DoCmd.OpenForm "Dashboard
Else
If rs!No.Value <> Me.MNo Then

'حيث Copyهو النموذج المراد فتحه في حالة عدم تحقق الشرط
"DoCmd.OpenForm "Copy
End If

End If
Next i

المشكلة انه في حالة تحقق الشرط وعدم تحقق الشرط يتم فتح النموذج Copy

يرجى المساعدة في حل ه\ه المشكلة ولكم جزيل الشكر

شكر أخ جعفر

اقتباس

شكر ا جزيلا jjafferr أنا طبقت الكود اللى ارسلته حضرتك بس بيظهر أول تقرير فقط ممكن حضرتك تعدل عليه مرفق نسخة من الملف

Print multiple Reports.accdb

السلام عليكم أعضاء المنتدى المحترمين

عندي قاعدة بيانات فيها جدول يحتوى على على كل أسماء التقارير في قاعدة البيانات وفيه نموذج بيعرض أسماء التقارير بناء على إستعلام يحدد مجموعة من التقارير ومقابل كل سجل في النموذج يوجد Check Box

المطلوب هو عمل زر امر به كود يطبع التقارير التي تم إختيارها بناء على ال Check Box

على سبيل المثال لو تم اختيار ثلاث تقارير عن الضغط على زر الأمر يطبع الثلاث تقارير المختاره . لو تم إتيار خمس تقارير عن الضغط على زر الأمر يطبع الخمس تقارير المختاره

أرجوا المساعده 

تواجهنى مشكلة ظهور اللغة العربية برموز غير مفهومه وذلك في رسائل أكسيس وعلى سبيل المثال هناك رسالة عند الخروج من البرنامج وهي "هل تريد الخروج" تظهر بالشكل التالي  åá ÊÑíÏ ÇáÎÑæÌ  

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

ولكم جزيل الشكر

شكراً استاذ ابو خليل جزاك الله كل خير

السادة/ القائمين على إدارة الموقع              المحترمين

السادة/ أعضاء الموقع                               المحترمين

هل يوجد كود لتقسيم عدد إلى الارقام المكونه له "مثل رقم البطاقة الشخصية" وحفظ كل رقم في حقل محدد

ولكم جزيل الشكر

شكرا أبو خليل 

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

السادة/ القائمين على إدارة الموقع              المحترمين

السادة/ أعضاء الموقع                               المحترمين

ممكن توضيح كيف يمكن عمل كلمة مرور لجدول اكسيس 

ولكم جزيل الشكر

شكرا للرد

الحمد لله تم حل المشكلة والسبب كان وجود كود للحفظ في حدث On Timer

السادة/ القائمين على إدارة الموقع              المحترمين

السادة/ أعضاء الموقع                               المحترمين

قمت بتصميم قاعدة بيانات لإدخال بيانات الشيكات المصروفة وعند بدء استخدامها واجهت مشكلة وهي عند إدخال مبلغ وليكن 1,234 يتم إدخاله بالشكل التالي 4,312

مع العلم بأنني طابقة خصائص الرقم بحقل رقمي في قاعدة بيانات أخرى ولا يوجد أي إختلاف يرجى المساعدة لحل هذة المشكلة 

ولكم جزيل الشكر