khodor1985

تفضل أخي العزيز

khodor- Database26.rar

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

أولا ضع في حدث عند التحميل للنموذج OnLoad الكود التالي:

Me.KeyPreview = True

ثانيا ضع في الحدث المفتاح للأسفل KeyDown الكود التالي :

If (Shift And acCTRLMask) > 0 And KeyCode = 80 Then 
KeyCode = 0
End If

أتمنى لك التوفيق

تفضل أخي العزيز

كورسات- khodor.rar

إليك هذا الفيديو أيضا

https://www.youtube.com/watch?v=2M9VMwBZEIg

السلام عليكم إخواني الأعزاء ورحمة الله وبركاته

أرجو ان يفيد كم هذا الشرح الفيديوهات

السلام عليكم إخواني الأعزاء ورحمة الله وبركاته

فيديو يشرح طريقة إنشاء صلاحيات للمستخدمين

https://www.youtube.com/watch?v=2M9VMwBZEIg

لقد تم معالجة المشروع، فعندما تضع العملة Currency في نموذج Check EGP فسيكون التفقيط بالجنيه وإذا كان USD سيكون التفقيط بالدولار

بالتوفيق

تفضل أخي العزيز لقد تم معالجة المشروع

بالتوفيق

أنظر إلى واجهة Login كيف أصبحت

تفضل أخي العزيز، لقد تم معالجة المشروع، ولكن لا تنسانا من الدعاء

accounts.zip بالتوفيق

تفضل أخي الكريم فقد تم معالجة المرفق

1الجدول الزمني.zip

وضح جيدا ماذا تقصد بالتعديل

لنفترض أن الجدول بعنوان tbl1 قم بتحويله من خلال معالج النماذج إلى نموذج وسمه Form1

ثم ضع المؤشر على رأس الفورم - إضغط على يمين الفأرة واختر من اللائحة خصائص - يظهر محتوى الخصائص - إختر قبل الإدراج Before insert ثم ضع الكود التالي:

Me.seq = Nz(DMax("seq","tbl1"),0) + 1

وهكذا يكون الرقم تلقائي بشكل متسلسل

بالتوفيق

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

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

أخي العزيز، يمكن حل ذلك من خلال إنشاء سند قبض يتضمن الحقول التالية:

رقم السند

التاريخ

الإسم

المبلغ

التفقيط

ترحيل ،بحيث تكون بينات هذا الحقل مربع اختيار checkbox

بعد الانتهاء من إنشاء تصميم جدول سند القبض، ننتقل الى الخطوة التالية وهي تحويل هذا الجدول الى نموذج نضيف عليه زر امر بعنوان ترحيل وهو في حالة التصميم.

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

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

ولكن أخي العزيز هل من الممكن إضافة CheckBox في الجدول ، بحيث إذا كانت القيمة true يبرز الخبر في شريط الأخبار وإذا كانت False يزيلها من شريط الأخبار.

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

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

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

خذا البرنامج يتضمن المكونات التالية:

- واجهة المستخدم Login

- جدول المستخدمين UsersT

- وثمانية نماذج مرقمة من Form1 إلى Form8

كيف نستخدم هذا البرنامج؟

في البداية لا بد من تسجيل أسماء المستخدمين في جدول المستخدمين UsersT وتحديد توصيف المستخدم Description

هذا هو جدول المستخدمين UsersT

وهذه هي واجهة المستخدم

هذه الواجهة الرئيسية تتضمن مجموعة أزرار بحيث ننتقل من خلالها إلى النماذج الثمانية

تبصرة: إذا كان توصيف  Description المستخدم في جدول المستخدمين  User فإنه سيقفل زري الأمر Form2 and Form5 في الواجهة الرئيسية Interface، وهذا الإجراء يصب في خانة تحديد الصلاحيات للمستخدم.

Login1.zip

تستخدم دالة DLookup لاسترجاع أو استدعاء قيمة معينة من جدول وفقا لشروط أو معايير محددة.

تنقسم دالة DLookup إلى ثلاثة وسائط وهي:

- التعبير  Expression

- المجال أو المجموعة  Domain 

- المعايير Criteria

كيف نبني جملة برمجية تتضمن دالة DLookup؟

القاعدة هي على الشكل التالي:

DLookup("Expression","Domain",Criteria") this is the rule

لنضرب مثال بغية توضيح الصورة بشكل أفضل

لنفترض أن لدينا جدول بعنوان بطاقة المادة وجدول آخر بعنوان فاتورة مبيعات

1- بطاقة المادة ItemCardT

2- فانورة مبيعات TradeT

يحتوي الجدول بطاقة المادة على الحقول التالية:

  - كود الصنف Code

  - إسم الصنف Name

  - سعر المبيع TradePrice

  - الوحدة Unit

ويحتوي الجدول فاتورة المبيعات على الحقول التالية:

  - كود الصنف Code

  - إسم الصنف Name

  - الكمية Qut

  - الوحدة Unit

  - سعر المبيع TradePrice

 - المجموع Total

بعد أن أنشأنا الجدولين سنطبق القاعدة

- المجال أو المجموع   Domain  هو جدول بطاقة المادة

- التعبير Expression  هو القيمة التي نريد استرجاعها عبر الشرط أو المعيار Criteria  ويأتي ذلك على الشكل الآتي

لنفترض أننا نريد اسنرجاع القيمة name في جدول بطاقة المادة (وهو يمثل المجال Domain) في فاتورة المبيعات من خلال المعيار Code (وهو يمثل المعيار Criteriaفي القاعدة)  فيأتي على الشكل الآتي:

Name =DLookup("Name","ItemCardT","Code = ' " & Me.Code & " ' ") this is the sample

أخي العزيز أي إستفسار أنا بالخدمة