وصول أمثلة

كيفية منع شكل مفتوح إذا أية سجلات للعرض؟

أحيانا يكون من الضروري منع شكل مفتوح إذا كانت هناك سجلات لتظهر، على سبيل المثال عند القيام استعلام وليس هناك حاجة لتسجيل، ونحن لسنا في حاجة إلى أن يكون النموذج مفتوحا منذ ليس لدينا أي بيانات للعرض. ذلك ما لدينا للتأكد ما إذا كان هناك سجلات لإظهار وإذا لم يكن هناك عرض رسالة وتعرقل النموذج مفتوحا. كيف؟

فمن السهل أن مجرد وضع رمز أدناه في خصائص النموذج في حدث 'لفتح':

= 0 ثم إذا Form.RecordsetClone.RecordCount
MsgBox "لم يتم العثور على السجلات."، VbExclamation، "خطأ!"
DoCmd.Close acForm، "العثور على بيانات"
خروج الفرعية
نهاية إذا

لمشاهدة مثال تحميل: منع النموذج مفتوحا

شارك في الأمثلة ، أشكال ، وحدات | 2 تعليقات »

كيفية تعيين إجراءات لمفاتيح؟

1 - إنشاء نموذج النظام في بنية وحدث "النقر" على خصائص النموذج أدخل ما يلي: me.keypreview = صحيح
أم أن هذا سوف يجعل تلقي أحداث لوحة المفاتيح في النموذج الأول.

2 - في خصائص النموذج، 'الزر أدناه ل' الحدث وضع التعليمات البرمجية التالية:

Form_KeyDown الفرعية الخاصة (KeyCode وصحيح، وصحيح العالي)
حدد KeyCode حالة
حالة vbKeyF2
DoCmd.OpenForm "Form1"
حالة vbKeyF3
DoCmd.OpenForm "Form2"
حالة vbKeyF4
DoCmd.OpenForm "formulario3"
حالة vbKeyF5
كما حاسبة خافت مزدوج
آلة حاسبة = شل ("calc.exe"، vbNormalFocus)
حالة vbKeyF6
DoCmd.Close
حالة أخرى
إنهاء اختر
نهاية الفرعية

هذا ما يفعله هو ما يلي:
- عن طريق الضغط على مفتاح F2 يفتح form1
- عن طريق الضغط على مفتاح F3 يفتح Form2
- عن طريق الضغط على مفتاح F4 يفتح formulário3
- عن طريق الضغط على مفتاح F5 يفتح حاسبة ويندوز
- عن طريق الضغط على مفتاح F6 يغلق شكل

بالإضافة إلى وظيفة المفتاح F1، F2 ... الخ، ويمكننا أيضا استخدام أي زر أخرى لأداء وظائف، ولكن مع الأخذ في الاعتبار أنه إذا أردنا أن إدخال البيانات في شكل غير مناسب لاستخدام المفاتيح التي تستخدم لكتابة البيانات في الحقول.
شيء آخر هو أنه يعمل فقط على النموذج حيث يمكنك وضع الرموز أعلاه.

تنزيل: مفاتيح

شارك في الأمثلة ، أشكال ، وحدات | 1 تعليق »

عرف القائمة

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

1 - دعونا إنشاء جدول حيث سنقوم بتخزين الاسم الذي تريده لإعطاء كل شكل واسم النموذج الذي سيتم فتح. في المثال أنا خلقت "tblmenu 'الجدول مع الحقول التالية:
حقل نوع
نص Nomedomenu - (مربع التحرير والسرد)> الاسم الذي سيتبين في القائمة
شكل النص -> اسم النموذج التي ستفتح

بعد البيانات التي أدخلت على سبيل المثال ما يلي:

NomedoMenu نموذج

حسابات Form1
الودائع Form2
حركات formulario3
حساب بوكس ​​formulario4
الحساب حساب formulario5
استخراج formulario6

2 - ثم نقوم بإنشاء استعلام من الجدول السابق:
اختار Tblmenu الجدول ثم اختر الحقلين الذي اخترناه لتصاعدي nomedomenu الفرز ليكون من الأسهل العثور على القائمة غير قليل من الأحيان عندما نريد فتح النماذج. لهذا الاستعلام دعوت 'CsMenu ".

3 - دعونا خلق "القائمة" النموذج، أي اختيار نموذج جديد في طريقة عرض التصميم. ثم نقوم بإنشاء مربع التحرير والسرد، وتغيير الخصائص التالية:
- عدد الأعمدة: 2
عرض الأعمدة -: 1cm، 0cm؛
- أصل الخط: csmenu (والذي هو اسم من الاستعلام التي تم إنشاؤها في الفقرة السابقة)

4 - وفي نفس النموذج سنخلق فرعي نموذج غير منضم الرئيسي (في المثال اتصلت menuquadro). هذا هو النموذج الذي سيتم فتح كل واحد من النماذج لاختيار من القائمة (مربع التحرير والسرد).

5 - إنشاء وحدة نمطية الآن من شأنها أن تسمح لنا لفتح القائمة الذي تم تحديده في مربع التحرير والسرد في النموذج الفرعي.
أنشأنا وحدة نمطية (التي تسمى "abrirmenu ') ولصق التعليمات البرمجية التالية:

جمهور AtivarMenu وظيفة (Combmenu في ComboBox، subabrir الفرعي)
Abrirform وخافت سلسلة
= abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
نهاية وظيفة

بعد الذهاب الى خصائص مربع التحرير والسرد في القائمة شكل، وبعد الحدث تحديث وضع خلق وظيفة: ativarmenu = ([القائمة]، [menuquadro]) أن "القائمة" هو اسم مربع التحرير والسرد و "menuquadro" في اسم فرعي.

وأخيرا القائمة جاهزة للاستخدام. مجرد محاولة واستخدامها. أرجو أن تتمتع هذه النصيحة.
التحميل: القائمة

أدناه صورة من القائمة.

عرف القائمة

شارك في الأمثلة ، أشكال ، وحدات | 12 تعليقات »

مثال على فوائد إدارة

هذا المثال يوضح كيف يمكن لنظام إدارة لتقديم مدفوعات.

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

تنزيل: إدراج سجلات متعددة

شارك في التواريخ ، العينات ، النماذج ، وحدات ، سجلات | 17 تعليقات »

رقائق إلى مأوى للحيوانات

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

التحميل: مأوى للحيوانات

أي تغيير التعليق فقط هنا.

مكتوب أشكال ، صور ، وحدات ، السجلات ، الجداول | 12 تعليقات »

الدخول في حقول سجل من خلال مستقلة

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

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

إذا MsgBox ("هل تريد أن تكتب؟" VbYesNoCancel، "خيارات") = ثم vbYes
"بالضغط على وتساءل عما إذا كان لحفظ السجل أم لا، وإذا كان الأمر كذلك رمز يستمر حتى نهاية
مجموعة ديسيبل = CurrentDb ()
مجموعة RS = db.OpenRecordset ("البيانات"، dbOpenTable)
"افتح الجدول لادخال البيانات تسجيل

rs.AddNew
RS ("اسم") = لي! INome
RS ("عنوان") = لي! Imorada
RS ("سن") = لي! Iidade
'rs.Update يرسل البيانات إلى الجدول
'rs.Close واضح البيانات وإغلاق السجلات
تعيين RS = لا شيء
ضبط ديسيبل = لا شيء

Me.INome = فارغة 'مسح الحقول في شكل
Me.Imorada = فارغة
Me.Iidade = فارغة
MsgBox "السجل المحفوظة"، vbInformation، "تم" رسالة "تأكيد العرض
'Me.INome.SetFocus نقل المؤشر إلى الحقل الأول
الفرعية الخروج: آخر
نهاية إذا

التحميل: مكان المستقلة

شارك في الأمثلة ، أشكال ، وحدات ، السجلات ، الجداول | »لا يوجد تعليقات

الحسابات مع ساعات

هذا المثال يوضح كيفية إجراء العمليات الحسابية على ساعة. ومن المفيد لأولئك الذين يحتاجون إلى معرفة كم من الوقت المنقضي بين وقت البدء ووقت الانتهاء. لا يكفي لجعل الطرح في ذلك الوقت نهاية للوقت البدء، لأنه إذا كان الوقت نهاية الانتقال من يوم واحد إلى حسابات القادمة سوف لم تعد صحيحة، على سبيل المثال:

بدء التوقيت: 23:00:00

نهاية الوقت: 02:00:00

نهاية الوقت - وقت البدء = 2:00:00 حتي 23:00:00 = -21:00:00

من الواضح انها ليست بهذه البساطة في العمل مع مرور الوقت، وذلك لأن ثم بدلا من وجود ثلاث ساعات إلى النتيجة الصحيحة سيكون خطأ -21 ساعة.

للتغلب على هذه الفترة التي تذهب من يوم إلى يوم، علينا أن تحقق أولا إذا كان وقت النهاية أكبر من وقت البدء، أيهما أكبر ثم الحساب هي: نهاية الوقت - وقت البدء.

إذا كنت تحت ثم يتعين علينا القيام به على حساب وسيلة أخرى، وهي:

بدء التوقيت: 23:00:00

نهاية الوقت: 02:00:00

إجمالي الوقت: 23:59:59

ضرب: 00:00:01

اساسا ما نفعله هو إضافة إلى قيمة الطرح 24:00:00 ليعطينا الصحيح ثلاث ساعات. وهذا هو:

نهاية الوقت - وقت البدء + مجموع الساعات + ضرب = 02:00:00 to 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00

التحميل: حساب التفاضل والتكامل مع الوقت

شارك في الأمثلة ، أشكال ، ساعات ، وحدات | 21 تعليقات »

قافزة التقويم

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

التحميل: قافزة التقويم

شارك في التواريخ ، العينات ، النماذج ، وحدات | 1 تعليق »

تعطيل عجلة الماوس (الزر الأوسط)

عادة عندما نقوم بتشغيل مركز زر على الماوس على نموذج، وتغيير سجل وصول. في بعض الحالات قد يكون من المفيد أن لا يحدث.
يستخدم هذا المثال وحدة في حال شكل ليتم تحميلها، لمنع مستخدم التنقل عبر السجلات باستخدام الماوس التمرير. لاختبار يمكننا استخدام عجلة الماوس (وسط زر) لمعرفة ما الذي لا يؤدي إلى تغيير تسجيل.

تحميل هنا: عجلة الماوس

شارك في الأمثلة ، أشكال ، وحدات ، الفأر ، سجلات | »لا يوجد تعليقات

التلاعب في إطار Access

يستخدم هذا المثال وحدة نمطية الذي يخفي الإطار Microsoft Access الرئيسي، ولم يتبق سوى نموذج نافذة مرئية.
لاستخدام هذه الوحدة لدينا لاستخدام الأمر التالي في الجلسة الافتتاحية للنموذج: fsetAccessWindow المكالمة (SW_HIDE).

للتحقق من قبل على سبيل المثال قيام انزال: التلاعب الق النافذة

شارك في الأمثلة ، أشكال ، وحدات | 8 تعليقات »