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

السلام عليكم لعل إخوتي في منتدى الإكسيل يشتغلون به عن الأحداث التي جرى تسجيلها في منتديات أخرى كالمنتدى الاجتماعي وهذا ليس نابعاً من قلة اكتراث - حاشى وكلا - ولكن الحياة مشاغل أوجه عنايتكم إلى واجب تعزية أخينا ياسر فتحي البنا بوفاة ابنته داعين لها أن يجعلها الله فرطاً وذخراً لوالديها ولكم الأجر والثواب إن شاء الله تعالى فعن النبي صلى الله عليهوسلم أنه قال: (( مَثَلُ المؤمنين في تَوَادِّهم وتراحُمهم وتعاطُفهم: مثلُ الجسد، إِذا اشتكى منه عضو: تَدَاعَى له سائرُ الجسد بالسَّهَرِ والحُمِّى )) [أخرجه البخاري ومسلم عن النعمان بن بشير] والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله تم بمعية عمود إضافي في الملف المرفق... بن علية معادلة لحساب عدد كل جنسية مع اهمال التكرار من خلال استخدام Student ID.rar

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: فقد بلغني نبأ وفاة ابنة أخينا الحبيب ياسر فتحي البنا ...وبما أننا نؤمن بالقضاء والقدر خيره وشره وأن (كل نفس ذائقة الموت) و (كل من عليها فان) نتوجه إلى أخينا ياسر بأحر التعازي ونقول له : " اللهم اجعلها ذخرا لوالديها وفرطا وأجرا وشفيعا مجابا، اللهم ثقل بها موازينهم، أو أعظم بها أجورهم، أو ألحقها بصالح سلف المؤمنين واجعلها في كفالة إبراهيم وقها برحمتك عذاب الجحيم". ونذكره بأن كلّ حي مصيره الموت فلا يبقى ولا يدوم إلا وجه الله تعالى الحي القيوم ..فلتصبر ولتحتسب ولتشد أزر أسرتك الكريمة ولتخفف عنهم فأنت نحسبك على خير والله حسيبك - وانظر إلى رؤيا الرسول صلى الله عليه وسلم: " في حديث طويل في رؤيا رآها النبي -صلى الله عليه وسلم- قال: ورأيت رجلا من أمتي خف ميزانه فجاءه أفراطه فثقلوا ميزانه فلذلك يقال: اللهم ثقل به موازينهما، وأعظم به أجورهما، وألحقه بصالح سلف المؤمنين، واجعله في كفالة إبراهيم في حديث الرؤيا حديث سمرة أنه -صلى الله عليه وسلم- قال: ثم أتينا على رجل طويل تحت ظل شجرة وحوله أولاد كثير وفسره أنه إبراهيم وأن الذين حوله أولاد المسلمين، يعني أطفالهم الذين ماتوا صغارا، فهكذا يدعى لهذا الطفل. نعم. ولكم في رسول الله أسوة حسنة...توفي معظم أولاده حال حياته وبشر فاطمة بأنها تلحق به ...فتأسّ بسيد الخلق صلى الله عليه وسلم. إنّا لله وإنا إليه راجعون والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين.

أخي الكريم سامح جرب الكود التالي Sub LoopThroughClosedWBs() Dim WBK As Workbook Dim FolderPath As String Dim FileName As String Dim Counter As Double Dim Sh As Worksheet 'ضع المصنف الذي يحتوي الكود في نفس مسار الملفات المراد العمل عليها FolderPath = ThisWorkbook.Path & "\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" If FileName <> ThisWorkbook.Name Then Application.Calculation = xlManual Set WBK = Workbooks.Open(FolderPath & FileName) With WBK.Sheets("Sheet1") .Range("E1").Formula = "=SUM(A1:B1)" End With Application.Calculation = xlAutomatic WBK.Close SaveChanges:=True End If FileName = Dir() Loop Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Finished ...", 64 End Sub في السطر قبل حفظ وإغلاق المصنف يتم وضع السطر التالي Application.Calculation = xlAutomatic تقبل تحياتي

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

اخى م/ياسر فتحى إنا لله وإنا إليه راجعون لله ماأخذ وله ماأعطى،وكل شئ عنده بأجل مسمى فلتصبر ولتحتسب

إنا لله وإنا إليه راجعون , لله ما أخذ وله ما أعطى ، وكل شئ عنده بأجل مسمى فلتصبر ولتحتسب أخى الفاضل ياسر فتحى البنا

السلام عليكم أخي الحبيب ياسر أبو أسيل: نصيحة أخ أكبر منك أن لا تغوص كثيراً في الفلسفة لأن الفلسفة هي علم الكلام إليك بعض الأبيات تبين فضل علم الحساب ووجوب طلبه وذمّ علم الكلام"الفلسفة": وعليك بالفقه المبين شرعنا ... وفرائض الميراث والقرآن علم الحساب وعلم شرع محمد ... علمان مطلوبان متبعان لولا الفرائض ضاع ميراث الورى ... وجرى خصام الولد والشيبان لولا الحساب وضربه وكسوره ... لم ينقسم سهم ولا سهمان لا تلتمس علم الكلام فإنه ... يدعو إلى التعطيل والهيمان لا يصحب البدعي إلا مثله ... تحت الدخان تأجج النيران علم الكلام وعلم شرع محمد ... يتغايران وليس يشتبهان اخذوا الكلام عن الفلاسفة الألى ... جحدوا الشرائع غرة وأمان حملوا الأمور على قياس عقولهم ... فتبلدوا كتبلد الحيران من سقراط هذا أمام كلام الله وسنة نبيه؟! ...فإن كان في قوله حكمة فالإسلام كله حكمة :(ومن يؤتَ الحكمة فقد أوتي خيراً كثيراً)... أرجو أن لا تؤاخذني بما كتبت فأنت أخ حبيب وصديق مقرّب لكنني أرى أن كلمة الحق يجب أن تقال والسلام عليكم.

البقاء لله إنا لله وإنا إليه راجعون \

بعض روائع ماكتب عن العقل والتفاعل البشرى التى ممكن الاستفادة منها فى حياتنا الأسرية والعملية والاجتماعية منها : 1-لا يوجد شيء يستطيع اضطرابك سوى أفكارك أنت .وأنت لديك القوة على رفض كل الأفكار التى داخلك 2-تكوين نماذج العادة فى عقلك بتكرارها فكرا وعملا 3-إذا كان لديك رغبة حقيقية للتخلص من أى عادة مدمرة ..فإنك قد شفيت بالفعل 4-إذا أردت الحكمة بقدر ما أردت الهواء -¬عندما كنت غارقا فى الماء -فإنك ستحصل عليها (سقراط) 5-إن الحياة لاتعاقبك ..أنت تفعل ذلك لنفسك بأفكارك السلبية 6-الحب والتسامح,هو ان تتمنى للآخرين السعادة والسرور والسلام,حتى لو لم تكن تحبهم أو تتعاون معهم 7-إذا كنت تتحبب للحيوان . فلن تهاجمك أبدا فما بالك بالإنسان 8-إن ما تحكم به على الآخرين يحكمون به عليك 9-إنك لا تستطيع أن تشترى السعادة بكل أموال العالم ..إن مملكة السعادة موجودة فى فكرك ومشاعرك 10-إن قوة الخيال المدعم تحقق معجزات عقلك الباطن ..لذا تخيل أقصى رغبة لديك وأنها تحققت ..ستحصل على النتائج التى تصبو إليها 11-عندما يكون عقلك مسترخيا وأنت تقبل فكرة ,فإن عقلك البطن يعمل على تنفيذ الفكرة 12-العقل الباطن قادر على السيطرة الكاملة على وظائف وأحاسيس وأحوال الجسد بالكامل 13-إن العقل هو الذي يجعلك سليما أو مريضا أو تعيسا أو سعيدا أو غنيا أو فقيرا 14-ارفع من قدر نفسك بالحديث إليها ايجابيا 15-إن الشخص الذي يبالغ في التمسك بآرائه لا يجد من يتفق معه 16-من لم يفشل لن ينجح

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

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

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

انا لله وانا اليه راجعون ولا حول ولا قوة الايالله اللهم اجعل الفقيدة شفيعا لوالديها يوم القيامة الهم صبر والديها وكل محبيها واربط على قلوبهم يا ارحم الراحمين اللهم عوض والدى الفقيدة عنها خير عاجلا لا آجلا يارب العالمين

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

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

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

السلام عليكم أخي أبوعبدالرحمن هذا حل آخر بكود أسرع إلى آخر صف في الأكسل جرب المرفق تعديل على معادلة وكود 2.rar

أخي الكريم ماجد ماجد أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل لا داعي للعناوين البراقة (التحدي وخلافه) ، فكلنا هنا نسعى للتعلم بجد وليس من باب التحدي .. وإذا كان الباب هو التحدي فمن الأجدر أن يكون لديك حل للمسألة .. كأن تكتب في العنوان لغز أو خلافه ، أما التحدي في موضوع تطلب فيه مسألة معينة فغير مقبول (على الأقل بالنسبة لي) عموماً حتى لا ندخل في نقاشات لا جدوى منها .. إليك الجزء الأول من طلبك ضع الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_Open() Recalc End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) EndTime End Sub وضع الكود التالي في موديول جديد Dim SchedRecalc As Date Sub Recalc() Range("A1").Value = Format(Time, "hh:mm:ss AM/PM") Call StartTime End Sub Sub StartTime() SchedRecalc = Now + TimeValue("00:00:01") Application.OnTime SchedRecalc, "Recalc" End Sub Sub EndTime() On Error Resume Next Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False End Sub إليك الملف المرفق فيه تطبيق الكود ** ملحوظة هامة : قمت بتنفيذ الجزء الأول مع عدم اقتناعي بفكر تحديث الوقت كل ثانية لأن ذلك سيكون إرهاق على الملف نظراً لأن التحديث سيكون كل ثانية .. أعتقد يمكن تنفيذ الجزء الثاني بدون تحديث الوقت في الخلية A1 ... ولكن تم تنفيذ الجزء الأول من باب التحدي تقبل تحياتي Update Timer Every Second In Cell YasserKhalil.rar *********************************** بعدما اطلعت على الجزء الثاني من طلبك فقد اتضح لي أنه يمكن التعديل على الكود السابق بسهولة ليؤدي الغرض ويقوم بعملية الترحيل كل ثانية كما طلبت قم بتعديل الكود Sub Recalc() Range("A2").Value = Format(Time, "hh:mm:ss AM/PM") Range("C" & Cells(Rows.Count, "C").End(xlUp).Row + 1).Value = Range("B2").Value Call StartTime End Sub وإليك الملف المرفق الثاني بعد التعديل تقبل تحياتي Update Timer Every Second In Cell YasserKhalil V2.rar

برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar

من المواضيع المتجددة والمفيدة في الحياة العملية وخاصة لأصحاب العقارات، وقد تم طرحه سابقاً، وهي كيفية معرفة العقود التي قاربت على الانتهاء خلال 30 يوماً من خلال الفورم.. تحيـــــــــــــــــــــــاتي القلبيــــــــــــــــــــــة تذكير بتاريخ الانتهاء.rar

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

اتفضل بعد توسيع المدى بالتوفيق اخى 20.rar

أحبائى فى الله أحبائى الكرام محمد ابو صهيب أحمد الفلاحجى الصـقر زيزو العجوز ياسر العربى رجب جاويش جلال الجمال_ابو أدهم صلاح المصرى سعد عابد لا أرى كلام يعبر عن مدى سعادتى بشعورى أننى بين إخوتى أدام الله بيننا الأخوة والمحبة ولا أراكم الله مكروه فى عزيز لديكم عظم الله أجركم وأشكركم جميعا على مشاعركم النبيلة ودعائكم الطيب إن لله وإن إليه راجعون قدر الله وما شاء فعل

نعم ولكنها تكتب بتلك الطريقة Is Null وهذا رابط من موقع مايكروسوفت يوضح امثله للمعاير بانواعها https://support.office.com/ar-sa/article/%D8%A3%D9%85%D8%AB%D9%84%D8%A9-%D9%84%D9%85%D8%B9%D8%A7%D9%8A%D9%8A%D8%B1-%D8%A7%D9%84%D8%A7%D8%B3%D8%AA%D8%B9%D9%84%D8%A7%D9%85-3197228c-8684-4552-ac03-aba746fb29d8

فكرة جميله يعني Null = غير موجود في الاكسس ؟

الحمد لله سبحانه وتعالى الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل الحمد لله الذى تتم بنعمته الصالحات احبكم فى الله ☺

اجعل مصدر التقرير هو استعلام واكتب هذا المعيار فى حقل الاسم Not Is Null وده مثال كده حضرتهولك على السريع Not Is Null.rar

اجرب نفسي فى التطبيق وارد على حضرتك كل الشكر والتقدير استاذ karrar sabry

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

أخي الكريم أبو عبد الرحمن في ورقة البحث قم بوضع الكود التالي .. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("J3:J" & Rows.Count)) Is Nothing Then Application.EnableEvents = False If IsError(Application.Match(Target.Value, Sheet1.Columns(1), 0)) Then Range("B3").Value = "" Else Range("B3").Value = Target.Value End If If IsError(Application.Match(Target.Value, Sheet2.Columns(1), 0)) Then Range("E3").Value = "" Else Range("E3").Value = Target.Value End If If IsError(Application.Match(Target.Value, Sheet3.Columns(1), 0)) Then Range("H3").Value = "" Else Range("H3").Value = Target.Value End If Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim myVAL As String, LR As Long, NR As Long, ws As Worksheet If Target.Cells.Count > 1 Then Exit Sub If Target.Address = "$K$2" Then Application.EnableEvents = False Application.ScreenUpdating = False Range("J3:K" & Rows.Count).ClearContents NR = 3 myVAL = Target.Value For Each ws In Sheets(Array("الأسماء المرسلة", "أخطاء القاعدة", "أخطاء البطاقة")) With ws .AutoFilterMode = False .Rows(1).AutoFilter 2, "*" & myVAL & "*" LR = .Range("A" & .Rows.Count).End(xlUp).Row If LR > 1 Then .Range("A2:B" & LR).SpecialCells(xlVisible).Copy Range("J" & NR).PasteSpecial xlPasteValues NR = Range("J" & Rows.Count).End(xlUp).Row + 1 End If .AutoFilterMode = False End With Next ws Target.Activate Application.CutCopyMode = False Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub أفضل أن تنسخ البيانات من ملفك إلى الملف الذي سأقوم بإرفاقه إن شاء الله لكي يعمل الكود بشكل صحيح .. بعدها قم بتنسيق المصنف كما يحلو لك ، وأعتذر عن أنني اقوم بالتنسيق بأسلوبي فهذا يريحني ويجعلني أستطيع التعامل مع الملف بشكل أوضح وإليك الملف المرفق تقبل تحياتي Search Process In Specific Multiple Sheets For Specific String YasserKhalil.rar

البقاء لله إنا لله وإنا إليه راجعون

جزاك الله خيرا ابويوسف على إبلاغنا بحالة الوفاه اللهم ارحم امواتنا واموات المسلمين اجمعين برحمتك ياارحم الرحمين

السلام عليكم رحمة الله عليها إلى جنان الخلد

تفضل A = IIf([N38] = 0, 0, IIf([N38] <= 41.667, [N38] * 1.2, IIf([N38] <= 50, 50, [N38]))) B = IIf(TOTAL = 0, 0, IIf(TOTAL <= 499.999, TOTAL + 50, IIf(TOTAL >= 500, IIf(TOTAL <= 1818.1818, TOTAL * 1.1, IIf(TOTAL >= 1818.1818, IIf(TOTAL <= 2000, 2000, TOTAL)))))) + O39 + O38 C = IIf(TOTAL = 0, 0, IIf(TOTAL <= 499.999, "B.D. 50.000 Mobilization premuim calculated", IIf(TOTAL >= 500, IIf(TOTAL <= 1818.1818, "10% Mobilization premuim calculated", IIf(TOTAL >= 1818.1818, IIf(TOTAL <= 2000, "Mobilization premuim adjusted with total", "no mobilization premuim calculated")))))) جعفر

شكرا احسنت استاذي

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

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

نعم جربتها وأعددت لك مثال لتجربه تختار فيه طريقة عرض الأرقام جرب المرفق ووافني بالنتيجة Test Number Ar-En 2003.rar

اتفضل هذا تطبيقى على نقل التركيز ويتم نقل التركيز من نموذج فرعى الى نموذج رئيسى ثم الى نموذج فرعى ثانى ثم الى النموذج الفرعى الاول نقل التركيز.rar

حياك الله اخ هادي لا حظ التغيير في جميع الجداول ولا حظ التغيير في العلاقات لاحظ التغيير في حدث عند التحميل للتقرير rep1 بالتوفيق trackingNew.rar

أخي الكريم أقترح طرح موضوع جديد بطلبك حتى تجد استجابة اسرع من إخوانك تقبل تحياتي

وعليكم السلام اعطيك طريقتين: مطوّله بعدة اسطر لسهولة فهمها : If (RET * Rate) <= 500 Then If J15 > 0 Then A = N15 * L15 * 0.35 * 0.3 Else A = 0 End If Else If J15 > 0 Then A = N15 * L15 * 0.35 * 0.25 Else A = 0 End If End If بسطر واحد: A = IIf(RET * Rate <= 500, IIf(J15 > 0, N15 * L15 * 0.35 * 0.3, 0), IIf(J15 > 0, N15 * L15 * 0.35 * 0.25, 0)) جعفر

وعليكم السلام أخوي ابو خليل الله ان شاء الله يشغلك بالخير دوم ما عملتها بتنسيق ، وانما بإستعلام ، وبطريقتين: F: كود في الاستعلام مباشرة ، ولكنك تعرف ان الكود يتلخبط بسبب الكلمات العربية ، FF: بوحدة نمطية . والنتائج: . والوحدة النمطية: Function flip_Numbers(T) If InStr(T, "-") > 0 Then flip_Numbers = Mid(T, InStr(T, "-") + 2) & " - " & Mid(T, 1, InStr(T, "-") - 2) Else flip_Numbers = T End If End Function جعفر 321.db2.mdb.zip

شكرا جزيلا على هذا الإطراء ماشاء الله عليك نفخت ونفخت فيني ، والآن اصبحت زي البالونه المهم ، هل عملت معاك الطريقة؟ جعفر

جزاك الله خيرا يا ابو البراء جميله يامحى بالتوفيق ارتحت ياعربى جالك ابو البراء اهو يامعلم ههههههههههههه بالتوفيق

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

أستاذ انت حضرتك متأكد انك وضعت هذا الكود في حدث عند فتح النموذج Private Sub Form_Open(Cancel As Integer) Dim SF As Control With MyUser If .GetAbility(Me.Name, OpenForm) Then Me.AllowAdditions = .GetAbility(Me.Name, Add) Me.AllowEdits = .GetAbility(Me.Name, Edit) Me.AllowDeletions = .GetAbility(Me.Name, Del) For Each SF In Me.Controls If SF.ControlType = acSubform Then SF.Form.AllowEdits = Me.AllowEdits SF.Form.AllowDeletions = Me.AllowDeletions End If Next txtx = .UserName Else MsgBox " عفواً" & .UserName & " " & vbCr & vbCr & "ليست لديك الصلاحية لإضافة عميل جديد", 0 + 16 + 1572864, "نظام المواعيد" Cancel = True End If End With End Sub

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

اخي عندما تستخدم اختصار ctrl + h او ctrl + f لعملية البحث ستظهر لك ضمن الشاشة خيارات وستجد ان البحث على مستوى الورقه غيره حضرتك الى اوراق العمل