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

اخي العزيز 1- استخدمت مقاس عرض النموذج 36 2- عملت ارتساء للحقول عن طريق : - قمت بتحديد كل الحقول باللنموذج عن طريق (Ctrl+A) - من القائمة الرئيسية اخترت (ترتيب-ثم -ارتساء- ثم اعلى اليسار) ثم الحقظ بالنسبة للنسخة العربية واعتقد النسخة الانكليزية يكون الارتساء اعلى اليمين - حفظ التغيرات على النموذج وهذه الصور تمثل الشرح

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

اتفضل اخى الكريم حاجه على قدى كده عالسريع قارى العدادات.accdb تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم قارى العدادات.accdb

وعليكم السلام-تفضل دالة طرح السنوات.xlsx

اخي @rey360 هل المطلوب شريط قوائم للبرنامج اذا كان الاصدار 2003 يمكن عملها من نفس الاكسس وتوجد شروحات كثير لعمل القوائم اما الاصدارات 2007 الى 2019 يمكن عملها عن طريق اعداد ملف xml

تفضل اخي الكريم مثال_2.rar وسؤال بعد اذنك لو تسمح لي اخي الكريم ما فائدة تصميم جميل كالذي صممته انت بالمرفق بدون جدول ليتم تخزين البيانات فيه ؟ هل ستضطر كلما اردت ان تطبع بيانات ان تكتبها كلها من جديد ؟!!! اقترح عليك تصميم جدول بنفس البيانات الموجود في النموذج ثم تجعل الجدول مصدر بيانات النموذج وذلك حتى يتم تخزين البيانات فيه والرجوع اليها في اي وقت مجرد اقتراج لان تصميم الشهادة حقيقة اعجبني واعذرني مرة اخرى فربما يكون دافع لها لم افهمه تحياتي

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

هدية متواضعه الاصدار الاخير من برنامج تسجيل الديون ومتابعتها اهداء لكم مفتوح المصدر اوفيس 2013 تسجيل الديون ودفعها 2020.accdb

السلام عليكم ورحمه الله وبركاته اخوانى فى الله احببت ان اضع درس بسيط لا يخفى على الكثيرين منكم ولكن مشاركه منى لما اتعلمه وحتى يستفاد منه المبتدئين امثالى ممن يتعلمون فى بعض الاحيان نحتاج حقل نصى ولكن سوف نكتب به ارقام وحتى لا نقوم بحجز مساحات دون داعى على سبيل المثال حقل لارقام المحمول نجعله نصى لان حقل المحمول سيتم تخزين فيه مثلا 11 رقم وحتى يقبل 0 باول الرقم , لان الحقل الرقمى لا يقوم بذلك مثل الصوره الاولى الكود التالى IsNumeric([Tel])=صواب Or Is Null يقوم باجبار المستخدم بادخال قيم رقميه او ترك الحقل فارغ كما الصوره التاليه وبالمثال يتضح المقال ارجو ان اكون وفقت للشرح تقبلوا تحياتى وتمنياتى لكم بالتوفيق طبتم واهتديتم ex.mdb

تفضل اخي الكريم tempstr = ReplaceChar(tempstr, "ذز") ليكون هكذا Function changesearch(Mytxt) As String Dim tempstr As String tempstr = Nz(Mytxt, "") tempstr = ReplaceChar(tempstr, "أإآاء") tempstr = ReplaceChar(tempstr, "ةته") tempstr = ReplaceChar(tempstr, "ىي") tempstr = ReplaceChar(tempstr, "وؤ") tempstr = ReplaceChar(tempstr, "ذز") changesearch = tempstr End Function تحياتي

هنا بيت القصيد .. حيث املك في حاسبتي الاصدار 2003 فقط .. وهو سبب رئيس في ندرة مشاركاتي فلعل احدا من اخواننا الخبراء الأعزاء ممن لديه هذا الاصدار ان يتفضل علينا بالتعديل

مرحبا اخي @rey360 مثل ماذكرت في ردي السابق اذا الاوفيس لديك من 2003 فما دون يمكن عملها من خلال اكسس ومثل طلبك عمودية وبدون اي مجهود والطريقة سبق شرحها في العديد من المواقع اما الاصدارات من 2007 فما فوق فالطريقة اكثر تعقيد وتتطلب كتابة اكواد اكس ام ال اضافة الى ان القوائم اصبحت تجمع ما بين القوائم والادوات مع ذلك يمكن عملها بشكل عمودي ولكن بشكل مختلف قليلا عن الاصدارات السابقة وربما اجد الوقت لشرح الطريقة عن كيفية كتابة الكود وطريقة اخرى عن طريق برامج مساندة

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

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

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

استرجعت الحمدلله واین احصل علیها؟

ادخل رقم البحث في textbox1 واضغط مفتاح Entr على لوحة المفاتيح testefile.xlsm

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

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

السلام عليكم مالذي تريد عمله بالضبط المرفق به طلبك بخصوص الاختيار A_1.xlsm

هذه هي النتيجة كما يظهر بالصورة اعلاه بحيث تكون كل افادة في صفحة جرب مرر الى الصفحات التالية

وعلیكم السلام ورحمة الله کلا الحالتین.. الف شكر وتقدير... جزاك الله خيرا

في خصائص التقرير ضع منبق ومشروط

يكتب في محرر الاكواد في حدث تنسيق تفصيل التقرير تفضل كتابة الدورات بجانب بعضها لكل موظف2.rar

مرحبا عملت لك التقريرين بشكل مبدئي ويبقي عليك اضافة الحقول حسب مصدر التقرير الي انت تحدده Permit to Work.rar

فورم ادراج البيان عند تسجيلة فى الشيت بالكمبوبوكس فيديو2 بحث الفيديو

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

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة ثانياً ابسط كود يمكن استخدامه وهو عملي جداً ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (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 ثم في النموذج الرئيسي لبرنامجك ضع الكود التالي في حدث عند التحميل Call HideAccess تحياتي

اظن هذا حسب طلبك If Not IsNumeric(Tel) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo ElseIf Len(Tel) <> 11 Then MsgBox " فـضـلاً أدخـل احد عـشـر أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' Me.Tel.Undo End If ex.mdb

السلام عليكم هل هذا طلبك اخي الكريم Database1.rar Database2.rar

وعليكم السلام ورحمة الله وبركاته سأشرح لك الطريقة اخي الكريم التي يمكن من خلاله تصميم برنامج لترجمة الاسماء 1 - انشاء جدول فيه الاسماء مفردة بمعني كل اسم في حقل خاص به ونسميه مثلاً = tblName وسنضع به الحقول التالية Name1 , Name2 , Name3 , Name4 , Name5 وللترجمة سنضع به الحقول التالية Name11 , Name12 , Name13 , Name14 , Name15 2 - انشاء جدول به حقلين ( الاسم مفرد بالعربي = XName1 + الاسم مفرد بالانجليزي = XName2 ) ونسميه مثلاً = tblTranslate الفكرة وخلاصة الموضوع انشاء استعلام تحديث يبحث عن قيمة حقل Name1 في جدول tblName عما يقابلها في جدول tblTranslate في حقل XName1 ويضع النتيجة في حقل Name11 وهكذا لبقية الحقول Name2 , Name3 , Name4 , Name5 ابدأ العمل واذا احتجت مساعدة سنكون معك باذن الله تحياتي

اتفضل اخى واليك الرابط به الحل بالتوفيق مجموع كل صفحه_1.accdb

الاخ M.NHAKAMI جرب هذا الكود و انظرالمرفقات Private Sub UserForm_Activate() ' With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 100) Width = .Width Height = .Height End With ' End Sub Test_1.rar

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

أخي أمير عند تحويل قاعدة البيانات الى Accde فهي نفس تحويل اي برنامج آخر الى exe .. على العموم البرنامج الذي تبحث عنه ستجده في المرفقات لكنه غير مجدي لقواعد البيانات كبيرة الحجم DBtoEXE.zip

و عليكم السلام و رحة الله وبركاته جرب المرفق Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR Set TS = Sheets("ÊÃÎíÑ") TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 18 TS.Cells(TR, FC) = .Cells(FR, FC) Next FC TS.Cells(TR, 19) = .Name TR = TR + 1 End If Next FR End With 9 Next FSN End Sub برنامج ايجار.xlsm

ولم الاسف اخى الفاضل ان لم تكن ترى هذا الامتداد من قبل فمن حقك وانظر الى ملفات الهلف لميكروسوفت لتطمئن اخى المصدر : https://en.wikipedia.org/wiki/Microsoft_Compiled_HTML_Help Microsoft Compiled HTML Help is a Microsoft proprietary online help format, consisting of a collection of HTML pages, an index and other navigation tools. The files are compressed and deployed in a binary format with the extension .CHM, for Compiled HTML. The format is often used for software documentation. It was introduced as the successor to Microsoft WinHelp with the release of Windows 98 and is still supported in Windows 7. Although the format was designed by Microsoft, it has been successfully reverse-engineered and is now supported in many document viewer applications. الترجمه تعليمات HTML المترجمة من Microsoft هي تنسيق تعليمات عبر الإنترنت خاص بـ Microsoft ، ويتألف من مجموعة من صفحات HTML وفهرس وأدوات التنقل الأخرى. يتم ضغط الملفات ونشرها بتنسيق ثنائي بالملحق .CHM الخاص بـ HTML المترجمة. يستخدم التنسيق غالبًا لتوثيق البرامج. تم تقديمه كخليفة لـ Microsoft WinHelp مع إصدار نظام التشغيل Windows 98 ولا يزال مدعومًا في نظام التشغيل Windows 7. على الرغم من أن التنسيق تم تصميمه من قِبل Microsoft ، فقد تمت إعادة تصميمه بنجاح وتم دعمه الآن في العديد من تطبيقات عارض المستندات. ورابط للاستذاده : http://www.chmviewer.com/ تقبل تحياتى طبتم واهتديتم

تفضل لك ما طلبت مكافأة نهاية الخدمة.xlsx

فى المرات القادمة حاول استاذ تامر ان تيسر على نفسك ولا تعسر كما نصحك جميع الأساتذة تفضل لك ما طلبت طبعا بعد ضبط تنسيقات وفورمات الملف =IFERROR(MAX(0,MIN(EOMONTH(0+(1&LOOKUP("zz",$L$1:L$1)),0),INDEX($C$3:$J$3,MATCH(L$2,$C$2:$J$2,0)+1))-MAX(0+(1&LOOKUP("zz",$L$1:L$1)),INDEX($C$3:$J$3,MATCH(L$2,$C$2:$J$2,0)))+1),0) 1تاريخ تواجد الموظفين.xlsx

السلام عليكم جرب المرفق الشهر تحط رقم 1 او 2 وهكذا Ali_Tst.xlsm

السلام عليكم ورحمة الله وبركاته تم تعديل المثال من البداية وباختصار ايضاً وتم دمج كود تجاهل المسافات تم اضافة Function changesearch(Mytxt) As String Dim tempstr As String tempstr = Nz(Mytxt, "") tempstr = ReplaceChar(tempstr, "أإآاء") tempstr = ReplaceChar(tempstr, "ةته") tempstr = ReplaceChar(tempstr, "ىي") tempstr = ReplaceChar(tempstr, "وؤ") changesearch = tempstr End Function Private Function ReplaceChar(W As String, c As String) As String Dim R As Byte Dim S As String, i As String For R = 1 To Len(W) i = Mid(W, R, 1) If InStr(c, i) > 0 Then S = S & "[" & c & "]" Else S = S + i End If Next R ReplaceChar = S End Function وفي حدث عند الخروج تم اضافة Private Sub Mysearch_Exit(Cancel As Integer) Dim newsearch As String newsearch = changesearch(Me.Mysearch) M = "SELECT * FROM Customer WHERE CusName Like '*" & PartOfName(newsearch, 1) & "*" & PartOfName(newsearch, 2) & "*" & PartOfName(newsearch, 3) & "*" & PartOfName(newsearch, 4) & "*" & PartOfName(newsearch, 5) & "*" & PartOfName(newsearch, 6) & "*';" Me.CustomerFind_subform.Form.RecordSource = M Me.Mysearch.SetFocus End Sub UP-adv find test_2.rar تحياتي

وهذا افضل مثال يقوم ببحث شامل عن المتشابهات لاستاذنا الفاضل @محمد طاهر أاآإ ةته ىي ئءؤو Search.rar تحياتي

السلام عليكم جرب هذا الرابط:

https://youtu.be/vrBsuCrXFoA أرجوا ان تعجبكم هذه المشاركة

نعم وهو الملف الوسيط سيتكفل بهذه المهمة تم التعديل المطلوب ولتسهيل الأمر على مسؤول القاعدة اذا اراد مثلا اظهار الكائنات للتعديل أو الإطلاع تمت اضافة زر أمر لاظهار الكا ئنات وشريط الادوات بدل ما يقوم بألغاء كلمة السر ثم اعادة تفعيل الشفت وفتح القاعدة من جديد فقط نقرة زر كل شي يكون أمامه طبعا زر الأمر لازم يكون مخفي عن المستخدم ونقوم بإيجاد طريقة لاظهاره للمسؤول بالنسبةلي بما اني استخدم نظام صلاحيات مستخدمين أضع هذا الكود عند فتح النموذج لاظهار زر الأمر وتفعيله If MyUser.username() = "Kaser906" Then Me![cmd47].Enabled = True Me![cmd47].Visible = True End If الملف بالمرفقات ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم FreeKaser906.rar

رائع أستاذ وجيه أستاذنا الفاضل مجدي ممكن تجرب هذا الملف يعمل في بيئة ويندوز64 استخراج البيانات من الرقم القومى.xlsm

الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين ، وقال {وَوَصَّى بِهَا إِبْرَاهِيمُ بَنِيهِ وَيَعْقُوبُ يَا بَنِيَّ إِنَّ اللّهَ اصْطَفَى لَكُمُ الدِّينَ فَلاَ تَمُوتُنَّ إَلاَّ وَأَنتُم مُّسْلِمُونَ} نحمده تعالى وهو الرب الجليل ، الهادي إلى سواء السبيل ، الذي لا يخفى عليه الكثير ولا القليل ، وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جاء بالحق المبين ، فكان رحمة للعالمين ، صلى الله عليه وعلى آله واصحابه وسلم تسليماً كثيراً . طلب مني أحد الأخوة تطوير برنامج الشيكات الإصدار الأول الذي تم طرحه مسبقا علي الرابط وبحمد الله تم اضافة بعض وظائف البرنامج وشاشة تقارير حسب جهة الصرف او بين تاريخين مع الطباعة وتم تعديل الشيك حسب قرار وزارة المالية كما ورد بطلب الاخ الكريم شرح مبسط للفورم الملف بالمرفقات الشيكات الأصدار الثاني.rar

وعليكم السلام إليك الملف الأخير قائمة منسدلة 4.rar

السلام عليكم ورحمة الله أختي الكريمة إيناس، لست أدري موضع المشكل عندك ربما يكون مستوى أمان الماكرو لأن عندي الملف يعمل جيدا... المهم أعيد إرفاق الملف من جديد... وأرجو أن يعمل معك هذه المرة... أخوك بن علية الملف المرفق : قائمة بدون تكرار_2.rar