وصول أمثلة

البحث المتقدم - عدة كلمات

في هذا المثال وسوف تظهر لك كيفية القيام بالبحث عن العديد من الكلمات، في حقل من نموذج.
الرموز المستخدمة في هذا المثال هو مفيد لإجراء عمليات بحث أكثر تقدما.

1 لإنشاء الجدول
- إنشاء جدول "tbldados" مع الحقول التالية: رقم (ترقيم تلقائي) / البيانات (نص)
2 إنشاء النموذج "Form1"
- إنشاء النموذج باستخدام المعالج واختيار tbldados كمصدر بيانات، اختر "جدول" إلى المخطط شكل.
- ثم انتقل إلى تصميم النموذج وإنشاء حقل نص مستقل، في تذييل النموذج، واسمه txtpesquisa.
- إنشاء زر على الممتلكات ووضع التعليمات البرمجية التالية:

'************************************************* *************
التي أعدها خوسيه مارتينز
"الموقع: www.accessexemplos.com
التاريخ: 2011/09/22
'ملاحظة: لا تقم بإزالة هذا الرأس. احترام الكاتب للرمز.
'************************************************* **************
في Err_Comando8_Click غوتو خطأ
خافت الكلمات () كسلسلة
س قاتمة وصحيح
خافت strSQL كسلسلة
خافت strWhere كسلسلة

كلمات = سبليت (Me.txtpesquisa، "")

ل x = 0 إلى UBound (الكلمات)

strWhere = strWhere و "بيانات مثل" * "الكلمات و (خ) و" * "أو"
القادم X
بقي strWhere = $ (strWhere، ليون (strWhere) - 3)

strSQL = "SELECT * FROM tbldados حيث" & strWhere & "ORDER BY [البيانات]"
Me.RecordSource strSQL =

Exit_Comando8_Click:
خروج الفرعية

Err_Comando8_Click:
MsgBox Err.Description
استئناف Exit_Comando8_Click

ما رمز لا، في الأساس، هو خلق مجموعة مؤلفة من الكلمات في txtpesquisa التي يتم الكشف عنها من خلال المساحات. بعد أن يتم إنشاء حلقة للبحث عن كل الكلمات التي تم إدخالها في txtpesquisa.

3 إختبار
- إدخال البيانات ومن ثم كتابة الكلمة أو الكلمات التي نجدها في مربع النص (txtpesquisa)، انقر على زر وللتحقق من النتائج.

أقل من رابط للمثال dowenlod: كلمات البحث المختلفة

نشرت في غير مصنف | لا تعليقات »

جوجل بلس

اليوم أضفت زر جوجل زائد +1. هذا هو وسيلة أخرى للإعلان عن وظائف. إذا لم تكن قد دعت إلى Google زائد ترك تعليق مع عنوان البريد الالكتروني لإرسال الدعوة.

نشرت في غير مصنف | التعليقات 13 »

إنفاق

هذه هي قاعدة بيانات بسيطة للغاية أن يعمل على السيطرة على نفقات الحياة اليومية.

القائمة الرئيسية
في الصورة ويمكن للمرء أن يرى في القائمة الرئيسية في غاية البساطة والوظيفية. في الجزء العلوي يمكننا أن نرى في العام الذي نعمل فيه.

عام من العمل
لتغيير عمل العام انقر على زر اختيار شكل عام ومفتوح (الشكل 2)، وكتابة السنة نريد.

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

فئات
ويستخدم هذا الشكل (الشكل 4) لإدارة (إدراج / تغيير / حذف / بحث) الفئات والفئات الفرعية الخاصة بهم.

الموردين
ويستخدم هذا النموذج لإدارة (إدراج / تغيير / حذف / بحث) أسماء الموردين.

تقارير
النقر على هذا الزر يفتح القائمة (صورة 5) تقارير حيث يمكننا اختيار أربعة أنواع من التقارير:

- التكاليف من العام الحالي (شكل 6) يبين التقرير مع هذه الفئة، الفئة الفرعية، وبلغت القيمة الإجمالية لكل شهر من شهور السنة التي نعمل معها. لكنه يظهر أيضا مجموع النفقات في الشهر، ومجموع من قبل فئة فرعية.
هذا التقرير يتضمن رسما بيانيا عن الفئة الفرعية التي تظهر تطور شهريا من كل فئة فرعية. هذا الرسم البياني ليست من بلدي، وحدة كل منها يحتوي على معلومات لصاحب البلاغ، بما في ذلك:

'المؤلف: فيليب Bonnardel (على أساس فكرة Tufte إدوارد)

- تكاليف سنويا (صورة 7): يظهر النموذج مع النفقات حسب الفئة في سنة معينة. يمكن أن نختار من الإنفاق العام، شريطة أن يكون هناك حساب سجلت في تلك السنة لعرض الرسم البياني. عند النقر المزدوج فوق الفئة يفتح التقرير السنوي لتصنيف فرعي الذي يحتوي على نفس الشكل. عند النقر المزدوج فوق يفتح من التفصيل في القسم الفرعي (الشكل 8) التكاليف التي تكبدتها في هذه الفئة الفرعية.

التفاصيل

- الإنفاق في الشهر: يساوي النفقات في السنة ولكن هنا يمكننا اختيار السنة والشهر التي تريدها.

- الإنفاق من قبل الشركة ويبين نموذج مع التكلفة لكل مورد في سنة معينة، والرسم البياني لها. في هذا التقرير يمكن أن نختار فقط في السنة التي ترغب في عرضها.

سنوي مقارنة
يظهر تطور النفقات خلال السنوات ال 10 الماضية. ويبين القيم لسنوات، ويظهر الرسم البياني.

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

تحميل المثال: المصروفات

نشرت في غير مصنف | التعليقات 12 »

مبيعات نظام (تحديث)

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

تنزيل: مبيعات نظام

شكرا لكم لاختبار والتعليق، لتحسين النظام.

نشرت في غير مصنف | التعليقات 10 »

تحديث رمز لإدراج صورة

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

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

يتم تحديث رمز على النحو التالي:

'Www.accessexemplos.com
'خوسيه مارتينز
'2011-02-28

في Err_mostraimagem غوتو خطأ

إذا IsNull (Me.Localfoto) = خطأ ثم
Me.FOTO.Picture = Me.Localfoto
FOTO.Visible = صحيح
SEMFOTO.Visible = خطأ
آخر
= Me.FOTO.Picture ""
SEMFOTO.Visible = صحيح
FOTO.Visible = خطأ
نهاية إذا

Exit_mostraimagem:
خروج الفرعية

Err_mostraimagem:
حدد Err.Number حالة
القضية 2220 "لا انظر الصورة
FOTO.Visible = خطأ
SEMFOTO.Visible = صحيح
استئناف Exit_mostraimagem:
قضية أخرى "خطأ أخرى.
MsgBox Err.Number & "" & Err.Description
استئناف Exit_mostraimagem:
إنهاء اختر

نشرت في غير مصنف | لا تعليقات »

يكتب كل كبيرة أو صغيرة

للحصول على المستخدم عند إدخال البيانات تكتب دائما في العواصم فقط وضع التعليمات البرمجية التالية في خصائص الحقل في حالة 'عند الضغط على' (OnKeyPress):

KeyAscii = تصاعديا (UCase (مركز حقوق الانسان (KeyAscii)))

حيث سوف تحصل على رمز KeyAscii جديد ASCII

CHR = يعرض رمز الحرف ASCII

وظيفة 'تصاعدي': بإرجاع عدد صحيح يمثل رمز (ASCII) الحرف المطابق للحرف الأول في سلسلة.

وظيفة UCase: تحويل سلسلة إلى أحرف كبيرة.

مركز حقوق الانسان وظيفة: فهو يبين صفة رمز ASCII

لتحويل إلى أحرف صغيرة فقط تغيير UCase LCase من قبل:

KeyAscii = تصاعديا (LCase (مركز حقوق الانسان (KeyAscii)))

نشرت في غير مصنف | لا تعليقات »

بلوق وظائف

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

ظلام دامس لا يزال خارج 252 رسائل البريد المزعج ...

نشرت في غير مصنف | التعليقات 8 »

التنزيلات - التخزين المحلي

كما قيل في الرسالة السابقة، لقد غيرت الموقع حيث لتحميل الملفات.
من الآن يضم في خدمة BOX.NET ، حيث على الأقل لم يعد لدينا لانتظار التحميل وليس لديه الإعلان.

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

أي أسئلة أو تجد أن ملف تغيير، وشكرا لكم ليبلغني.

نشرت في غير مصنف | التعليقات 2 »

عرف شريط القوائم

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

1 - إلى القائمة أدوات الذهاب واختيار 'تخصيص'. تظهر القائمة التالية:

اخترت اختر "أشرطة الأدوات" علامة التبويب واختيار "جديد" وأدخل اسم كنت تريد أن تعطي لشريط الأدوات، "قائمة" - 2. انقر فوق موافق، ويظهر في شريط الأدوات التي ستعمل، والتي في الوقت الحالي لا يوجد لديه خيارات.

3 - من خلال شريط الادوات اختيار انقر على "خصائص" ويظهر في القائمة التالية:

4 - تغيير "نوع" إلى "شريط الأدوات"، ثم انقر فوق إغلاق.

5 - انقر على 'الأوامر' والقائمة على اليسار الذي يقول "فئات" يختار "القائمة الجديدة" التي ينبغي أن تكون في موقف آخر. ثم انقر على مربع على 'الأوامر' اليمين وحتى 'القائمة الجديدة عبئا على شريط القوائم لدينا كما يتضح من الصورة ادناه.

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

6 - النقر على زر الماوس اليمين من على رأس "قائمة جديدة" من شريط الأدوات لدينا وتغيير الاسم كما هو مطلوب. في المثال اخترت "العملاء" لل1 و 'الموردين ل2.

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

8 - بعد اختيار كل ما كنت تريد أن يكون لدينا على شريط القوائم يمكنك النقر على كل واحد مع زر الماوس الأيمن لمعرفة الخصائص التي يمكن أن تتغير. انظر الصورة أدناه.

'إعادة تعيين' - يعمل على وضع بند كان في الأصل قبل تغيير اسم الصورة، وما إلى ذلك.
"حذف" - حذف عنصر قائمة
'اسم' - لتغيير اسم عنصر القائمة. هنا يمكننا أيضا تعيين اختصار لهذا البند باستخدام العطف قبل الحرف الذي تريد استخدامه كاختصار. على سبيل المثال، خيار الخروج من قبل الافتراضي هو جيد بالفعل وكسيت تظهر القائمة 'ص' الحرف المسطر أن يخبرنا أنه عند استخدام مفتاح ALT + R يعمل عنصر القائمة إنهاء. في المثال اخترت لفتح عملاء والعميل مع الاختصار ALT + C.

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

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

'بداية مجموعة "- يعمل على فصل العناصر عن طريق شريط أفقي، أو إنشاء مجموعات من العناصر.

"منحة لينك" - لتعيين ارتباط إما إلى URL أو أي كائن في قاعدة البيانات.

'خصائص' - يبين كل خصائص هذا البند.

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

10 - لبدء شريط لفتح قاعدة البيانات لديها لاعطاء تعليمات لفتح عند بدء تشغيل Access. اسمحوا 'أدوات' و 'بداية' و 'شريط القوائم' اختيار اسم القائمة لدينا في "القائمة" هذا المثال.

11 - لتغيير الصور من كل عناصر القائمة يمكننا استخدام وسيلة أخرى غير لإدراج صورة في نفس الشكل ونسخة عن هذا البند. وهذا هو:

- إنشاء نموذج في شكل هيكل

على القائمة إدراج الذهاب واختيار صورة -

- اختر أي صورة واضغط

- حدد الصورة ومع زر الماوس الأيمن اختر نسخ

إلى القائمة أدوات الذهاب واختيار الخيار لتخصيص -

- اضغط الزر الأيمن من الماوس على العنصر الذي ترغب في تغيير الصورة واختر لصق صورة زر.

- انقر على الوصول إلى وثيقة وثيقة

- بدء تشغيل قاعدة البيانات لمعرفة نتائج

ملاحظة مهمة: عند تغيير شريط القوائم، تختفي القائمة في قاعدة بيانات Access، يتم ذلك. لإجراء تغييرات في أنه من الضروري بدء تشغيل قاعدة البيانات باستمرار المفتاح SHIFT.

القائمة الخاصة بي يبدو مثل هذا:

التحميل: شريط القوائم

نشرت في غير مصنف | التعليقات 9 »

منع فتح تقرير إذا لا توجد بيانات لإظهار

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

1 - كل إصدارات Access
وضع رمز أدناه في خصائص التقرير، مما يتيح لل'الحدث

استخدام الحدث التمكينية (تنشيط) تقرير:

الفرعية خاصة Report_Activate ()

إذا DCOUNT ("*"، Me.RecordSource) = 0 ثم

MsgBox "لا يوجد نتائج لعرض" vbDefaultButton1، "خطأ!"

AcReport DoCmd.Close، "اسم التقرير"

نهاية إذا

نهاية الفرعية

2 - نسخة من 7 (وصول 95) وأضيف هذا الحدث "إذا لا توجد بيانات"، ثم يمكننا urilizar البرمجية التالية:

خاصة الفرعية Report_NoData (إلغاء وصحيح)

MsgBox "لا توجد بيانات في التقرير."، VbInformation، "خطأ!"

إلغاء = صحيح

نهاية الفرعية

لمعرفة تشغيل تحميل على سبيل المثال: منع تقرير الافتتاح

نشرت في غير مصنف | التعليقات 13 »