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

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

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

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

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

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

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

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

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

الحمد لله ذي الرضا المرغوب، يعفو ويصفح ويغفر الذنوب... يملي ويمهل لعل العاصي يتوب، يعطي ويرضى ويحقق المطلوب... يُطعم ويَسقي ويستر العيوب، يغني ويشفي ويكشف الكروب... نحمده تبارك وتعالى حمدًا هو للذات العليا منسوب... ونعوذ بنور وجهه الكريم من شر الوسواس الكذوب... ونسأله السلامة فيما مضى وما سوف يأتي من خطوب... اما بعد موضوعنا هذا الشهر يشغل بال الكثيرين الذين يلجؤون للاقتراض التمويلي لشراء منزل او سيارة او اقامة مشروع ما ، وما يترتب علي هذا القرض من فوائد وبدون الخوض في الناحية الشرعية سوف نتاول كيفية حساب القرض الفائدة المركبة هي إحدى طُرُق احتساب الفوائد البنكية على القروض، وحيث أن الفائدة هي مقدار الزيادة على أصل المبلغ على أساسٍ سنوي، فإن الفائدة المركبة هي تركيب للفائدة وزيادة قيمتها – وليس نسبتها – على أصل القرض في كل سنةٍ من عمر القرض. وبما أن عوائد الفوائد هي المصدر الرئيسي لإيرادات البنوك في شتى بلاد العالم؛ فإنه يتم اتِّباع طريقة الفائدة المركَّبة على القروض وليس على الودائع؛ حتى يستفيد البنك من مقدار الفرق الهائل بين ما يدفعُه من فوائد للودائع للعملاء؛ وبين ما يأخذُه على القروض من فوائد. إجمالي المبلغ النهائي مع الفوائد يساوي أصل المبلغ مضروبا ب 1+معدل الفائدة مرفوعاً لعدد الفترات الزمنية. مثال : اقترض أحد الأعضاء من بنك أوفيسنا التجاري مبلغا وقدره 1000 وحدة نقدية بفائدة سنوية 10% لثلاث سنوات. يصبح المبلغ بنهاية المدة 1000 × ( 1.10 ^3 ) = 1000 × 1.331 = 1331 وبذلك تكون الفائدة المركبة بعد 3 سنوات 331 وحدة نقدية في حال كانت الفائدة بسيطة تكون قيمتها بعد 3 سنوات 300 فقط حيث تحسب على أصل المبلغ فقط دون اعتبار الفوائد المتراكمة ولحساب قيمة القرض باستخدام الدالة PMT =PMT(a,n,p) حيث a هي قيمة الفائدة (المتراكمة) في الفترة ، في هذه الحالة هنا الشهر n هي عدد الأقساط المتساوية ، في هذه الحالة هنا 36 p هي قيمة القرض ويوجد شروحات علي المنتدي لشرح الدالة بالتفصيل وشرح القيمة الحالية للفوائد المتراكمة . تسهيلا للبعض اعددت فورم بسيط يقوم بحساب القرض والفائدة المتناقصة (( وبدون الخوض في الأحكام الشرعية المتعلقة بالقروض )) شرح الفورم .... (1920x1080) اضبط تباين الشاشة على loan_calculator2.xls loan calculatorV1-2019.xls

السلام عليكم ورحمه الله وبركاته اخوانى فى الله احببت ان اضع درس بسيط لا يخفى على الكثيرين منكم ولكن مشاركه منى لما اتعلمه وحتى يستفاد منه المبتدئين امثالى ممن يتعلمون فى بعض الاحيان نحتاج حقل نصى ولكن سوف نكتب به ارقام وحتى لا نقوم بحجز مساحات دون داعى على سبيل المثال حقل لارقام المحمول نجعله نصى لان حقل المحمول سيتم تخزين فيه مثلا 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 من خلال زر امر او في حدث عند الاغلاق للنموذج الرئيسي لاغلاق الاكسس بشكل نهائي وايضا الغاء القائمة المختصرة بزر الماوس الايمن وذلك من خصائص النموذج او من خلال خيارات قاعدة البيانات الحالية بالنسبة لي لا استخدم اخفاء الاطار وافضل استخدام كود يخفي القوائم وشريط التنقل مع بقاء خلفية اكسس الرمادية

السلام عليكم بعد اذن استاذنا الحبيب احمد زمان هذا تعديل بسيط على الكود Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR, A, Rw Set App = WorksheetFunction Set TS = Sheets("تأخير") TS.Range("A6:S500").Clear TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS On Local Error Resume Next A = App.Match(.Name, TS.Range("J:J"), 0) If Err <> 0 Then If App.CountIf(.Range("N:N"), "<0") = 0 Then GoTo 9 Rw = TS.Cells(TS.Rows.Count, "J").End(xlUp).Row + 1 TS.Rows(2).Copy TS.Range("A" & Rw) TS.Range("A3:Q5").Copy TS.Range("A" & Rw + 1).PasteSpecial xlPasteFormats TS.Range("A" & Rw + 1).PasteSpecial xlPasteValues TS.Range("J" & Rw + 1).Value = .Name Err.Clear End If TR = App.Match(.Name, TS.Range("J:J"), 0) + 3 For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 17 If Not IsNull(TS.Cells(TR, FC).Borders.Value) Then TS.Cells(TR, FC).Borders.Weight = xlThin 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 Set TS = Nothing: Set FS = Nothing: Set App = Nothing End Sub

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

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

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

السلام عليكم تفضل اخي الكريم ضع الكود في زر عند النقر DoCmd.OpenReport "اسم التقرير", acViewNormal 'لللطباعة المباشرة' DoCmd.OpenReport "اسم التقرير", acViewPreview 'معاينة قبل الطباعة' DoCmd.RunCommand acCmdPrint 'اظهار الطابعة قبل المعاينة' DoCmd.OpenReport "اسم التقرير", acViewPreview

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

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

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

الموضوع جديد جميل قوي الاخ الراشدي موسى شاهد المرفقات Test_1.rar

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة ثانياً ابسط كود يمكن استخدامه وهو عملي جداً ضع الكود التالي في وحدة نمطية جديدة 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

بسم الله الرحمن الرحيم كنا قد اشرنا سابقا الى امكانية قراء ملفات التكست اونلاين وقام الاخوة الافاضل بعمل بتطبيق ذلك بافضل الامثلة منها التحديث لقواعد البيانات والتفعيل وما الى ذلك وها انا ذا احذو بكم بعيدا قليلا عن مجال الاكسس واقدم لكم تطبيقى لقراءة الملفات اونلاين فى الواقع قمت بتنفيذ ذلك الموضوع بالاكسس مسبقا ولكن لم يروق لى الموضوع ببساطه هو مجلة نعرض بها اى موضوع يرسله لى اى عضو اذا احب ان يشارك موضوعه معنا مثلا لديك برنامج تريد عرضه على المجلة بطريقة جميلة وجذابة او شرح لك ابدعت به واستفاد منه الاخوة فقط ارسله الى المجلة وسيتم مراجعته وادراجه فى المجلة المجلة تنقسم الى تطبيقين اول تطبيق هو ( ماى اكسس ) وهو للمستخدمين ويتم عرض به الموضوعات وهو على هذا النحو اما التطبيق الثانى وهو الخاص بالتحكم بالمجلة وهو انشأته لدى على هذا النحو ومن خلاله اتلقى طلباتكم بخصوص عرض برامجكم وموضعاتكم اما عن كيفية العمل فالموضوع بسيط جدا ويمكن تنفيذه بالاكسس لانه فى الاساس مربوط بقاعدة بيانات اكسس قد يتسائل احدكم كيف تصلك طلباتكم الى هل هى استضافة ام ماذا فى الواقع كل ما استخدمه فى هذا الموضوع هو انشاء حساب على دروبوكس مجانى فقــــــــط اما طلباتكم فهى تصلنى على هيئة بريد اليكترونى تم تصميمه بكيفية معينة وتم ربط قاعدة بيانات لوحة التحكم ببالبريد هكذا وتقوم لوحة التحكم بتهيئة البريد الذى يصلنى وفلترته وانشاء المقالات يمكنك ارسال مقالك من هنا اولا اتمنى ان تستمتعو ثانيا بعد الاستمتاع بقى التجربة هههههههههه شكرا لكم الصور التى على المجلة يقوم العضو برفعها اوللا على الانترنت وادراج الرابط الخاص بها عند انشاء المقال الخاص به اى ان رابط الصورة المستخدمه لا يكون رابط محلى على جهاز المستخدم بل صورة مرفوعة على الانترنت MyAccess.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 تحياتي

آمل أن ينفعك هذا المثال test111.mdb

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

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