محب العلم

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

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

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

وعليكم السلام ورحمة الله وبركاته كود 'قم بإنشاء وحدة نمطية وضع هذا الكود بها في جزء Declarations Dim appAccess As Access.Application Sub DisplayForm() Dim strDB as String 'تعريف متغير إلى موقع دليل قاعدة البيانات Const strConPathToSamples = "D:\" strDB = strConPathToSamples & "Test.mdb" 'تعريف القاعدة المحددة Set appAccess = _ CreateObject("Access.Application") 'فتح القاعدة المحددة appAccess.OpenCurrentDatabase strDB 'فتح نموذج معين من القاعدة المحددة ولنقل اسمه f1 appAccess.DoCmd.OpenForm "f1" End Sub أملا أن يحقق الكود أعلاه مطلبك مع وافر الاحترام

وعليكم السلام ورحمة الله لعمل المطلوب أتبع الخطوات الآتية : 1. قم بإنشاء وحدة نمطية وضع فيها الكود الآتي وخزنها في أي أسم تريد '---------------------------------------------------------------------' ' Module: DisableShiftKey ' ' Date: July 18, 2003 ' ' ' ' Purpose: To stop the user from holding the shift key on startup to ' ' access the database window. ' '---------------------------------------------------------------------' Option Compare Database Option Explicit '---------------------------------------------------------------------- Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function '---------------------------------------------------------------------- Function BypassKey(onoff As Boolean) Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, onoff End Function '----------------------------------------------------------------------- 2. قم بإنشاء ماكروات جديدة هي : اسم الماكرو الأول: ByPassKeyOff الإجراء: Runcode الإقتران: BypassKey(False) اسم الماكرو الثاني: ByPassKeyOn الإجراء: Runcode الإقتران: BypassKey(True) 3. نموذج الدخول للنظام الخاص بك قم بإنشاء مستطيل بدون إطار ولون خلفية نفس خلفية النموذج أو إذا كان عندك صورة في نموذج الدخول يمكن استخدامها مكان المستطيل وعرف حدث عند النقر وقم باختيار الماكرو ByPassKeyOn. 4. قم بتشغيل المكرو ByPassKeyOff خزن وأخرج من قاعدة البيانات. 5. الآن عندما تدخل إلى قاعدة البيانات وأنت ضاغط على Shift لن تظهر لك نافذة قاعدة البيانات . لإظهار قاعدة البيانات اضغط بالماوس حيثما وضعت المستطيل المخفي أو الصورة ثم أعد تشغيل القاعدة مع shift ستظهر ولإعادة المنع كرر الخطوة رقم 4. وتعتبر هذه إحدى طرق الحماية لقاعدة البيانات . أملا لك التوفيق في المحاولة مع وافر الاحترام

السلام عليكم تم تحقيق المطلوب بإذن الله في المرفق الأتي BigLetters.zip مع وافر الاحترام

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

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

وعليكم السلام الخطأ في جملة if يجب تعديلها هكذا If [Text1] = "100" Or [Text1] = "205" Then مع الاحترام

السلام عليكم تم التعديل وذلك بإلغاء الترقيم التلقائي من الجدول واستبداله بترقيم تلقائي برمجيا . db2Update.zip مع الاحترام

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

السلام عليكم مع الاحترام والتقدير

شكرا على التوضيح والمثال تم التعديل حسب المطلوب Update.zip

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

أختي الشاي الأخضر ، سأتابع بهذا الموضوع بإذن الله بعد ثلاث أيام مع وافر الاحترام

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

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

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

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

اكسيس 2 أو اكسيس المتقدم أو Advanced Access = أوفيسنا - قسم الأكسيس العام أو الأرشيف

تفضل أخي new_virsion.zip مع وافر الحترام

تفضل التعديل : 456.zip وقد تم المطلوب كما في شرحك مع وافر الاحترام

وعليكم السلام ورحمة الله تم علاج المشاكل المذكورة تفضل التعديل : Travel_ReqUpdate.zip مع وافر الاحترام والتقدير

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