اضافة الباركود وربطه برقم العميل

اضافة الباركود وربطه برقم العميل
1. نحتاج في هذه العملية الى خطوط باركود يتم تحميلها في مجلد الخطوط في نظام الويندوز C:\WINDOWS\Fonts
بعد فك ملف الخطوط قم بنسخ الخطوط الى مجلد الخطوط لديك C:\WINDOWS\Fonts وهذا هو ملف الخطوط

 ALLBarcode_Font.rar (27.13كيلو )
عدد مرات التحميل : 2622

2. نحتاج الى مكتبة تسمى اكتيف اكس ActiveX خاصه لإظهار خطوط الباركود ويتم نسخ هذه المكتبه في مجلد النظام للويندوز C:\WINDOWS\system32
بعد فك الضغط عن الملف ضعه في مجلد النظام ليصبح بهذه الطريقه C:\WINDOWS\system32\barcodex.ocx

 barcodex.rar (136.29كيلو )
عدد مرات التحميل : 3775

3. نقوم بتسجيل المكتبه عن طريق الويندوز بهذه الطريقه :
1. ابدأ ثم
2. تشغيل ثم
نضع هذا الامر كاملا كما هو في مربع النص تشغيل ثم نضغط موافق

regsvr32 "C:\WINDOWS\system32\barcodex.ocx"

وستظهر لنا رساله بنجاح التسجيل نضغط موافق



انتهينا الان من عملية تحميل الخطوط ومن عملية تسجيل المكتبه ننتقل الان الى برنامج الاكسيس

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



بعد الضغط على زر الامر موافق سيكون شكلها بهذه الطريقة في النموذج



الان اضغط بالماوس الايمن على الكائن هذا وستظهر لك خصائص الكائن اختر منها كائن ثم خصائصه حسب ما هو موضح بالصوره



وستظهر لك نافذة التحكم بالكائن كأن تختار نوع الخط المطلوب مثل خط CODE128 او خط EAN13 او CODE139 او الوان خلفية للكائن حسب النموذج لديك قم بتجربة عدة خطوط والوان حتى ترى المناسب لك وفي كل مره تختار فيها خط او تعديل في خصائص الكائن اضغط على زر الامر APPLY ثم OK ليتم تفعيل الاختيارات للكائن .



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



ومن خصائص الكائن نختار مصدر التحكم ونكتب هكذا

=[Number]

ثم نعرض النموذج في الوضع العادي وستكون النتيجه ممتازه



اما في التقرير فستكون النتيجه بهذه الطريقه ( طبعا بعد ادراج الكائن في التقرير بنفس طريقة النموذج )



طبعا لا نريد اظهار جميع الموظفين في التقرير بل نريد الموظف الحالي الذي في النموذج هو الذي تعرض بياناته فقط في التقرير
اذا لا بد من استخدام كود لهذه العملية ويكون تحن زر امر ويكون لدينا اختيارين
1. اذا كان حقل رقم الموظف في الجدول نوعه نص نستخدم هذا الكود

Private Sub View_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[Number]=" & "'" & Me![Number] & "'"
DoCmd.OpenReport "REPORT", acViewPreview, , stLinkCriteria
End Sub

Private Sub View_Click()
Dim stLinkCriteria As String
stLinkCriteria = "[Number] =" & Me![Number]
DoCmd.OpenReport "REPORT", acViewPreview, , stLinkCriteria
End Sub

وبهذا نكون انتهينا من ادراج الباركود مع الاكسيس
وهذا مثال على هذه الطريقه

 BarCode.rar (14.84كيلو )