اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تصميم برنامج مخازن في المنتدى خطوة خطوة


الردود الموصى بها

أستاذ عبدالله 

نحن فى انتظار المزيد 

وكان لى استفسار حول دارة الحماية وماهية عملها

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

متابعون  :smile:

رابط هذا التعليق
شارك

  • الردود 108
  • Created
  • اخر رد

Top Posters In This Topic

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

أخي أبو عبد الله دارة الحماية التي استخدمها هي الفلاش ميموري (الفلاشة ) بحيث استخرج رقم التسلسلي لها - وهذا الرقم لا يتغير بعد الفرمتة - ثم أقوم بمقارنته مع رقم الفلاشة المستخدمة كدارة حماية فإذا تطابق الرقم فتح البرنامج وإذا لم يتطابق ظهرت رسالة تقول ان دارة الحماية غير صحيحة ويغلق البرنامج

 

  • Like 2
رابط هذا التعليق
شارك

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

سنتابع اليوم ما بدأنا به في نموذج تعريف المادة وهذه المرحلة هي الاصعب وهي عملية البحث واضافة البيانات الى التصنيف

قمنا بالخطوات التالية :

1- إضافة نماذج على شكل ورقة بيانات لكل جدول من جداول التصنيف بالاسماء التالية frmgrp1-frmgrp2- frmgrp3-frmgrp4

2- تم اضافة نموذج البحث frmfinder فهو سيقوم بالبحث واضافة البيانات الى نموذج تعريف مادة

3- قمت بإنشاء متغيرات عمومية ضمن الوحدة النمطية module1

Public fgrb As String, findcode As Integer, findnamee As String, typegrb As Integer

الاول لحفظ نص البحث المطلوب ونقله من نموذج تعريف المادة الى نموذج البحث وهو ايضا معيار البحث في نموذج finder

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

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

الرابع متغير يحفظ أرقام لتحديد النموذج الفرعي داخل نموذج البحث frmfinder وسيتم استخدامه في حدث عند التحميل في نموذج البحث بحيث عندما البحث في المجموعة الاولى سيكون النموذج الفرعي هو النموذج الفرعي الخاص بالمجموعة الاولى frmgrp1 وعندما نريد البحث في المجموعة الثانية يكون النموذج الفرعي هو frmgrp2 وهكذا ...

الان ننتقل الى نموذج تعريف مادة

نبدأ بالبحث في المجموعة الاولى في التصنيف (اللون) نكتب النص الذي سنبحث عنه ثم نضغط انتر لاحظ الكود في حدث بعد التحديث

On Error Resume Next
If IsNull(Me.namegrp1) = False Then
typegrb = 1
fgrb = Me.namegrp1
DoCmd.OpenForm "frmfinder", , , , , acDialog
Me.namegrp1 = findnamee
Me.codegrp1 = findcode
End If

نبدأ بالتأكد من أن الحقل ليس فارغا ثم نعطي متغير تحديد النموذج الفرعي القيمة 1

ثم نعطي المتغير fgrb قيمة نص البحث ثم نقوم بفتح نموذج البحث frmfinder بوضع مربع حوار هنا سيظهر نموذج البحث ويعطينا النتيجة نختار اللون الذي نريده ونضغط موافق يقوم زر موافق بحفظ نتيجة البحث في المتغيرات المخصصة لها وذكرتها سابقا في بداية الشرح ويقوم باغلاق نموذج البحث (يمكنك مراجعة زر موافق في نموذج البحث )

سؤال يطرح نفسه لماذا اخترنا فتح نموذج البحث على شكل مربع حوار ؟

الجواب :حتى يتوقف تنفيذ الكود حتى نحصل على النتيجة بعد إغلاق نموذج البحث

ثم بكل بساطة نقوم بإضافة النتيجة الى نموذج تعريف المادة باستخدام المتغييرات

 

ننتقل إلى نموذج البحث frmfinder

   1- كما ذكرت سابقا فيه نموذج فرعي يتغير مصدره من حدث عند التحميل استنادا للمتغير الخاص به وهو typegrb

2- في الوحدة النمطية module1 تم اسناد قيمة المتغير fgrb الى دالة وذلك بوضعه ضمن function

Function findgrb()
findgrb = fgrb
End Functiongrb

وقمت باستخدام هذه الدالة findgrb كقيمة افتراضية في مربع النص search ضمن نموذج البحث وأيضا كعامل تصفية في نماذج التصنيف

3 - ستجد زر جديد في النموذج سيقوم هذا الزر بفتح مجال لاضافة بيانات ضمن النموذج الفرعي مباشرة وذلك بالسماح بالاضافة للنموذج الفرعي

Me.grbs.Form.AllowAdditions = True

أخيرا

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

 

accurate 16.rar

تم تعديل بواسطه عبد الله قدور
  • Like 1
رابط هذا التعليق
شارك

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

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

بدأنا الان بتصميم فاتورة الادخال وقد قمت بتصميم الفاتورة ولكن بدون أكواد وإن شاء الله في المشاركة التالية سأقوم بكتابة الاكواد

1- هناك تعديل بسيط على قاعدة البيانات الافتراضية new وهي انشاء العلاقات والمفاتيح الرئيسية للجداول 

2015-09-10_20h38_05.thumb.png.e99b6406c9

يمكنكم انشاء العلاقات بأنفسكم اعتمادا على الصورة أو من الرابط حمل النسخة معدلة

الرابط

accurate 16.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

شكرا لك استاذ

 

الرابط لا يستجيب

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

رابط هذا التعليق
شارك

  • 3 weeks later...

السلام عليكم

مشكور على البرنامج 

بس في مشكله بسيطه

2.bmp

السلام عليكم اخي الكريم يجب وضع البرنامج على قرص D وانشاء القواعد داخله 

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

رابط هذا التعليق
شارك

أعتقد أن مشكلة أ/ mosa2000 هى نفس المشكلة التى عرضها فى موضوعه الخاص باختلاف نسخ الأوفيس 32 و 64 هنا 

http://www.officena.net/ib/topic/64136-خطا-كود-عند-تشغيل-برنامج-32-بت-على-64-بت/

وأعتقد أن ماطرحه أ/ جعفر فى موضوع له بعنوان: هل أستخدم أوفيس 32 أم 64

هنا :  http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/

عندما أوصى باستخدام 32 وعلى قولة المثل : الباب اللى يجيك منه الريح سده واسترح ... حلا مناسبا لمشاكل اختلاف نسخ الأوفيس.

تم تعديل بواسطه أبو عبدالله الحلوانى
  • Like 1
رابط هذا التعليق
شارك

أين أنت أ/عبدالله قدور لعل المانع خير 

لم نزل نتابع وفى انتظار المزيد من الابداع

:power:

رابط هذا التعليق
شارك

اسأل الله أن يزيل عنك المشاكل وييسر لك المصالح  ويردك الينا سالما قريبا

رابط هذا التعليق
شارك

السلام عليكم

عدنا أخيرا بعد غياب طال قليلا بسبب ظروف العمل

سأكمل انشاء الله من حيث توقفت

1- بدات بفاتورة الادخال وتم تصميمها كاملة إن شاء الله لاحظوا اخواني القيم الافتراضية التي تأخذها الفاتورة في التاريخ وفي المسلم وأمر العمل يقوم البرنامج بإعتبار اخر سجل هو السجل افتراضي للسجل الجديد وذلك باستخدام الدالة DLast

2- استخدمت استعلام توحيد حتى احصل على الوحدات تحت بعضها في جسم الفاتورة واساس استعلام التوحيد العبارة التالية " union all " هي تقوم بجمع الجداول او الاعمدة من نفس الجدول لكن لا تنسى شيء مهم وهو انه يجب ان يكون عدد الاعمدة نفسه حتى يكتمل الاستعلام

 

accurate 16.rar

  • Like 1
رابط هذا التعليق
شارك

 access.rar

قاعدة البيانات

السلام عليكم اخي العزيز

الشرح اكثر من رائع ولكن ما الفائدة صفحة رابط تحميل القاعدة لايظهر لي تظهر صفحة بيضاء وانتظر اكثر من نصف ساعة ولافائدة ارجو المساعدة مع الشكرالجزيل

رابط هذا التعليق
شارك

 access.rar

قاعدة البيانات

السلام عليكم اخي العزيز

الشرح اكثر من رائع ولكن ما الفائدة صفحة رابط تحميل القاعدة لايظهر لي تظهر صفحة بيضاء وانتظر اكثر من نصف ساعة ولافائدة ارجو المساعدة مع الشكرالجزيل

تفضل اخي الكريم رابط جديد على dropbox

الرابط

رابط هذا التعليق
شارك

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

سنتابع اليوم بعملنا بفضل الله وكرمه

1- تم اضافة رسائل التحذير لفاتورة الادخال بنفس الطريقة السابقة المستخدمة في تعريف المادة

2- اضفت فاتورة اخراج وتعمل على نفس مبدأ فاتورة الادخال لكن الفرق بينهما هو حقل type بحيث سيتم تخزين بداخله قيمة 2 بدل من 1 ليتم التفريق بين الفاتورتين

3- هناك سؤال يطرح نفسه بما انه جداول الفواتير نفسها ونماذج الفواتير مختلفة فحتما سيتم عرض سجلات فواتير الادخال ضمن نموذج فواتير الاخراج والعكس بالعكس لكن اذا عدنا الى البرنامج سنجد ان ذلك لم يتم هناك طريقة استخدمتها لعمل ذلك اريد مشاركتم في كشف هذه الطريقة

 

accurate 16.rar

  • Like 1
رابط هذا التعليق
شارك

  • 8 months later...
  • 4 weeks later...
  • 3 weeks later...
في ١٠‏/٨‏/٢٠١٦ at 10:44, مصطفى علوش said:

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

أرجو تزويدي بأية رقم اتصال بالأخ عبد الله قدور ، وهل له صفحة أو قناة ؟

جزاكم الله كل خير

 

السلام عليكم

اخي مصطفى علوش انا في المنتدى ولكن قد انشغلت قليلا 

يمكنك التواصل معي على الواتس اب على الرقم 00905456969400

او على الفيسبوك على صفحتي الشخصية

رابط الصفحة

  • Like 1
رابط هذا التعليق
شارك

  • 4 weeks later...
في ٢٨‏/٨‏/٢٠١٦ at 13:17, عبد الله قدور said:

السلام عليكم

اخي مصطفى علوش انا في المنتدى ولكن قد انشغلت قليلا 

يمكنك التواصل معي على الواتس اب على الرقم 00905456969400

او على الفيسبوك على صفحتي الشخصية

رابط الصفحة

حياك الله 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.




×
×
  • اضف...

Important Information