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

جرب هذا الملف يمكنك استبدال الاحرف الاتكليزية بالعربية و ما تريد مقابلها Sum_by_letters.xlsx

اتفضل استخدم هذا Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) If Me.الكود = 5 Then Me.Devirse.Visible = False Me.Label40.Visible = False End If End Sub Database1 (2).rar

مشكور وجزاك الله كل خير

السلام عليكم من تبويب Create Query Wizard Simple Query Wiazed بعد أن ينتهي بناء الاستعلام أنشئ حقلاً محسوباً ضع فيه المعادلة التي ترغب بها . و لكي تنشئ حقلاً محسوباً في الاستعلام بعد أن ينتهي المعالج من عمل الاستعلام سيظهر بصورة جدول في الشريط السفلي ستجد عدة إيقونات إحداها على شكل مثلث اضغط عليها و في أحد الأعمدة الفارعة اكتب معادلتك ثم اجعل الاستعلام مصدر النموذج و مصدر الحقل المحسوب في النموذج هو الحقل المحسوب الجديد في الاستعلام

وعليكم السلام 🙂 تفضل جعفر

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

حسب فهمي لطلبك حضرتك تريد تعرف عدد سجلات غائب او اجازة ... الخ اتفضل بعد البحث استخدم هذا Dim db As Database Dim rs As Recordset Dim rc As Long Dim StrShrit As String Dim D, K, S, G Set db = CurrentDb Set rs = Form_EmployeeMovemSub_F.RecordsetClone Form_EmployeeMovemSub_F.SetFocus rs.MoveLast: rs.MoveFirst rc = rs.RecordCount For I = 1 To rc StrShrit = rs!Status If StrShrit = "دوام كامل" Or StrShrit = "دوام جزئي" Then D = D + 1 ElseIf StrShrit = "غائب" Then K = K + 1 ElseIf StrShrit = "أستئذان" Then S = S + 1 ElseIf StrShrit = "أجازة" Then G = G + 1 End If rs.MoveNext Next I Form_EmployeeMovemSub_F.SumD = D Form_EmployeeMovemSub_F.SumG = G Form_EmployeeMovemSub_F.SumK = K Form_EmployeeMovemSub_F.SumS = S rs.Close Set rs = Nothing Employee 12 .rar

بعد اذن استاذنا عماد وذلك بكتابة السطر الأول داخل الخلية ثم الضغط على Alt+Enter وكتابة السطر الثانى جزاك الله كل خير

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

تحياتي اخي العزيز معلومات قيمة وقد شجعتني للدخول فيها بإذن الله .. تحياتي لك وشكرا جزيلاً

وعليكم السلام 🙂 . 1. غائب<> StatusTybe ، الظاهر اني قلبتها 🙂 5. مجموع دقائق التأخر ، من المشاركة السابقة ، 2. تحويل دقائق التأخر الى دقائق:ساعات:يوم 1. =Sum(IIf([StatusTybe]<>3,1,0)) 2. =Minutes2DHM([SumTimeDelay],DateDiff("h",[Forms]![EmployeeMovement_F]![OutTimE],[Forms]![EmployeeMovement_F]![InTimE])) اي ننادي الوحدة النمطية Minutes2DHM ونرسل لها مجموع الدقائق SumTimeDelay والتي نريد تحويلها الى دقائق:ساعات:يوم وكذلك نرسل عدد ساعات الدوام كل يوم وللتوضيح، مناداة الوحدة النمطية، حسب الارقام الحمراء لكل حقل في الصورة =Minutes2DHM(5,DateDiff("h",4,3)) . والوحدة النمطية: Public Function Minutes2DHM(minutes As Long, Working_hrs As Long) As String Dim dd As Long, hh As Integer, mm As Integer, Working_Mints As Long minutes = Abs(minutes) Working_hrs = Abs(Working_hrs) Working_Mints = Working_hrs * 60 dd = minutes \ Working_Mints minutes = minutes - dd * Working_Mints hh = minutes \ 60 mm = minutes Mod 60 Minutes2DHM = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") End Function . وطبعا ممكن تطبيق هذا على بقية الحقول 🙂 جعفر 990.Employee 04 .accdb.zip

السلام عليكم ارجو ان يكون هذا هوه المطلوب .. مع تمنياتي لك بالتوفيق Aziz 1.rar

اتفضل انا مش فاهم شئ من النموذج بصراحة لذلك قمت باعداد نموذج اخر ووضع الاكواد حسب فهمى اتمنى PROGRMS 2.rar

جزاك الله كل خير ... لكل كتاب كاتب ولكل مبتكر رائع ... عقل وفكر جم وأنت من هؤلاء البشر حفظك الله .... شكرا جزيلا

ممتاز ورائع .. شكر الله وبارك لك فيما رزقك وغفر لك ورحم من رباك ..

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

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

وعليكم السلام 🙂 ممكن نعمل بحث في النموذج الفرعي ، بالطريقة اللي اخبرتك عنها ، ولما نحصل على النتيجة ، نوقف المؤشر على الحقل اللي فيه المعلومه ، وتكون كلمات البحث مُختاره في هذا الحقل 🙂 ولكن ، هل هذا اللي تريده؟ جعفر

السلام عليكم عليك بإزالة الحقل المحسوب فالحقل المحسوب أحد الميزات الخاصة بـ ٢٠١٠ و ما بعد التي ستمنع القاعدة من أن تفتح بإصدارات سابقة أو تحول إلى تلك الإصدارات . قم بعمل استعلام و اجعله مصدر البيانات و أنشئ فيه حقلاً محسوباً مماثلاً لما هو في الجدول .

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

أخي الكريم محمد سلامة بإمكانك اختصار الموضوع والاعتماد على كود تفعيل البرنامج بدل عمل نسختين لا أجد مايمنعك من عمل ذلك فأنت قادر على فعلها نظراً لخبرتك الطويلة في هذا المجال بالنسبة للغة الـ php فهي لغة سهلة بحد ذاتها ولا ابالغ ان قلت انها اسهل من الأكسس بكثير حيث انك تتعامل مع دوال جاهزة محددة الوظائف كما انك تتعامل مع عبارات الـ sql التي نستعملها بكثرة في الأكسس ومنها insert و update و select و delete لانك بالتأكيد ستعمل على تخزين بياناتك في جداول التي هي طبعاً mysql database .. لكن هنالك امر مهم وهو ان لغة الـ php خاصة بالسيرفرات اي بمعنى انك تعمل على برنامج يستطيع الاشخاص الدخول اليه من اي مكان بالعالم او على شبكة داخلية يدخلون اليه من اي جهاز مربوط على الشبكة او كلاهما من الانترنت والشبكة الداخلية لذلك في الغالب ستجد نفسك في حاجة الى لغات اخرى مكملة للـ php مثل الجافا سكربت والاجاكس و html و css لاتخاف فإنك لن تستعملها كلها الا في حالات معينة كما ان اكثرها متوفر في الانترنت وجاهز للإستخدام .. لقد عملت برنامج احترافي في فترة قصير وهو لجهة حكومية ومربوط على الانترنت وعلى شبكة داخلية ايضاً وهو بالطبع امر مطلوب بكثرة في الاسواق الفرق الجوهري الذي يجب اخذه بعين الاعتبار بين الأكسس والـ php هو ان الاكسس من خلاله تصمم برنامج يعمل على جهاز واحد في الغالب واي مستخدم اخر يريد العمل على نفس البرنامج يجب عليه تثبيت نسخة من البرنامج على جهازه لكن الـ php من خلاله تصمم برنامج يتم وضعه في جهاز واحد حيث يدخل عليه المستخدمين من اي مكان من خلال المتصفح فقط . اخي محمد فهمت وجهة نظرك الان لكننا في الحقيقة عندما نبيع البرنامج لجهة ما فإننا بالعادة نعطيها حقوق البرنامج كاملة وليست لمدة سنة لان تحديد المدة يندرج تحت بند الفترة التجريبية عادةً .. صحيح هنالك برامج مثل الكاسبر وغيرها تنتهج مبدأ شراء الحقوق لمدة سنة او ستة أشهر لكني لم اعمل على هذه الفكرة من قبل لكن بالطبع يمكن اضافة التاريخ الى المعادلة ايضاً لكن ماذا لو قام المستخدم بإرجاع التاريخ الى السنة السابقة التي اشترى فيها التفعيل واستخدم نفس كود التفعيل؟؟ طبعا المعادلة سوف تقرأ الرقم السري للمستخدم + اسم المعالج + سنة التفعيل وتولد كود نسميه رمز التسجيل والذي من خلاله يعمل الكراك لدينا على توليد كود التفعيل للعميل .. بما ان العميل لديه كود التفعيل للسنة الماضية فيمكنه ارجاع تاريخ الجهاز واستخدام نفس الكود .. واذا ادخلنا اليوم والشهر ايضاً في المعادلة فلن يتغير شيء مادام العميل يستطيع ارجاع تاريخ الجهاز الى نفس اليوم والشهر للعام السابق ايضاً.

هتدوس كليك يمين وبعدين edit hyperlink هتظهرلك شاشة هتلاقى فوق على اليمين حاجة اسمها screen tip دوس عليها واكتب الكلمة اللى عاوزها الطريقة اللى فوق فى حاجة وجود hyperlink ودا اجابة سؤالك أما فى حالة عدم وجود hyperlink ممكن تعمل التالى :- فى حالة عدم وجود hyperlink هتدوس كليك يمين وتختار insert comment هيظهرلك مربع اكتب فيه اللى عاوزه وعند المرور بالماوس هيظهرلك الكومنت

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

وهذه فكرة أخرى بالاضافة لمرفق أساذنا أبو جودى FindAsUType-update.rar

شكرا لك استاذنا وانشاء الله في ميزان حسناتك

عن طريق دالة sumif أو ارفع ملف وقول عاوز فى ايه .. لأن كدا معتمدين على التخمين .. ومش هتلاقى اجابة لسؤالك

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

السلام عليكم ورحمة الله ضع هذا الكود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 4 Then Exit Sub Dim C As Range, CList As Range Dim Msg As String Set CList = Range("C4:C" & Range("A" & Rows.Count).End(xlUp).Row) For Each C In CList If C.Value = "حلب" Then Msg = MsgBox("هل تريد الاستمرار ؟", vbYesNo) If Msg = vbYes Then Exit Sub Else C.ClearContents End If End If Next End Sub

اهلا بك اخى الكريم فى المنتدى تفضل 1.xlsx

والسلام عليكم ورحمة الله وبركاته انا فتحت الموضوع جديد و ان شاء الله ساشرح خطوة خطوة وهذا رابطه لكن لان ليس لدي وقت كثير سيكون على عدد اجزاء اي كل مرة ساشرح بعض حتى نخلصه وهذا هو الرابط الشرح https://www.officena.net/ib/topic/86855-شرح-كيفية-حماية-القاعدة-البيانات-بواسطة-رقم-هارد-مع-المعالج-و-اختيار-مدة-التفعيل/