امير عاطف

حماية قاعدة ابيانات بكلمة مرور (PassWord)? فتح النموذج بكلمة سر PassWord, فتح النموذج بكلمة مرور المطالبة بكلمة مرور(PassWord) عند تنفيذ امر محدد كلمة مرور لقاعدة البيانات

تأكد من ان العبارة التاليه موجودة اعلى نافذة كود الــVBA Option Compare Database

التعديل بتصميم النماذج والتقترير يمكن ذلك ... ولكن التعديل على كود الـــ VBA اعتقد ذلك لا يمكن اذا قصدت التعديل على كود الــ VBA فنتمنى ارفاق القاعدة للإفادة مع التحيه

فكرة : مثلاً النيتروجين N2 بحيث الــ N اعلى والــ 2 اسفل ضع الــ N في حقل والــ 2 اسفل في حقل آخر وبعد ذلك فم باستدعائهم بتقرير وضع مربع النص الخاص بالرقم بجانب مربع النص الخاص بالحرف من الجانب الأيمن الى الأسف فقط .. مجرد فكره إن شاء الله تكون ناجحه

لمعرفة اسم اي شريط ادوات : اذهب الى عرض View اشرطة ادوات Toolbars تخصص Customize ثم قم بالضغط على التبويب اشرطة ادوات Toolbars وسوف تجد بداخله جميع ارطة الأدوات واسماءها

حل مبسط اولاً: يتم عمل حقلي الاسم والتاريخ مفتاح اساسي Primary Key اي مفتاح مركب وطريقة عمله تجديها بالرابط التالي: http://www.officena.net/ib/index.php?showt...=261&hl=primary ثانياً: يتم وضع الكود التالي داخل النموذج الذي تريدي ان تظهر به الرسالة: بوضع الكود التالي عن حدث الخطأ On Error للنموذج Private Sub Form_Error(DataErr As Integer, Response As Integer) Dim DATAERRCONTINUE Select Case DataErr Case Is = 3022 MsgBox "تم تكرار التاريخ والاسم" Response = DATAERRCONTINUE End Select End Sub

ضع هذا الكود عند حدث الفتح للنموذج : DoCmd.ShowToolbar "formatting (form/report)", acToolbarNo حيث form/report هو اسم الشرط الذي تريد اخفائه

اذا اردت عمل ذلك يدوياً : اذهب الى ادوات Tools ثم بدء التشغيل StartUp ثم قم بازالة العلامة من الخيار Display Database Window أو (عرض اطار قاعدة البيانات) اما اذا اردت عمل ذلك برمجياً : تغيير خيارات بدأ التشغيل برمجيا, موضوع لأبو حمود

نعم يمكن ذلك ولكن عن طريق عمل استعلام تحديث Update Query 3-7 إستعلام التحديث Update Query او عن طريق الدالى IIF وتجد شرح مفصل لها بقسم الدوال

جرب نموذج اخر وضع به نفس القائمة المنسدلة مع استخدام الدالة Dlookup

forms![mainform]![frmEmployees]![List65].Requery حيث mainform هو اسم النموذج الرئيسي الكود بالكامل يصبح هكذا .. Private Sub Combo48_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[number] = " & Str(Nz(Me![Combo48], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark forms![mainform]![frmEmployees]![List65].Requery End Sub

اجعل الخاصية منبثق = نعم Pop up= Yes ضع عند حدث الفتح On Open لنموذج الشاشة الرئيسيه ايضاً الكود التالي : Docmd.Maxmize

ضع عند حدث بعد التحديث After Apdate لمربع التحرير والسرد الموجود على النموذج الأساسي [اسم النموذج الفرعي].[اسم مربع التحرير والسرد بالنموذج الفرعي].Requery

مرفق مثال الأخ فتى الوادي YearNo.rar

ولإستخدام الداله Dlookup تجد اكثر من شرح مفصل لها بقسم خلاصة مشاركات الأكسس - قسم الدوال شرح دوال أكسس - دوال تجميع المجال, Domain Aggregate Functions تطبيق للدالة DlookUp

بديء الترقيم التقائي مع كل سنة جديدة, تطبيق لاستخدام Dmax فى الترقيم

حديث حول المتغيرات فى VB, لأبي هاجر

هذه الرسالة تظهر دائماً اذا كان لديك الويندوز باللغة العربية و يتوافق مع الإنجليزية وليس العكس أو يكون هناك مشكله بالاكسبلورر ويلزم ازالته وتنصيبه مره اخرى من السي دي الخاصة بالوندوز او تعارض في البرامج او قلة الذاكرة الموجودة في الكمبيوتر او وجود فيروسات في الجهاز قم بتجربة هذا الحل لعله يجدي في بعض الأحيان ايضاً: 1- اذهب الى ابدأ Start. 2- اذهب الى تشغيل Run . 3- اكتب كلمة Drwatson 4- اضغط موافق Ok . احذف الملفات التي تنتهي بPWL.* لأنها قد تسبب عمليات غير شرعية لانترنت كسبلورر "KERNEL32.DLL".

نعم

استخدم الكود السابق

الـــ Snapshot لا يمكن استيرادة داخل قاعدة البيانات

تفضل voucher.rar

في هذه الحالة استخدم Or وليس And

هناك حل اسهل من اعادة تشغيل الجهاز بالكامل قم بعمل Log Off للويندوز :d

مرفق مثال يقوم بعمل اسكان للصور وتخزينها بالقاعدة أو خارجها المثال من عمل الأخ الكريم أبو هاجر جزاه الله كل خير Scaner_By_Access.rar