معالجة البيانات الثابتة

كل عام وانت بخير أخي واستاذي أبو يحيى

جميلة جدا تلك اللمسات ورائعه .. الله يعطيك الف عافية

أكثر شيء طريف أعجبني ( رسالة الحركات القرعا )

- من الاشياء التي أعجبتني أن فورم البداية لايفتح الا ان كان فارغ من البيانات

.. بحثت فوجدت السبب في هذا الكود

DoCmd.Close acForm, "frst"
If DLookup("[mark]", "data") = 0 Then
DoCmd.OpenForm "frst"
End If

- ايضا فتح التقرير برقم سري وتنسيق معلومات الشركة رائع

المثال على بعضه مهضوم جدا .. تسلم أنامل جناب الباشا وكل عام وانت بخير

على فكرة ... ربما نسيت تعمل Stop لرسائل الاستعلامات الاجرائية فقط

تقبل تحيات أخوك : ابو عبدالله

الاخ الفاضل ايهاب عثمان

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

رمضان كريم

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

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

بارك الله فيك

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

بسم الله الرحمن الرحيم

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

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

فعلا المثال رائع وبه عده حيل جميلة وبسيطة

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

شكرا لك على المثال الجميل

واجمل ما فيه كما ذكر اخي محمد (بساطته)

اللهم تقبل صيامنا وقيامنا بهذا الشهر الفضيل

ما شاء الله عليك

ربي يعطيكم العافية على المجهودات الحلوه

جعلها في ميزان حسناتكم

ومبارك عليكم الشهر

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

بارك الله فيك وجزاك الله خير استاذنا الكريم ايهاب

ونفع الله بعلمك

الله يعطيك العافيه

ومبروك عليك شهر رمضان المبارك

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

احترامي وتقديري

الباشا الكبير معلمى

ايهاب عثمان

تحية طيبة وكل عام وأنتم بخير وأعاد الله عليكم هذا الشهر الكريم بدوام الصحة والبركة..

على فكرة مثالك جميل جداً وكل الحركات اللى فيه "جامدة مووت"

شىء صغير حيرنى شوية موضوع تغيير الباسورد؟؟

ولكن بعد متابعة الأكواد وجدتك بحركة خفية قد أخفيت جدول الباسورد Pass

الفكرة جميلة جداً.. زادك الله من العلم..

وعلى فكرة كانت تبقى أجمد لو كنت أخفيت الجدول بالكود وخاصة لو عن طريق فورم محمى.. والأجمد من كده لو مسحت فورم الإخفاء ده وسبت الجدول مخفى تماماً عن الأنظار..

مشكور ياباشا على أفكارك الجميلة والبسيطة وعلى رسايلك الروشة "اللى لو استخدمتها مايكروسوفت فى طريقة تحليل رسائل الأخطاء لكانت وفرت علينا عناء فهم رسائل أخطائها.. :D "

اخواني الكرام...

بارك الله قيكم وهذا مما تعلمناه منكم

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

ماشاء الله عليك مثال جميل ورائع وخرافي وكلشي فيه ممتاز :rolleyes: ........الله يوفقك إن شاء الله

وعندي استفسار بسيط جدا ... اريد فهم هذا الكود ما معناته

If [0101] = DLookup("[ps]", "pass") Then
DoCmd.OpenReport "rp", acViewPreview
Else

واريد بالذات وظيفه هذه الكلمه DLookup("[ps]", "pass")

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

اخوكم محمد حسين

مرحباً اخ محمد حسين وبارك الله فيك وكل عام وانت بخير...

الدالة Dlookup شرح عام:

هي واحدة مما يطلق عليه دوال المجال وظيفتها ارجاع قيمة معينة من جدول بعد مقارنتها بالقيمة المعطاه طبقاً لمعيار / معايير محددة (المعايير اختيارية) ....

كيف هذا؟؟

افترض ان لدينا جدولاً اسمه "tbl" مكوناً من حقلين ID (المعرف - النوع رقم) و NM (الاسم - النوع نص)..

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

=Dlookup("[nm]";"tbl")

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

راع شكل الاقواس والفواصل (داخل النموذج تكون الفاصلة منقوطة او غير منقوطة حسب اصدارة الاكسيس اما داخل محرر ال VB فهي دائما غير منقوطة)

ما نتيجة هذه الدالة ؟؟؟

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

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

افترض ان لديك في النموذج السابق حقل اسمه ID وتريد اذا كتبت رقم الموظف في هذا الحقل ان يظهر اسمه في مربع النص السابق الحديث عنه في مثالنا السابق...

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

;"[id]=[id]"

حيث Id الاولى اسم الحقل بالجدول والثانية اسم الحقل بالنموذج

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

التطبيق على مثالنا:

في النموذج مطلوب اختبار كلمة السر المدخلة بمعرفة المستخدم ومقارنتها بكلمة السر الصحيحة والمخزنة في الجدول المسمى Pass داخل الحقل ps

وذلك عن طريق دالتنا Dlookup فان كان التطابق قائما فتح التقرير والا اظهر لك رسالة واغلق البرنامج....

والدالة هنا بلا معيار لان الجدول ماهو الا حقل واحد...

ملحوظة..

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

.......

طبتم واهتديتم

أخي الغالي / ايهاب عثمان

مليون تحية وبعد ،،،،،،،،،

مليون شكر على هذا المثال الرائع من أخي العزيز.

أخي عثمان لي ملاحظة وهي رسائل الاكسس المزعجة خاصة عند اعتماد بيانات الشركة وكذلك عند تغيير كلمة السر.

بارك الله فيك وكل عام وانت بألف خير في هذا الشهر المبارك وكل أشهر السنة بالطبع.

وأخيراً ... تقبل مني أجمل تحياتي والسلام

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

كل عام وانت بخير وصحة وعافية...

اعتقد انك تقصد رسائل تاكيد الاستعلامات الاجرائية...

حلها...

من القائمة tools اختر options وتحت لسان التبويب edit/find نقوم بحذف علامة صح من امام Action Quereis

السلام عليكم

فعلا عمل بسيط ولكن مهم

وطريقه فعاله لتوظيف الكود

بارك الله فيك

ارجو رفع المثال الاول مرة اخرى

mrnooo2000 كتب:

ارجو رفع المثال الاول مرة اخرى

مرحباً أخي الكريم...

تم إصلاح الرابط بالمشاركة الاصلية فحمله مشكوراً :D

جزاك الله خيرا أخى إيهاب

مثال اكثر من رائع

ارهقنى فى تنفيذه لكن الحمد لله قد نجحت فى تطبيقه

تسلم اخى ايهاب

طبتم واهتديتم