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

انظر المرفق ...... ‫‫‫الموظفين-kan.rar

جرب وبالتوفيق text.mdb

انظر الصور مع تعديل العبارة select الموجودة في الصورة باسم الحقل الموجود في جدولك والذي يحوي حقل نعم/لا تابع الصور .....

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

اذا كانت لا توجد يمكن اختراعها Function Salim_First_Letter(st As String) Dim i% Dim my_text$: my_text = Left(st, 1) Dim arr: arr = Split(st) For i = 1 To UBound(arr) my_text = my_text & " " & Left(arr(i), 1) Next Salim_First_Letter = my_text End Function First_Letters.xlsm

أخي أحمد هناك دالة في الاكسل لهذا الغرض ولا لزوم لل Vlookup (Rept(text,number_times تكفي هذا المعادلة =REPT("*",A2)

@ام ناصر مشاركة مع اخي وحبيبي @ابو ياسين المشولي ضعي هذا الكود خلف الزر Set rs1 = CurrentDb.OpenRecordset("information") If rs1.RecordCount = 0 Then Exit Sub rs1.MoveFirst Do While Not rs1.EOF Set rs2 = CurrentDb.OpenRecordset("select * from skills where id=" & rs1(0)) If rs2.RecordCount = 0 Then DoCmd.RunSQL "update information set skills=null where id=" & rs1(0): GoTo 10 rs2.MoveFirst Do While Not rs2.EOF xt = xt & rs2(1) & "," rs2.MoveNext Loop DoCmd.RunSQL "update information set skills='" & xt & "' where id=" & rs1(0) xt = "" 10: rs1.MoveNext Loop بالتوفيق

تفضل .... Database4 (2).accdb

انظر المرفق ..... Database4 (2).accdb

حتّى لا يضيع الــ Commend Button أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه فأنه يتبعك اينما ذهبت بواسطة هذا الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim col%: col = Target.Columns.Count Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col) Application.EnableEvents = False With Me.Shapes.Range(Array("SALIM_BTN")) .Left = lastcel.Left + lastcel.Columns.Width + 5 .Top = lastcel.Top .Width = 130 .Height = 28 End With Application.EnableEvents = True End Sub جرب هذا الملف Floting_Btn.xlsm

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

تفضل ..... ولاحظ الجدول kan ...... ومربع النص الجديد في النموذج ‫‫‫الموظفين-kan2.accdb

ا / سليم انتا حضرتك بجد رائع و داله عمرى ما سمعت عنها

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

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

ممتاز استاذ سليم بارك الله فيك عمل ممتاز

انت تدرج الوقت بشكل خاطىء في الخلايا (حيث اكسل لا يمكنه التعرف عليه) لذلك قمت بعمل هذا النموذج فيه شرح لكيفية ادراج الوقت والمعادلات اللازمة مع حرية اختيار وقت العمل (من الى) وتغيير المكافأة الى الرقم الذي تريد ليس فقط 15 دقيقة المعادلات محمية لعدم العبث بها عن طريق الخطأ /عسى ان ينال الاعجاب Time_calculation.xlsx

@kanory عاشت ايدك استاذ ولكن احتاج الى التعديل لنفس مريع الاختيار داخل التقرير النهائي يعني عندما اطبع التقرير يجب ان يكون المربع كبير وليس صغير Database4.accdb

حاول استبدال الفاصلة المنقوطة بفاصلة عادية لتبدو المعادلة هكذا =if(B1<>"",counta($B$1:B1),"")

انظر المرفق .... Database4.accdb

المعادلة في المرفق... مثال.xlsx

وعليكم السلام ورحمة الله وبركاته تفضل أخي الكريم

شوف الاستعلامات اللي كنت عاملهم لك هنا: http://www.officena.net/ib/topic/64965-الرصيد-بشرطين-اسم-المحل-اسم-العميل/?do=findComment&comment=423098 جعفر

وعليكم السلام الحل بالصور : جعفر 257.1.مشكلة الطباعه واخراج التقارير1.accdb.zip

ومشاركة لأخي رمهان ، اليك الرابط التالي في شرحي لفرز التقرير: http://www.officena.net/ib/topic/63319-التسلسل-التصاعدي-لحقل-في-تقرير-اكسيس/#comment-411276 جعفر

اخيينا ابو جمانه على فكرة واحنا بنجاوب بنتعلم منك محاسبيا ! ظهر لي انك علمي محاسبيا وباتقان ماشاء الله ! ونرجع لسؤالك ياباشا : قبل كل شي انت كيف تفتح التقرير ؟ من النافذة مباشرة والا حيكون عن طريق زر على نفس النموذج اللي بتفرز منه وبتفلتر منه ؟ او من مكان اخر ونرجو ذكر هذا المكان ! بالتوفيق

جرب المرفق لعله يفي بالغرض H-تقسيم الشهر.rar

أشكر الجميع على الردود المشاركات الرائعة - جزاكم الله خيراً :yes: :yes: :yes:

الشكر واصل لك اخي الحبيب والغالي / حماده عمر ولاخي احمد وقنديل

مرورك الكريم استاذنا الفاضل / عبدالله باقشير يثري اي موضوع ويقدم الجديد دائما

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

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