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

انظر هذا المثال للأخ اعتقد MAXXIN AutoConnectMultipleDBsWithPW.rar

من خصائص النموذج ---------> ازرار التنقل ----------> لا

حياك الله أخي @ازهر عبد العزيز ونفع بك وبعلمك .....

وهذه مشاركة مع ازهر ..... Database1_3.rar

ومشاركة مع الاستاذ @kanory احد روائع الاستاذ أبو يوسف الله يجزاه بالخير استخدم هذه الاكواد ف نموذج بدء التشغيل Const mypswd As String = "الرقم السري" Const bnd As String = "أسم قاعدة البيانات الخلفية .أمتداد الملف" عند فتح النموذج On Error Resume Next Dim bkend As String If Dir(CurrentProject.Path & "\" & bnd) <> "" Then bkend = CurrentProject.Path & "\" & bnd If acbRelink(Nz(bkend, ""), True, mypswd) Then DoCmd.Close End If Private Function acbRelink(strpath As String, Optional blnSilent As Boolean = True, Optional paswd As String = "") As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...") Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = _ dbAttachedTable Then tdf.Connect = "MS Access;DATABASE=" & strpath & ";" & "PWD=" & paswd & ";" tdf.RefreshLink End If Next Call SysCmd(acSysCmdClearStatus) acbRelink = True ExitHere: Call SysCmd(acSysCmdClearStatus) Exit Function HandleErrors: acbRelink = False Select Case Err.Number Case 3011 Case Else If Not blnSilent Then MsgBox Err.Description, , _ "acbRelink Error " & Err.Number End If End Select Resume ExitHere End Function ::بالتوفيق::

وضح .... كيف معاينة ؟؟؟؟

حياك الله ...... بالتوفيق

بارك الله فيك أخي د . فهد @حامل المسك برامج التي تخدم القران أو السنه أو العلماء بشكل عام يجب أن نعمل جميعا لأنجاحه ...... الله يوفقك لخدمة كتابة الكريم

السلام عليكم ورحمة الله وبركاته إلى : الأخوة الزملاء ..................... وفقكم الله أقدم لكم هدية متواضعة عبارة عن ( سند قبض وصرف ) اقتطعتهما من أحد برامجي . ولا تنسو أن تدعو لأبي بالشفاء العاجل ولجميع المسلمين ،،، السندات 2.1.rar

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

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

تفضل اخي الكريم 401.rar

حياك الله اخي انا في خدمة

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

إذا في طلب على السندات سيتم إضافة بعض التحسينات واختيار العملة يدويا .

وعليكم السلام ورحمة الله وبركاتة تفضل Private Sub itemeid_BeforeUpdate(Cancel As Integer) Dim x As Integer x = DCount("[itemeid]", "[lsd]", "[itemeid]=" & Me.itemeid & " AND [listid]=Forms![lsh]![listid]") If x > 0 Then MsgBox "تم إدخال هذا الصنف مسبقا", 48, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub ::بالتوفيق:: kaser906.accdb

نفع الله بك اخي @kanory

كيف اخليه بالجنيه المصرى

ليس هذا سؤالي لكن شكرا على البرنامج احسنت

أ @ابو عارف بارك الله فيك ونفعنا بما قدمتم عاجز عن شكرك شكر الله لك وجزاك عنا بالخير الكثير وأعتذر منك أن كنت قد اتعبتك معي

اخي محمد جربت اكثر من مرة لا يوجد اي مشكلة يمكن حدوث تلك المشكلة حين تغير صورة تكون مربع يوزر فارغة و الا يعمل حسب المطوب ولكن كاتت هناك مشكلتان 1)مع تغير اسم المستخدم كانت تدرج صورة جديدة دون حذف صورة القديمة و تم تعديل 2) اعادة صورة قديمة في نموذج بعد كبس زر حفظ بيانات ولاكن كانت تختفي بعد اعادة فتح النموذج و تم حلها ايضا و اليك المرفق المعدل: BK .accdb

جاري التجربة استاذ عبد اللطيف ما الغاية من إضافة رقم الموظف

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

الكود Option Explicit Sub del_Ranges() Dim my_Srting$: my_Srting = "D5:F35" Dim sh As Worksheet For Each sh In Sheets If sh.Name Like "موظف#*" Then sh.Range(my_Srting).ClearContents End If Next End Sub

في المعادلات التي تكتبها استعمل الفاصلة المنقوطة " ; " بدل الفاصلة العادية " , " هذا يرجع الى اعدادات الــ Office عندك يمكن تغيير هذه الاعددات اذا اردت ذلك مثلاً بدل كتابة (MATCH(A1,$F$1:$F$4,0)= اكتب (MATCH(A1;$F$1:$F$4;0)=

ابشروا بالخير .... فالحبيب لا يستطيع رد حبيبه

أشكرك أنت أخي الغالي@عبد اللطيف سلوم تعلمت منك معنى الهدية وطيب النفس والسخاء هدية مقبولة .

وهذا ايضا برنامج مجانى للعيادة برنامج العيادة الطبية.rar

السلام عليكم عذرا على الخطأ في كود الطباعة وفعلتم حسنا في تصحيحكم الطلب الثاني تم اضافة 8 فصول اخرى للكود اكتب اسم الفصل بدل النجوم فقط تم قم بالطباعة طبعا الكود لا يقوم بالطباعة في حال عدم وجود طلبة بالصف اذا كان الامر غير واضح اكتب اسماء الفصول وساضيفها لك بالكود تحياتي نسخة من طباعة_الكل.xls

أهلا بك في المنتدى-تفضل طالما انك لم تقم برفع ملف مدعوم بشرح كافى ووافى ,يمكنك رؤية هذا الفيديو https://www.youtube.com/watch?v=E2MVMaskbJs

هذه الاسطر من الكود يمكن ازالتها لانها تثقل البرنامج بدون منفعة(كانت للكود القديم) Dim Ar(4), Ar_Fasl(1 To 9) Dim t: t = Sheets(my_SHEET).Index Dim Start_row_B%: Dim Start_row_H% For i = 4 To 12 Ar_Fasl(i - 3) = CStr(But_Sheet.Cells(5, i)) Next Erase Ar: Erase Ar_Fasl

هذه تعتبر معادلة وتقرأ وترأى ما يتم إدخاله فلا يمكن تعديلها ولكن ماذا تقصد لو تم وضع درجة في عمود التحريرى فهو بالفعل يكون به درجة ؟!!!!!! لا افهمك يمكنك التوضيح أكثر على الملف ولكن عموما المعادلات لا ترى هذا

بارك الله فيك أستاذ عمر طالما انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب فعليك بمشاهدة هذه الفيديوهات فبها شرح ما تريد https://www.youtube.com/watch?v=Llkad07y4fE https://www.youtube.com/watch?v=J6GASMB1Fps وأيضا بهذا الرابط برنامج كامل لشئون الطلاب https://www.officena.net/ib/topic/78948-برنامج-شئون-الطلاب-كامل-ومفتوح-المصدر-فى-انتظار-تعليقاتكم/ وعلى هذا الرابط أيضا برنامج اخر للأستاذ محمد الدسوقى https://www.officena.net/ib/topic/78332-برنامج-شئون-الطلبه-للاستاذ-محمد-الدسوقي/?tab=comments#comment-503333

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

وعليكم السلام-تفضل 11.xlsx

تفضل https://www.officena.net/ib/topic/45082-تحويل-المعادلات-إلى-أكواد-vba/?tab=comments#comment-264202

لماذا تصعب على نفسك ؟!!!! ولما لا تضع هاتين الصفحتين فى ملف واحد بدل من ملفين ؟! عموماً تفضل لك ما طلبت Basic.xlsm Next.xlsx

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

وعليكم السلام-طالما انك لم تقم برفع ملف , فيمكنك الإستعانة بالملف الموجود على هذا الرابط وكان عليك من البداية استخدام خاصية البحث فى المنتدى قبل رفع مشاركتك ,فهناك العديد من الموضوعات التى تخص طلبك https://www.officena.net/ib/topic/92655-مشروع-صغير/?tab=comments#comment-579758

تفضل هذه البرامج-وبالتأكيد تكون بمقابل وليس مجانىة https://pioneers-solutions.com/programs-clinics-management-program وهذا اخر https://gradplatform.com/ وهذا برنامج ثالث https://www.daftra.com/برنامج-إدارة-العيادات-والمراكز-الطبية وهذا رابع https://becreativesystem.com/private-medical-clinics-management-program/ وهذا خامس https://www.pediafree.com/archives/441 وهذا سادس https://digitalcairo.com/simple_emr_arabic.aspx واخيراً http://www.theeastsoft.com/ar/?p=2348

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

المرفق به التطبيق Delete duplicate items.rar

السلام عليكم جرب هذا المرفق لقد وجدت كود من فتر واستخدمته ممكن يكون ما تريد ترحيل بقائمة منسدلة.rar

وألان نبدأ بأول الحلول الذكية أداة :: التخلص من علامات خطأ المعادلات مثل الأخطاء التالية : #DIV/0! / #N/A / #NAME? / #REF! / #NUM! / #NULL! / #VALUE! لقد تم عرض أكثر من أسلوب بالمنتدى للتخلص من هذه الأخطاء ولكن أسلوبنا هنا هو السهل الممتنع بضغطة زر واحدة يمكن التخلص من علامات الخطأ للورقة الحالية بالكامل وتعتمد الطريقة هنا على تعديل صيغة الخلية المختارة أو مجموعة الخلايا المختارة أو كل خلايا الورقة الحالية المحتوية على معادلات بأدراج أسلوب ( ISERROR ) ضمن صيغة المعادلة . وهذا كنا نقوم به يدويا لكل مجموعة خلايا بها معادلات متشابهة أو بأتسخدام دالة (IF ) أو كنا نستخدم أسلوب التنسيق الشرطي لإخفاء علامات الخطأ الظاهرة كل هذا أصبح من الماضي ألان . ألان اضغط الزر يتم تعديل جميع الصيغ على سبيل المثل إذا كانت الصيغة أو الصيغ مثل ذلك: =SUM(A1:A9) =VLOOKUP(H1;A1:F9;2;FALSE) تصبح بضغطة زر كالاتى : =IF(ISERROR(SUM(A1:A9));"";SUM(A1:A9)) =IF(ISERROR(VLOOKUP(H1;A1:F9;2;FALSE));"";VLOOKUP(H1;A1:F9;2;FALSE)) وهى تعمل مع أكثر الصيغ تعقيدا وألان كيف نعمل ذلك افتح الملف المراد التخلص من علامات خطأ المعادلات اختار الصفحة المراد تعديلها قم بتشغيل الملف الموجود بالمرفقات إذا لم يذهب بك إلى ملفك اذهب إليه اختار خلية بها صيغة معادلة أو عدة خلايا ثم اضغط (F2) لتعديلها . أو يمكن اختيار كل خلايا المحتوية على صيغ في الورقة الحالية بضغط (F1) ثم اضغط (F2) لتعديلها . أخيرا قم بحفظ الملف الخاص بك . لو تكرمت اخبرنا برأيك هل أستمر بأدراج الحلول الذكية أم لا . تحياتي لكم جميعا ملف التخلص من علامات خطأ المعادلات بالمرفقات ChangeFormulas.rar