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

لا والله ما نسيت ، ولكني انشغلت بمواضيع المنتدى ومحاولة مساعدة الباقين

او تضع هذا الكود عند اول نموذج يفتح Application.SetOption "Use Hijri Calendar", 1 وللميلادي هذا Application.SetOption "Use Hijri Calendar", 0

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

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

طريقة مميزة لقفل الشيتات عن المتطفلين باستخدام فورم دخول يحتوي على اسم المستخدم والرقم السري. login.rar

جرب استخدام الباراميترز للامر file و duration x = Shell("SoundRecorder.exe /file C:\1.wav /Duration 00:00:10 ", 4) المدة عشر ثواني والمكان c واسم الملف 1 بالتوفيق

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

بعد اذن اخي ابو عبد النور هذا الملف ريما يكون المطلوب Aziz salim.rar

تفضل : Aziz_ر002.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف ________2.rar و لا تنسونا من صالح الدعاء تحياتى

تفضل جعفر 467.Panel_Calc Value.mdb.zip

أخي كاسر تم تغيير الكود بحيث لا يقرا اليوم ، وانما رقم اليوم في الكود ، فعليه ، المفروض ان يعمل البرنامج الان على جميع الاجهزة ، وهذا هو الكود المُعدل: Private Sub cmd1_Click() 'التاكد ان الحقول المطلوبة تم اختيارها في النموذج If Len(Me.StarteDate & "") = 0 Then MsgBox "رجاء ادخال تاريخ البداية" Me.StarteDate.SetFocus Exit Sub ElseIf Len(Me.EndDate & "") = 0 Then MsgBox "رجاء ادخال تاريخ النهاية" Me.EndDate.SetFocus Exit Sub ElseIf (Len(Me.iSunday & "") = 0 Or Me.iSunday = 0) And _ (Len(Me.iMonday & "") = 0 Or Me.iMonday = 0) And _ (Len(Me.iTuesday & "") = 0 Or Me.iTuesday = 0) And _ (Len(Me.iWednesday & "") = 0 Or Me.iWednesday = 0) And _ (Len(Me.iThursday & "") = 0 Or Me.iThursday = 0) Then MsgBox "رجاء الاختيار من ايام التدريب" Exit Sub End If Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From Tbl_2") 'عدد الايام بين يومي البداية والنهاية How_Many_Days = UmDateDiff("d", Me.StarteDate, Me.EndDate) For i = 1 To How_Many_Days Next_Date = UmDateAdd("d", i, Me.StarteDate) 'التاريخ الهجري التالي Next_Day2 = UmWeekDayName(UmWeekday(Next_Date)) 'اليوم التالي Next_Day = UmWeekday(Next_Date) 'اليوم التالي بالرقم 'Debug.Print Next_Day & "-" & Next_Day2 'MsgBox Next_Date & " " & Next_Day add_Day = "" 'اذا تم اختيار اليم في النموذج ، ما هو اليوم If Me.iSunday = -1 And Next_Day = 1 Then add_Day = "الاحد" '"Sunday" ElseIf Me.iMonday = -1 And Next_Day = 2 Then add_Day = "الاثنين" '"Monday" ElseIf Me.iTuesday = -1 And Next_Day = 3 Then add_Day = "الثلاثاء" '"Tuesday" ElseIf Me.iWednesday = -1 And Next_Day = 4 Then add_Day = "الاربعاء" '"Wednesday" ElseIf Me.iThursday = -1 And Next_Day = 5 Then add_Day = "الخميس" '"Thursday" End If 'لدينا تاريخ يجب ادخاله If add_Day <> "" Then 'ولكن هل تم ادخال هذا التاريخ سابقا لهذا PCDigit rst.FindFirst "[PcDigit]=" & Me.PcDigit & " And [TDate] ='" & Next_Date & "'" If rst.NoMatch Then 'غير موجود rst.AddNew rst!TDate = Next_Date: rst!TDay = add_Day: rst!PcDigit = Me.PcDigit: rst!auto_id = Me.auto_id rst.Update Else 'موجود MsgBox "الموظف رقم " & Me.PcDigit & vbCrLf & _ "يوجد لديه تدريب سابق يوم " & add_Day & vbCrLf & _ "بتاريخ " & Next_Date & vbCrLf & vbCrLf & _ "هذا التاريخ لم يتم ادخاله مرة اخرى" End If End If Next i rst.Close: Set rst = Nothing End Sub جعفر 471.tdate.mdb.zip

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

ارفق القاعدة على اى موقع من مواقع الرفع مثل ميديافير او فور شيرد

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

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

السلام عليكم الكود لا يوضع في موديل بل يوضع في الحدث Workbook_Open

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

جرب هذا الكود لانه ليس لديا أوفيس 2003 لتجربته Private Sub Workbook_Open() If Application.Version > "11" Then MsgBox "هذا الرنامج لا يعمل إلا على النسخة 2003", vbInformation + vbOKOnly, "خطأ" Application.DisplayAlerts = False With ThisWorkbook .Saved = True .Close End With End If End Sub

::: نعم يمكن ذلك بعد اذن الاخ عبد الرحمن بواسطة كود يوضع تحت حدث النقر المزدوج للاسم وهو :: Dim r r = Me.name DoCmd.OpenForm "formname", , , "[name]='" & r & "'" ::: حيث formname هو اسم النموذج الذي يريد ان يفتح لنفس اسم الشخص .... بالتوفيق

جرب هذا الملف ترحيل وبحث بالفلترة salim.rar

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

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

أضف السطر التالي على الكود Range("G5:G1000").NumberFormat = "@" وهذا الكود تبعك ومضاف عليه السطر Range("F5:G1000").Select ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Add Key:=Range("G5:G1000") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers '---- Range("G5:G1000").NumberFormat = "@" '---- With ActiveWorkbook.Worksheets("Groups").Sort .SetRange Range("F5:G1000") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ' تحياتي

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

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

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

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

احسنت جزاك الله خيرا وهذا هو الملف للتطبيق عليه ( كما سبق وطلبت ) نموذج حسابات.rar

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

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

جزيت خيرا اخي الغالي ابو البراء على الشرح الوافي تقبل تحياتي

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

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

اسم البرنامج : Employs رقم الاصدار : 3.1.0 اسم المبرمج : almaistro وصف البرنامج : البرنامج عبارة عن قاعدة بيانات للموظفين يسجل فيها كل بيانات الموظف كما تشاهد بالصورة المرفقة ايضا تستطيع عمل نسخ احتياطى للبيانات (اختيارى) تستطيع ايضا وضع شاشة دخول للبرنامج (إجبارى) تستطيع حفظ واسترجاع قاعدة البيانات (اختيارى) تستطيع حفظ صورة لكل موظف مع تشفير الصورة ووضعها بملف خارجى تستطيع طباعة كشف المرتبات لكل فرع (جديد) تستطيع تسجيل الحضور والانصراف لكل موظف(جديد) تستطيع إستعراض حضور موظف خلال فترة مع حساب اجرة الاضافى(جديد) واشياء اخرى اكتشفها بنفسك ،،، كلمة المرور للبرنامج :arafa صورة للبرنامج انتظرو ادائما جديد البرنامج Employs v3.1.0.rar

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

السلام عليكم بعد اذن الاخوة الافاضل كود مختصر للانتقال الى اى صفحة فى الملف Sub kandeel() Sheets("الصفحة الرئيسية").Select End Sub

عمل رائع أخي عبد الله زادك الله علما على علم

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

السلام عليكم اخي agent_007 اليك ماطلبت اود ان اكون وفقت في المعني باللغة الانجليزيه Last_Add_Remove__English.rar