Bluemind

السلام عليكم هذي غلطتي لاني ما مسحت الي بالون الاخصر و التي تعتبر في البرمجه تعليقات او comments بامكانك مسح الاكواد الي بالون الاخضر وابقي الاكواد باللون الاسود ورايح تشوفين المساله سهله

اختي الكريمه لو رجعتي الى المشاركه هذه http://www.officena.net/ib/index.php?showtopic=28138 لوجدتي انه في حاله عدم كتابه او عدم اختيار شي من القوائم او مربعات النص سوف تجدين ان هناك مسج تخبرك انه لايوجد شي نص الرساله يمكن تعديله

تفضل اخوي شوف مثالك بعد التعديل عليه UserForm.zip

اخوي لو بحثت قليلا في قسم الحمايه و الامان رايح تحصل بعض المواضيع المفيده و منها: http://www.officena.net/ib/index.php?showtopic=17800

اخوي اشرف ممكن شرح عمل هذا الزر و توضيحات اكثر عنه وعن الكائنات الموجوده معه في النموذج واذا ارفقت قاعده البيانات يكون افضل

قواعد المشاركه: http://www.officena.net/Tips/Questions.htm على الاقل ابداء بتصميم القاعدة لتشجيع اعضاء المنتدى على مساعدتك.

اخوي الطريقه هي كالتالي: اولا: قم بانشاء استعلام في قاعده الاكسس و حدد الاعمده المراد تصديرها ثم قم بحفظها ثم ارجع الى ملف الاكسل ثم من صفحه التبويب Data اختر شكل الاكسس كما هو موضح في الصوره ثم سوف يفتح لك مربع حوار قم بتحديد قاعده الاكسس ثم اختر الاستعلام المعمول في الخطوه الاولى ثم سوف يفتح مربع خيار يقوم باعطائك خيارات الربط سواء ربط و التحديث و كذلك تحديد الصفحه المراد توصيل البيانات اليها ارجوا ان تكون الفكره واضحه

روحي على محرر الفيجول بيسك او صفحه الفيجول بيك للفورم ثم منTools اختاري References بعدين ابحثي عن خيار مكتوب فيه كلمه missing..... الغي علامه الصح منه العاده يكون في الاول

تفضلي شوفي المرفق لقد تم عمل كود البحث بطريقه اخرى ان شاء الله يكون المطلوب NNRR.zip

قواعد المشاركه http://www.officena.net/Tips/Questions.htm

تفضل اخوي هذا نموذج دائم افضل استخدامه طبعا المرفق يوجد به نموذج و جدول غير كلمه السر في الجدول للاستخدام DbLogin.zip

اختي الكريمه سؤالك غير مفهوم ارجوا التوضيح؟؟؟؟ هل تقصدين انها لا تظهر في القائمه المنسدله او في النموذج او اين؟؟؟؟!!!!!! و احب اشكرك على التصميم الصحيح لقاعده البيانات وخصوصا اسماء الحقول في الجداول و تجنب اللغه العربيه

اخوي انشاء استعلام ثم ضع جمله الSal فيه SELECT A.FieldName + 1 AS الارقام_المفقوده FROM YourTbl AS A LEFT JOIN YourTbl AS B ON A.FieldName + 1 = B.FieldName WHERE B.FieldName IS NULL; قم بتغيير YourTbl الى اسم الجدول لديك قم بتغيير FieldName الى اسم الحقل الخاص الموجود في جدولك سوف تظهر لك الاقام الناقصه وهناك رقم سوف يظهر في اخر الاستعلام يعتبر زائد لان الاستعلام يزيد 1 على اخر سجل او اضف قاعده بياناتك

حياك الله اخي الكريم المقصود ليس ان تقوم بفتحه باستخدام 2007 ولكن هو جعل امتداد القاعده accdb وليس mdb حيث ان accdb هو امتداد القاعده في اكسس 2007 الجديد

مشكور اخوي مزلزل وبارك الله فيك هناك طريقه تختصر عليك وضع الكود وهي باستخدام الماوس او الفره مع زر Ctrl قم بالضغط على Ctrl و استمر بالضغط عليه وقم بعمل سكرول بالفاره(الحلقه المجوده بين زري الماوس) سواء تكبير او تصغير

اخوي اذا نقلت القاعده فان مسار الصوره لديك يتغير و الحل هو: يجب وضع الصور في مجلد(image) وهذا المجلد يجب ان يكون مع قاعده البيانات في مجلد اخر اي لا تنقل قاعده البيانات لوحدها بل انقل المجلد كاملا او حول قاعده بياناتك الى اكسس 2007 وبهذا تستطيع تخزين صورك في القاعده بدون زياده حجم القاعده

اخوي بارك الله فيك اعتقد تم الاجابه على سؤالك في هذه المشاركه ولكنك لم تستطع الرجوع اليها http://www.officena.net/ib/index.php?showtopic=25859

تفضل شوف الشرح

اخوي الاجابه ان شاء الله سوف تجدها في هذا الرابط http://www.officena.net/ib/index.php?showtopic=28053 اواضف قاعده البيانات

اخوي شوف المرفق بما انك لم تحدد اي حقل فقد تم تطبيق الكود على الحقل ID_Number شوف النموذج المسمى Manpower Request الاخ ن-1 هذا ليس امر ولكن هو حدث من خصائص النموذج روح على تاب Event ورايح تحصله اول واحد Manpower_Follow_up_system1.4.zip

اخوي امتياز بارك الله فيك بما انك تستخدم اكسس 2007 روح على علامه الاوفيس ثم اختر access option كما في الصوره الاولى ثم كما في الصوره الثانيه اختر advance ثم اختر الخطوه الثالثه وهي عن التاريخ الهجري

اخوي اضف الكود التالي في حدث عند الحالي او on current If Me.NewRecord Then Dim strWhere As String Dim varResult As Variant strWhere = "ID_Number Like """ & Format(Date, "yyyy") & "*""" varResult = DMax("ID_Number", "Table1", strWhere) If IsNull(varResult) Then Me.ID_Number = "01/" & Format(Date, "yyyy") Else Me.ID_Number = Right(varResult, 3) & _ Format(Val(Left(varResult, 4)) + 1, "00") End If End If مع تعديل الحقل المراد تخصيصه الى حقل من نوع نص وكذللك لا تنسى تغيير اسم الجدول و اسم الحقل الذي في الجدول في هذا السطر الى اسم الجدول والحقل لديك strWhere = "ID_Number Like """ & Format(Date, "yyyy") & "*""" varResult = DMax("ID_Number", "Table1", strWhere)

تفضل اخوي شوف المرفق بعد التعديل Test2zip.zip

بارك الله فيك كلام جميل و في محله ولا احد يشكك في مصداقيه هذا المنتدى ولا باعضاءه مبروك للاعضاء الجدد ومزيدا من التقدم

اخوي عبدالله هل قاعده البيانات على الشبكه؟؟!! اي تريد اسم المستخدم على الشبكه ام ماذا؟؟؟