نجوم المشاركات

طيب ... شوف هذا التحايل .... NM.accdb

شكرا لكلماتك الطيبة أنا شخصيا لم اغير إلا فيما يحقق الشرط الخاص بك على اعتبار ان الكود يعمل معك قبل ذلك لذلك إذا كنت تقصد تحويل النص المكتوب في مربع النص إلى تاريخ يمكنك تعديل Me.TextBox16.Value في الشرط إلى cdate(Me.TextBox16.Value) تم تعديل الكود كاملا في المشاركة الأصلية بالتوفيق

وعليكم السلام وحمة الله وبركاته تفضل اخي الكريم اذا كان حقل NationalID رقم Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo) اذا كان حقل NationalID نص Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID ='" & cbjobNo & "'") تحياتي

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

اتفضل هذي مشاركتي مع الشباب NM.zip

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

استاذنا العزيز محمد ... لا اعرف لماذا لا اقتنع بحقل محسوب .. بالاساس هو معادلة رياضية فتخيل لو عندنا مئات الالاف من السجلات وبالتاكيد سوف يكون هناك ضغط على الحاسوب وبطء في اعطاء النتائج

أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به "E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي

اعتقد بانها لا تصلح مع رقم تلقائي .. واذا اردنا ان نعملها مع رقم تلقائي فيجب ان نعملها بحقل نصي اخر يأخذ قيمته من الرقم التلقائي

السلام عليكم جرب هذا الكود = "E" & (Right(Nz(DMax("[FileNo]", "TblEmpl"), 100000), 6) + 1)

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

سيكون بالشكل التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo) rs.Delete rs.MoveNext rs.Close Set rs = Nothing تحياتي

جرب هذه Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" [cbjobNo])

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

يمكنك استعمال هذا الكود في حدث قبل إغلاق الملف Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Introduction").Range("G10") = "" Sheets("Introduction").Range("G12") = "" ThisWorkbook.Save End Sub وينبغي حفظ الملف بامتداد يسمح بالأكواد مثل xlsb بالتوفيق

تقريبا الخطأ في أن الشرط في زر الحفظ والتعديل هو If C Like TextBox6.Value & "*" Then وهذا يعني أن الخلية تشبه الرقم وبعده أي رقم آخر * وربما يكون الصواب If c = Val(Me.TextBox6) Then وهو يعني تساوي الرقم مع الرقم المكتوب في مربع النص بالتوفيق

المطلوب غير واضح لي هل تقصد: إذا تساوت قيمة خلية في العمود f في الشيت micro يتم الترحيل في نفس الصف الذي تساوت فيه (طبعا في شيت micro) ولا يقوم بالترحيل في شيت raw وإذا تساوت قيمة خلية في العمود f في الشيت raw يتم الترحيل في نفس الصف الذي تساوت فيه ولا يقوم بالترحيل في شيت micro ؟؟؟

الملف به كود يقوم بالترحيل إلى أول صف فارغ بعد المكتوب في شيت micro وشيت raw هل المطلوب تعديل الترحيل في شيت micro فقط إذا تساوى التاريخ في العمود f مع مربع نص التاريخ؟ مع الترحيل إلى آخر صف في شيت raw أم أنه لا يتم الترحيل في الاثنين إلا إذا تساوى التاريخ؟

السلام عليكم جرب الكود التالي Private Sub Form_Resize() DoCmd.Maximize End Sub تحياتي

الله يسلمك على رأسي والله انك استفدت شكرا لك

بدل الشريط (لأن الكود في النموذج سيخفيه) ، اعمل مربع تسمية ، مما سيعطيك انطباع بأن الشريط موجود ، ولكن لن تستطيع تحريكه 🙂 استعمل الماكرو autoexec_Login_Boarder_n_Buttons_Show 🙂 جعفر example_semo.accdb

اعتقد انك بهذه الطريقة ستقوم بجعل شكل الفاتورة غير مقبول الى حد ما لذلك يمكنك وضع شىء اخر السجلات كاجمالي الكمية او امالي الفاتورة او نص بتفقيط الفاتورة ... الخ NM.rar تحياتي

وعليكم السلام ورحمة الله وبركاته غير خاصية POP UP الى NO data.rar تحياتي

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

فعلا هذه النقطه لم انتبه لها فى هذه اللحظه واذا زاد حجم البيانات هيزيد بالتالى الضغط على المعالج (مشكله) انا كنت ابحث عنها ظانن انها جيده ( ولكى اعرف كيف افعلها لغرض التعليم) اشكرك شكرا جزيلا على المعلومه

هذا هو بارك الله فيك ويعطيك الف الف صحه

وهذا ما تم عمله بالمرفق الاخير

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

احسنت استاذ حسام .. هو لا يعمل مع الرقم التلقائي

جرب هذه الطريقة DB-2.rar

حياك الله استاذ قاسم جرب ان تضعه كقيمة افتراضية وهذا مثال بسيط DB.rar هذه التعابير ك dmax, nz لا يمكن استخدامها في الجداول

شكراً اخي محمد على هذا المجهود

الاستاذ محمد صالح المحترم اشكرك شكرا جزيلا ، اسال الله عز وجل لك بالبركة والتوفيق يارب🧡🧡🧡

كود رائع جزاك الله كل خير لكن الكود لايعمل الى مع الخلايا التي معرفها نص ولا يعمل مع الأرقام والتاريخ

شكرا جزيلا للاستاذ أ / محمد صالح على حل المشكلة مع خالص تقديري

اتبع الإجراءات التالية اولاً / انشئ Module1 جديد و الصق فيه الشيفرة التالية Option Compare Database ption Explicit Public MyUserName, MyPassword, Full_Name, MyUser_Active, MyAddition, MyUpdate, MyDeletion, MyUser_NO As String Const SW_HIDE = 0 Const SW_NORMAL = 1 Const SW_MINIMIZED = 2 Const SW_MAXIMIZED = 3 Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub و في النموذج الرئيسي في حدث عند الفتح الصق الكود التالي HideAccess فالك التوفيق انشاء الله

السلام عليكم اخي @AboBahaa تم اجابة الموضوع من قبل الاستاذ @jjafferr والاستاذ @محمد أبوعبدالله والاستاذ @د.كاف يار شكرا لجميع جهود الاساتذه على توصيل كافة الافكار للمستخدمين بارك الله فيهم وجعلها في ميزان حسناتهم يارب العالمين ورابط الموضوع : الملف مرفق بعد التعديل اعطنا رايك فيه اخي العزيز تحياتي للجميع data.accdb

شكرا لله الذي بفضله تتم الصالحات ثم شكرا لكل من ساهم في حل هذه المشكلة ولو بكلمة وشكرا جزيلا لكل من kanory و د.كاف يار.

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

طلبك غير واضح DblClick على ايش بالضبط تقدر تضع حدث عن الضغط المزدوج على اي عنصر و بطبيعة الحال جميع العناصر DblClick لا يوجد بها اي حدث

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

وجدت المثال في جهازي وهو للمبرمج أكسسنا Accessna بس لا أعرف من أي منتدى Accessna_ResizeTextBox_20190118.mdb

السلام عليكم استاذي ومعلمي @jjafferr الموضوع انا اذكره جيدا (تكبير النموذج بدون تغطية شريط قائمة إبدأ) وعملت منه قاعدة بيانات متكاملة بارك الله فيك وجعلها في ميزان حسناتك كان طلبي فقط معرفة ان كان هنالك كود او وحدة نمطية لالغاء عمل DblClick في النموذج او قاعدة البيانات كلها وشكرا لك استاذي العزيز

مرحبا اخي العزيز..اعتذر جدا لم افهم ما قصدته فعلا في التقرير يمكن عمل اي شي ..اما طلبك فعلى ما اعتقد شرحه الاستاذ صالح

تقدر تستعمل النموذج الذي اعطيتك هنا: جعفر

السلام عليكم استاذ @jjafferr ان شاء الله تكون بافضل حال الموضوع هو للاخ @AboBahaa لكنة نقس المشكلة لدي في قاعدة البيانات المشكلة كما في المرفق هي عند الضغط دبل كليك بالشريط الاعلى بالنموذج يتم تكبير النموذج كنموذج منبثق ووعند الضغط مرة ثانية على النموذج بالشريط الاعلى يتم تصغير النموذج المطلوب الغاء او عدم تمكين الدبل كلك بالشريط الاعلى وشكرا جزيلا data.accdb

وعليكم السلام 🙂 وبسبب انك ما اعطيتنا معلومات كافية ، فاختر المثال الاول او الثاني ، وكلاهما على حدث "النقر المزدوج" : الاول للنقر المزدوج للنموذج ، والثاني للحقل : جعفر

السلام عليكم اكسس تختلف عن اكسل من حيث ان كل الخلايا مفتوحة .. في اكسس وفي نموذج ادخال البيانات لايظهر سجل جديد الابعد البدء بادخال بيانات السجل الذي قبله

السلام عليكم Int([a1a]/[b1b]+0.5)

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