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

طيب ... شوف هذا التحايل .... 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.rar هذه التعابير ك dmax, nz لا يمكن استخدامها في الجداول

السلام عليكم ورحمه الله وبركاته أرجو المساعدة في معادلة للتقريب العدد العشري ( الكسر ) المطلوب تقريب الأرقام بمعادله كالاتي :- الكسر أقل من 0.24 يحذف الكسر من 0.25 الي 0.74 يضاف للرقم 0.5 ( نصف ) الكسر أكبر من أو يساوي 0.75 ضاف للرقم 1 التقريب.xlsx

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

ضع "E1"000001 في ال Format

المطلوب الثاني غير متعلق بالموضوع ويمكنك التوصل اليه بالبحث https://www.officena.net/ib/search/?q=إغلاق الاكسل بعد فترة&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

هل تقصد إغلاق الاكسل كله إذا لم يكن هناك مصنفات مفتوحة غير هذا المصنف؟

جرب هذا الحل If Len([TextBox1].Text) > 145 Then Exit Sub If Len([TextBox1].Text) > 111 Then [TextBox1].Width = 55 * Len([TextBox1].Text) End If الشرح اذا كان في النموذج يجب ان تستخدم Text للتركيز على المدخلات على الحقل و يكون الشرط اذا تجاز عدد الحروف المدخلة عن 111 حرف سيتم توسيع مربع النص بالعرض Width و حتى ان يصل عدد الحروف الى 145 حرف سوف يتوف النمو العرض و سيتم بالنمو الطولي هذه الفكرة بإختصار

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

اتبع الإجراءات التالية اولاً / انشئ 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

راح ياخذ حجم اي شاشة من جميع الاتجاهات

اخي في حدث عند الفتح ضع الكود التالي Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

السلام عليكم استاذ @محمد أبوعبدالله هذا هو الملف الاصلي الكود لم يفعل شيء حول دبل كلك تحياتي data.accdb

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

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

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

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

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =Round([totol];0) كسر عشري.accdb تحياتي

السلام عليكم كل عام وانتم بالف خير بعد اذن استاذي @محمد أبوعبدالله تغضل اتمنى ان يكون المطلوب data.accdb

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