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

اتفضل Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!basic With tdfNew .Fields.Append .CreateField(Me.[id mon], dbText, 50) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click try.accdb

من أفضل البرامج لتصوير الشروحات بصيغة GIf ويدعم اللغة العربية على الرابط : https://www.screentogif.com/ https://www.screentogif.com/downloads.html

مشاركه مع أخي صالح بريكان هناك طريقة اخرى لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق : اما طريقة الأخ الغالي /صالح بريكان تظهر جميع أيام اسابع ماضية و لاحقة ما يصادف ايامها يوم اسبوع الحالي مثلا اليوم يوم السبت تظهر تواريخ جميع أيام السبت سواء ماضية اولاحقة 10/8 24/8...... xx.accdb

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

اتفضل DoCmd.OpenForm "Teb22", , , "[a1] = '" & Me.a1 & "'" & "And [a2] = '" & Me.a2 & "'" ماشاء الله كلنا بتوقيت واحد هههههههههههههه

تفضل اخي الكريم teest.accdb

اتفضل اليك هذا teest.zip

لعل هذا ما تريده الصفحة Salim من هذا الملف Example_Salim_Updated.xlsx

فورم بحث عن اى حرف او كلمة فى اى مكان فى العمود المحدد الفيديو الصور

برنامج مساقات للمحاسبة للأستاذ الكبير : محمد أجول قام بشرح البرنامج خطوة بخطوة في عدة دروس في قناته على اليوتيوب التالية :- ملفات العمل لبرنامج المساقات المحاسبي : https://goo.gl/My9F7x ملفات العمل للبرنامج الثاني مساقات أولاين : https://drive.google.com/drive/u/2/fo... ما يميز البرنامج مساقات المحاسبي "المرفق" اعتماده في الغالب على الحقول غير المنضمه ولا يتعمد على الحفظ التلقائي من الأكسس يستخدم مكتبة DAO يمكننا تنزل البرنامج واستعراض الأكواد للاستفادة منها في أعمالنا . مساقات_للمحاسبة,_نسخة_قابلة_للتعديل.accdb

السجلات الثلاث الاخيرة يوجد بها رموز غير مفهومة ولكن يمكن تعديلها وليس كما اشرت انت في بداية الموضوع (و حتى عند تعديل كمال احمد : الى كمال احمد بدون الرمز لا يتم التعديل و لا يخرج الماوس من الخلية )

استاذ يا ابا محمد 😎

لا توجد اي مشكلة تعديل واستعلام 2019 و2016

السلام عليكم إليك الكود قم بوضعه في حدث مفتاح للأسفل للنموذج و لا تنسى تعيين خاصية مفتاح المعاينة إلى نعم If KeyCode <> vbKeyShift Then KeyCode = 0 End If

نعم

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

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

اخي محمد ليس في الملف مشكله ... لاحظ سجلت سجل وبه رمز واخرجت الماوس ... انظر

أخي الكريم يجب ان تأخذ بالحسبان البيئة التي بني عليها البرنامج قبل التعميم بيئة Vb.net تستخدم الاتصال المنفصل وهذا الكلام يعرفه من عمل على هذه البيئة بيئة اوراكل هذا موضوع ثاني بالكامل فخاصيتها لايتم الاضافة أو التعديل قبل النقر على زر الأمر حفظ وإذا قلت لي ان البرامج تم تصميمها بالاكسس سأجيبك ممكن ولكن ليس بطريقة تصميمك فالطريقة تكون عن طريق نماذج غير منضمه كما أشار إليك الاستاذ @kha9009lid الليلة أو غداً إن أسعفني الوقت سأضع مثال ممكن تستفيد منه وتطبق الفكرة على برنامجك ::بالتوفيق::

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

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

السلام عليكم جرب الملف اوفسينا.xlsx

ارجو المساعدة لأستكمال المشروع ولكم جزيل الشكر Database2.accdb

اشكركم جميعا الاخ ( شفان ريكاني ) والاخ ( حسين كمال ) والاخ ( محمد ياسين ) كلكم وفيتو وكفيتو جزاكم الله كل خير لكن حل الاخ حسيني صدمني بصراحه لانه بدون شرط وشغال هذا الكود الذي كتبه الاخ حسين DoCmd.OpenForm "Teb22", acNormal الاخ القدير ( كاسر ) اكن لك كل تقدير واحترام واحب ان اوضح ان المثال ليس له علاقه بالواقع وانما لتوضيح السؤال فقط وانا احد الناس الذي استفاد كثير من مشاركاتك اكرر شكري وتقديري للجميع

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

العفو و تحت امرك و امر الجميع و الأمر كله لله وحده

بالتوفيف اخي الكريم

تفضل هذا التعديل تم اضافة المبالغ التي تم قبضها من المساهم المحدد program44.accdb

تفضل التعديل اخي الكريم program44.accdb

جرب هذا المعادلة في B1 تم اسحب نزولاً =SUBSTITUTE(TRIM(A1),CHAR(160),"")

وعليكم السلام كي تعمل قاعدة البيانات على النسختين يجب وضع كلمة PtrSafe قبل Function كما هو موضح في الكود التالي : #If VBA7 Then 'نسخة 64 Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #Else 'نسخة 32 Public Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #End If بالمرفق الملف بعد التعديل SAMEH2.rar

وعليكم السلام ورحمة الله وبركاتة ضع مرفق ووضح أكثر ::بالتوفيق::

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

قم بالذهاب إلى تنسيق شرطي ثم اختر إدارة القاعدة ومن إظهار قواعد التنسيق اختر ورقة العمل هذه لاحظ الصورة ثم الصورة الثانية ثم الصورة الثالثة ثم اضغط موافق لاحظ النطاق من E7 : E1007 بالنسبة للون انظهر الصورة بالمثل النطاق باللون الأحمر طبعًا ممكن بالمثل تختر نطاق لرقم التليفون وتتبع نفس الخطوات فقط تغير رقم 14 في المعادلة إلى 11 وتكتب بدلاً من E7 خلية بداية النطاق

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

أولاً كان يجب عليك رفع ملف توضح فيه المطلوب ثانيًا يمكن عمل ذلك باستخدام التحقق من الصحة وذلك بتحديد الخلايا ثم الذهاب إلى بيانات واختر التحقق من الصحة يظهر صندوق حواري اختر اعدادت وأكمل كما بالصورة بالنسبة للرقم القومي الطول 14 أما بالنسبة للتلبفون اجعله 11

تفضل -تم تصميم الملف وحماية الخلايا لعدم العبث بالمعادلات المشروع الصغير.xlsm

تفضل المصنف1 (3).xlsm

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

تفضل جرب هذا دليل الهاتف - Copy.xlsm

تفضل أتمنى ان يكون المطلوب ترتيب3.xlsm

اخى الكريم كما ترى المعادلتين يعملان بكل كفاءة اذا كان هناك مشكلة فمن عندك حاول تحلها

تفضل الحل بمعادلتين مختلفتين داخل الملف ELFAR.xlsm

اخى الكريم لابد من البحث جيدا فى المشاركات فالملف موجود برنامج مرتبات للقطاع الخاص - سعيد بيرم.xls

بارك الله فيك

تفضل ترتيب2.xlsm

وعليكم السلام الرابط لا يعمل كما ترى File Not Found The file you were looking for could not be found, sorry for any inconvenience Possible causes of this error could be: The file expired The file was deleted by its owner The file was deleted by administration because it didn't comply with our Terms of Use

تفضل لك ما طلبت المصنف1.xlsx

طيب ع العموم استنى المرفق اهو انا اسف انا كنت لاغى القوائم كل الاكواد داخل الفورم mainfrm إخفاء واظهار الجداول والكائنات.rar

بالتصور و التطبيق برزت لنا حاجة بضرورة وجود وحدة نمطية لفحص الجداول المرتبطة ومعرفة عددها فكان لنا حاجة بهذه الوحدة الجديدة صممتها وسميتها ModCountLinks وخلفها نكتب : 'By Nart Lebzo for Officena.net Public Function CountLinks() Dim TblCount As Integer TblCount = 0 For Each tdf In CurrentDb.TableDefs ' If the table has a connect string, it's a linked table. If Len(tdf.Connect) > 0 Then TblCount = TblCount + 1 End If Next tdf CountLinks = TblCount 'MsgBox " عدد الجداول المرتبطة بقاعدة البيانات " & vbCrLf & CountLinks, vbExclamation, "Linked with Back End" End Function وهذه تقوم بالتعرف على الجداول المرتبطة و تمر عليها وتعدها كي نتمكن من التعرف على العدد و استخدامه لاحقاً وطبعاً يظهر لكم أنني عطلت ظهور الرسالة لبيان الخيار فقد تحتاج ظهور رسالة و قد لاتحتاجه ضمن الوحدة ، وقد تضمنه لأي كود ضمن النموذج مثلاً. و للحديث بقية ...... .............