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

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

اها طيب خلينا نرجع لاول مثال وببساطه قمت بالغاء القيمه الافتراضيه للتاريخ بالجدول فعند فتح النموذج ستجد خيار جديد غير نشط وبعد اختيار التاريخ ستجد انه تم تنشيط الخيار مره اخرى ويمكنك التسجيل بالفرعى ولكن بعد اختيار التاريخ بالاعلى هل هذا ما تريد ؟ بالتوفيق 1_4.accdb

السلام عليكم ورحمه الله وبركاته اطلع ع المثال ربما يفى بالغرض ان لم يكن كذلك فاطلع عالموضوع الذى اشار اليك به اخى واستاذى العزيز @kanory بالتوفيق example.mdb

جميل جدا اخي ابو اشرف وممكن بطريقة اخرى ⬇️ Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[nn] = " & Me.nn If Not rs.NoMatch Then Cancel = True MsgBox "هذة القيمة مكررة" Else End If rs.Close تحياتي

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير 💐 اهلا بك اخى واستاذى العزيز @Moosak وجزاك الله خيرا على مشاركتك معنا والله يجبر بخاطرك كما تجبر بخاطر طالب علم مبتدىء مثلى 💐 نعم كما اشار اليك اخى موسى لست مع هذه الجمله 👇 ولكن ان اردت فسوف تقوم باضافه الاستدعاء كما اشار لك اخى موسى فى حدث بعد التحديث او عند الخروج كما تحب انا ضفته فى حقل واحد وهو كتابه التكلفه بعد الخروج من الحقل مع اضافه بسيطه للكود وهى فى 3 سطر لحفظ السجل حتى يتم الحساب DoCmd.RunCommand acCmdSaveRecord Private Sub btnCount_Click() If IsNull(Me.كود_المشروع) Then Exit Sub DoCmd.RunCommand acCmdSaveRecord x = Me.كود_المشروع strSql = "SELECT [MAIN-TABLE].*, [MAIN-TABLE].[كود المشروع] " & _ "FROM [MAIN-TABLE] " & _ "WHERE [MAIN-TABLE].[كود المشروع]=" & x Dim rs As Recordset Set rs = CurrentDb.OpenRecordset(strSql) i = 0 For y = 0 To rs.Fields.Count - 1 If rs.Fields(y).Value = "NA" Or rs.Fields(y).Value = Chr(34) & "NA" & Chr(34) Then i = i + 1 End If Next Me.txtCount = i End Sub Private Sub Form_Current() btnCount_Click End Sub Private Sub التكلفة_كتابةً_Exit(Cancel As Integer) btnCount_Click End Sub بالتوفيق Database1(1)(1).accdb

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

إداة Selenium تختلف كليا عن (HTML Document Object Model (DOM، وبالتالي من المهم الرجوع إلى موقع المشروع لمعرفة كيفية استخدام الأداة، ومن المهم أيضاً أن نعلم أن لغة VBA لم تكن ضمن المشروع بالأساس، لكن أحد المطورين قام بإلحاقها في مشروع مستقل.. كما تجدر الإشارة أن ملجد Selenium يحتوي على ملف للمساعدة باسم (Selenium.chm). انقر عليه نقراً مزدوجاً وخذ لمحة عن كيفية استخدام الأدة في بيئة VBA.. ستلاحظ أن نموذج Selenium يتأخر في الظهور عند فتحه وذلك لأني جعلت المتصفح يقلع مع النموذج في وضع التخفي.. ولن يظهر النموذج حتى ينتهي المتصفح من تحميل الصفحة.. تعليمى.mdb

حسناً لنرى إذا كانت متطلبات العمل على سلينيوم مكتملة لديك.. يتطلب سلينيوم تحميل وتثبيت المحرك (ChromeDriver) التابع للمتصفح Chrome، ولإنهاء هذه المهمة يجب أولا التأكد من أن نسخة المحركة مطابقة لنسخة المتصفح.. كيف انقر على النقاط الثلاث في متصفح كروم ثم انقر المساعدة ثم نبذة عن قوقل كروم (واجهةالعمل عندي إنجليزية والأسماء التي أضعها بالعربي تقريبية) إذهب إلى موقع سلنيوم (تثبيت المحركات) Web Browser/Getting Started/Instal Drivers، ثم من الجدول انقر فوق Downloads المحاذية Google Chrome.. اتبع الخطوات ثم اختر النسخة المطابقة لمتصفك مع التأكد من النواة الملائمة.. قم بفك الملف المضغوط وانسخ الملف التنفيذي chromedriver.exe وضعه في المجلد SeleniumBasic.. هذا المجلد ضمن المجلد C:\Users\[UserName]\AppData\Local أرجو منك إنهاء هذه الخطوات حتى نبدأ باستخدام Selenium مع Access

عليكم السلام ورحمة الله وبركاته إذا كان الهدف حساب عدد المرات التي يكون فيها نوع البلوك هو المطلوب وعدد الكبسات أكبر من صفر جرب أن تضع المعادلة التالية في الخلية C3 =COUNTIFS(C6:C1000,C2,D6:D1000,">0") وأعتقد countifs تعمل على 2016 وإذا كان الهدف عدم حساب تكرار اليوم ضمن المرات فيمكن إضافة عمود مساعد لحساب عدد مرات تكرار اليوم لنفس البلوك ومعادلته في E6 =COUNTIFS($B$6:B6,B6,$C$6:C6,C6) ونغير معادلة C3 إلى =COUNTIFS(C6:C1000,C2,D6:D1000,">0",E6:E1000,1) بالتوفيق

احسنت وشرحك جميل مداخلتي من باب طرح حلول وافكار اخرى بالنسبة لاجبار المستخدم على ادخال ارقام في حقل نصي انت استخدمت قناع الادخال وهي فكرة جيدة وتؤدي المطلوب تماما مع ذالك بعض قدامى المبرمجين لا يستخدمون قناع الادخال ويفضلون ان يكون التقييد عن طريق الكود لذا ممكن كتابة الامر التالي ⬇️ بدلا من قناع الادخال If Not IsNumeric([tx]) Or Len([tx]) <> 10 Then MsgBox "هذا الحقل رقمي فقط وبعدد 10 ارقام" Me.tx = "" End If ايضا بالنسبة لاغلاق النموذج لا داعي لكتابة اسمه والافضل كتابة الامر على النحو التالي ⬇️ DoCmd.close acForm, Me.Name اخيرا ماذا لو كان رقم الهوية غير موجود ؟ سوف يفتح النموذج فارغ والاجراء الامثل ان يتم فحص الرقم اذا كان مسجل يفتح النموذج او يظهر رسالة بان السجل غير موجود ويوقف الاجراء وتوجد امثلة بالموقع تشرح ذلك وهنا نتوقف ونشير كما اعتدنا ان الامر يتحدث عن افكار اخرى فقط تحياتي

مرفق لكم الملف اللي استخدمه بالشرح للإستفادة رسائل تنبيهات MSGBOX بطريقة جديده.accdb

أشكركم على مروركم وإجابتكم أ. محمد صالح.

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

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

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

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,, أقدم ملف اكسل يقوم بعرض صفحة جاهزة للطباعة فيها نتيجة العام الهجري مقابل الميلادي، والميلادي مقابل الهجري مع تحديد ايام العطلات الرسمية تــــم رفع الملف بدون ضغط وبدون حماية لإكتمال الإستفادة للجميع التقويم المفتوح 1901 - 3000 اصدار 11.xlsx

ضع هذا السطر في أول الكود : If IsNull(Me.كود_المشروع) Then Exit Sub هكذا : Private Sub btnCount_Click() If IsNull(Me.كود_المشروع) Then Exit Sub x = Me.كود_المشروع strSql = "SELECT [MAIN-TABLE].*, [MAIN-TABLE].[كود المشروع] " & _ "FROM [MAIN-TABLE] " & _ "WHERE [MAIN-TABLE].[كود المشروع]=" & x Dim rs As Recordset Set rs = CurrentDb.OpenRecordset(strSql) i = 0 For y = 0 To rs.Fields.Count - 1 If rs.Fields(y).Value = "NA" Or rs.Fields(y).Value = Chr(34) & "NA" & Chr(34) Then i = i + 1 End If Next Me.txtCount = i End Sub

بعد إذن مهندسنا @احمد الفلاحجي وإجابة على سؤالك 🙂 .. ضع السطر التالي عند حدث في الحالي للنموذج : Private Sub Form_Current() btnCount_Click End Sub

ما يقصده الأستاذ @احمد الفلاحجي هو أن تلغي خاصية التجميع أو الإجماليات من تصميم الاستعلام :

وعليكم السلام ورحمه الله وبركاته فى الاستعلام corporate_invoice2 اجعله استعلام تحديد فقط والغى عمليه التجميع للاستعلام وسوف تظهر معك جميع السجلات بالتوفيق

اتفضل جرب التعديل بالتوفيق 1_3.accdb

وعليكم السلام ورحمه الله وبركاته اتفضل ان شاء الله يكون ما تريد اضغط عالزر للحصول على العدد بالتوفيق Database1(1).accdb

السلام عليكم اخي الكريم في المرفق تجد طريقة معتمدة في معظم برامج المحاسبة وهي الية اختيار العملة ، حيث تضع جدول للعملات فيه اسم العملة واجزاء العملة وسعر الصرف وفي النموذج تضع مربع تحرير وسرد وتربطه في الجدول ومن خلالها تختار العملة هذه الطريقة تتيح لك اضافة اكثر من عملة في اي وقت تريد example.mdb

السلام عليكم ورحمه الله وبركاته اخى الفاضل @Hamtoooo بعد اضافه الرابط مباشره تضغط انتر سيظهر كالتالى 👇 بالتوفيق

ولا يهمك اخى ومعلمى ووالدى الحبيب فما نسيته انت فقد اكملته نيابه عنك فهذا قليل مما تعلمناه منكم فجزاكم الله عنا كل خير 💐 اللهم آمين اللهم آمين يشرفنى منادتكم لى بابنكم دكتور محمد ولا يصح ان يتوجه الاب لابنه باستاذى ومعلمى اللهم آمين جزاكم الله خيرا اخوانى وتقبل الله منكم اللهم آمين طيب اخى @Shaaban Elnagar جرب المثال المرفق هو نفس مثالى الاول مع تعديل بسيط وبدون ازرار وان شاء الله يشتغل معك هذه المره هل تقصد النموذج الفرعى طيب وهل تريد وقف الانتقال لرقم جديد الى ان يتم ملىء النموذج الفرعى ام ماذا ؟ بالتوفيق 1_2.accdb

فعلا كلامك صحيح نسيت الغي استدعاء الامر 🌹 اللَّهُمَّ، اغْفِرْ له وَارْحَمْهُ، وَاعْفُ عنْه وَعَافِهِ، وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مُدْخَلَهُ، وَاغْسِلْهُ بمَاءٍ وَثَلْجٍ وَبَرَدٍ، وَنَقِّهِ مِنَ الخَطَايَا كما يُنَقَّى الثَّوْبُ الأبْيَضُ مِنَ الدَّنَسِ

السلام عليكم بعتذر عن التاخير بالرد وارجو الدعاء لجدى واسال الله ان يرحمه برحمته الواسعه وان يجعل قبره روضه من رياض الجنه وجزاهم الله خيرا اخوتى واساتذتى @ابو البشر و @مبرمج سابق على كل ما يقدمونه لنا فى سبيل التعلم والمساعده لاخوانهم المبتدئين امثالى 💐 واعذرنى فلم ارى مشكله بمثالى الذى ارفقته او الذى ارفقته انت استاذ شعبان ردا على مشاركتى ولا ادرى السبب هذا التعديل ع مثال اخى ومعلمى ووالدى الحبيب @مبرمج سابق واعتذر لو قمت بالتعديل بدون استئذان وهذا التعديل لسببين فى المثال السابق لمعلمى ووالدى الحبيب خالد عند الضغط عالزر يقوم بزياده الرقم بمعنى اذا كان المفروض السجل الثانى رقم 2 فيقوم باضافه 1 مره اخرى فيصبح 3 والثانى لمطلب الاستاذ شعبان Private Sub Form_Open(Cancel As Integer) 'If Me.NewRecord Then أمر11_Click 'End If End Sub Private Sub أمر11_Click() DoCmd.GoToRecord , , acNewRec Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1 Me.as_a2 = Date Me.Pu_inx8.SetFocus Me.Refresh Me.Pu_inx8.Form!as_b2.SetFocus End Sub وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات وجزاكم الله خيرا 1(1).accdb

اخي وائل السلام عليكم نعم يمكنك ذلك باتباع الاتي : 1- من تنسيق الشكل 2- تختار اعدادات 3- يوجد ثلاثة خيارات ( والخاصة بحجم الشكل عند تغيير الاعمدة ) 4- اختار الاوسط وهو تحريك مع عدم تغير الشكل انظر المرفق اذا الشرح لم يفي بالمطلوب اعلمني لكي ارسل تفاصيل اكثر تحياتي لك ______________.rar

نعم اخي العزيز جربته لكن هناك فرق ففي النموذج pu_inv6 يكون خيار سجل جديد غير نشط ولا ينشط الا بعد ملء بيان اسم العميل عندها ينشط خيار السجل الجديد عندها لنا ان نكمل بيانات النموذج الفرعي أو ان ننتقل الي سجل جديد ونحن واقفون علي النموذج اما في النموذج pu_inv8 فخيار سجل جديد نشط بشكل مستمر ويمكن ان نضيف من خلاله سجلات جديده بشكل لانهائي سواء ملأنا بيان اسم العميل ام لم نملء هدفي الاخير سيدي الفاضل ان يكون النموذج pu_inv8 بنفس الصورة التي عليها النموذج pu_inv6 او ما يسمي (فاتورة بيع اجل) اريدك ان تقارن بين الصور الثلاث