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

السلام عليكم من تجربتي ، وبسبب اختلاف اعدادات الوندوز ولغاته ، توصلت لعمل جدول خاص للاشهر tbl_Months ، ممكن اعدادات الوندوز تظهر الشهر بصيغة December ، او ديسمبر ، او كانون الاول . . ولكنك تريد ان يظهر عندك الشهر بأحد هذه الصيغ ، بغض النظر نظام اي كمبيوتر يعمل عليه برنامجك ، فيمكنك قراءة الطريقة التي تريدها من الجدول ، كما هو واضح في المثال . وهذا الكود كمثال فقط ، عن طريقة مناداة الحقول من الجدول: Private Sub myDate_AfterUpdate() 'display the dates based on the system setting Me.Date_1_System = Format(Me.myDate, "dddd dd/mm/yyyy") Me.Date_2_System = Format(Me.myDate, "dddd dd, mmm yyyy") Me.Day_System = Format(Me.myDate, "dddd") Me.Month_System = Format(Me.myDate, "mmmm") ' 'use the following Functions to get the integer number of: 'Today= 22 December 2017 'Day(Today) = 22 'Weekday(Today) = 6 'Friday 'Month(Today) = 12 'December 'Year(Today) = 2017 ' Me.Day_table_Arabic = DLookup("[Days_Arabic]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Day_table_English = DLookup("[Days_English]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Month_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = Day(Me.myDate) & " " & Me.Date_Table_Georgian & " " & Year(Me.myDate) Me.Date_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Iraqi = Day(Me.myDate) & " " & Me.Date_Table_Iraqi & " " & Year(Me.myDate) Me.Date_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_English = Day(Me.myDate) & " " & Me.Date_Table_English & " " & Year(Me.myDate) End Sub وبعدها توسعت في الجدول واستفدت منه لأشياء اخرى جعفر tbl_Months.mdb.zip

لأن اسم الموضوع كان لا علاقة له بمضمون الموضوع ، فقمت بتعديله ، ودوختك

لا يوجد داعي لفتح موضوع جديد ، رجاء تكملة الموضوع هنا جعفر

اخي الشربيني ، هل جربت المرفق؟ جعفر

تم تعديل على مسميات الحقول والمربعات النصية للنموذج De versement وتم اضافة كود عند الدخول انت اعمل تعديلات لاسماء وليبلات نماذج اخرى Database1.rar

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

السلام عليكم ورحمة الله وبركاته عملت على برنامج طباعة الهويات / الباجات ، وحبيت ان اشارككم تجربتي المؤسسة تملك جهاز طباعة الهويات / الباجات من نوع Fargo DTC550 ، وتم العمل على اكسس 2010 (ويمكن عمل هذه الخطوات على الاكسس 2003 ايضا). المعلومات المطلوبة للهوية: واجهة الهوية: الصورة ، الاسم ، القسم ، الوظيفة ، تاريخ الاصدار ، تاريخ الانتهاء ، رقم الموظف ، بالإضافة الى شعار المؤسسة وتوقيع المسؤول (الشعار والتوقيع فيهما اجزاء شفافه) ، وتوضع على جزء/طرف الصورة ، خلفية الهوية: باركود (بطريقة عمودية وليس افقية) يحمل رقم الموظف ، وصورة خلفية. على ان تطبع الهوية بالوضع الافقي ، وتُغلف (Lamination) كذلك. خطوات العمل: 1. عمل جدول يحتوي على البيانات اعلاه ، 2. عمل نموذج لإدخال بيانات الموظف ، واختيار صورته ، 3. لعمل التقرير (طباعة الهوية) ، يجب ان نعرف خصائص الطابعة ومقاسات الهوية ، 4. التقرير عبارة عن طبقتين ، حيث البيانات والصورة في الطبقة السفلى ، ويأتي شعار المؤسسة وتوقيع المسؤول في الطبقة الاعلى ، الصعوبات التي واجهتها: أ. إبراز الاجزاء الشفافة من الشعار والتوقيع ، بحيث نستطيع رؤية صورة الموظف خلفها ، ب. عمل الباركود ، والمطلوب ان يكون بطريقة عمودية وليس افقية (تصميم الهوية هكذا) ، ج. عمل مقاسات التقرير ، د. طباعة الهوية على الطابعة ، وجعل الصورة واضحة ، هـ. العمل على التقرير من جهاز لا يحتوي على برنامج الطابعة. طرق التغلب على الصعوبات: أ. شفافية الصور: مع انه المفترض ان يقبل الاكسس 2010 فما فوق ، الصور التي بأجزائها شفافية ، ولكن للأسف هناك خلل في الاكسس ، مما جعل التعامل مع الشفافية يتطلب جهدا اضافيا !! ولعمل الشفافية ، هناك العديد من الطرق ، ولكني وجدت افضل نتيجة عندما استخدمت الطريقة الموضحة هنا ، وللمثال سنستخدم صورة عملتها ، ونقوم بالتالي: نفتح الصورة في برنامج الصور مثل فوتوشوب photoshop ، ثم نختار الخلفية التي نريد ازالتها ، وهنا نريد ازالة الخلفية البيضاء . الخلفية البيضاء تم اختيارها . نعكس الاختيار ، حتى نختار الالوان الاخرى في الصورة (المناطق الغير شفافة) ، ثم نعمل نسخ Ctrl+c . نفتح صورة جديدة ، خلفيتها شفافة ، ونلاحظ ان الفوتوشوب اعطانا الصورة بنفس مقاييس الصورة التي نسخناها في الذاكرة . وهكذا تبدو الصورة بالخلفية الشفافة . لعمل الشفافية ، يجب ان نختار صيغ معينة من الصور والتي بإمكانها الاحتفاظ بالشفافية ، مثل Gif او png . هذه الاعدادات مهمة ، لأنها هي التي تحفظ شفافية الخلفية ، ونلاحظ اننا سنحفظ الصورة بصيغة Gif . ثم نفتح برنامج المايكروسوفت وورد ، ونفتح الصورة فيه ، ثم نضغط على الصورة ، وبزر الفأرة اليمين نعمل نسخ (هذه العملية هي التي ستجعل الاكسس يقبل شفافية الصورة) . نأتي للتقرير في الاكسس ، وبالفأرة اليمين ، نلصق الصورة (قد تحصل على رسائل خطأ ، ولكن واصل العمل) . الصورة في التقرير بعد اللصق ، ونلاحظ ان الصورة غير شفافة ، كما ان اعدادات الصورة لم تجعل خلفية الصورة شفافة (لاحظ السهم) . وعندما غيرنا اعدادات خلفية الصورة الى شفاف ، نرى ان الجزء الشفاف من الصور اصبح ظاهرا ، ونستطيع رؤية الصورة الخلفية من خلال المنطقة الشفافة . هذا معاينة للتقرير ، ونرى فيه الشفافية بوضوح . وهذه الصورة ذو الاجزاء الشفافة على الصورة الخلفية . ب. عمل الباركود: هناك العديد من المبرمجين يستعملون اداة ActiveX للباركود ، هذه الاداة محتاجة الى ملف dll او ocx والذي يجب وضعه في احد مجلدات الوندوز ، ثم تسجيل هذه الاداة في الوندوز. ولكن هناك العديد من المشاكل في هذه الاداة ، او في مكان حفظها (نظام 32بت يختلف عن 64 بت) ، او في تسجيلها او حتى في رقم اصدارها. كما ويجب ان تعمل جميع هذه الخطوات لكل كمبيوتر/مستخدم. لهذا السبب اتجهت للنظر الى طريقة اخرى. الطريقة البديلة والتي استعملتها ، هي التعامل مع الباركود كنوع من انواع خطوط الوندوز (Font) ، ولإستعمالها في الاكسس ، نستعمل حقل نص عادي ونختار له خط الباركود. وهناك الكثير من هذه الخطوط ، بمختلف انواع الباركود ، وانا اخترت استعمال code39 او (code 3 of 9) او (the 3 of 9 code) والذي يقبل الحروف والارقام ، ولم اقم بمقارنة او تجربة خطوط من انواع اخرى من الباركود. مبدئيا بدأت بإستعمال احد الخطوط ، ثم اتضح لي بأن ذلك الخط لا يستطيع ان يكتب الباركود اذا جعلت حقل النص عموديا!! وبعد بحث وتجارب ، استقر رأيي على الخط (code 3 de 9) والذي يمكن تنزيله بالمجان من هنا https://grandzebu.net/informatique/codbar/code39.ttf . وطريقة استعماله ، هي ادخال الرقم الوظيفي (حقل رقم او نص) في النموذج يكون مثلا 123456 ، وعندما نريد ان نرى الباركود ، فنستعمل حقل نص في النموذج او التقرير ، ونختار الخط اعلاه (انظر 4#) ، وحجم الخط 28 او اكبر (حسب تجربتي) ، ثم في اعدادات هذا الحقل ، في مصدر بياناته نكتب (Employee_ID هو حقل الرقم الوظيفي) : ="*" & [Employee_ID] & "*" 7. بإستخدام طريقتي اعلاه ، اتضح ان جهاز الباركود يقرأ 3 ارقام فأكثر (يعني يقرأ الارقام من 100 فما فوق) ، لهذا السبب ، ولتخطي هذه المشكلة ، نستخدم الكود التالي (و الشكر لحسن ناجح الذي اقترح هذه الطريقة 🙂 ) ، والذي يحول الارقام الاقل من 3 ، بإضافة اصفار قبلها (يعني 5 يصبح 005 وهكذا) : 'since the Barcode reader cannot read less than 3 digits, 'so lets add zeros before it, so that it becomes 3 digits long, 'but then, for the reading field, it must be INT If Len(Me.Emp_ID) < 3 Then Me.Barcode = "*" & Format([Employee_ID], "000") & "*" Else Me.Barcode = "*" & [Employee_ID] & "*" End If ** ولكن في وقت قراءة الباركود ، يجب ان تتم القراءة في حقل رقم ، مما سيلغي الاصفار تلقائيا ج. عمل مقاسات التقرير: لمعرفة ارتفاع وعرض التقرير ، وحجم حقول النص والخطوط المستعملة ، كان لازم علينا معرفة هذه التفاصيل من الطابعة ، يمكنك انزال برنامج تعريف الطابعة لتحديد مقاس الهوية من هنا https://www.hidglobal.com/sites/default/files/drivers/DTC550 Drv 3004.exe ) ومن حساب طول وعرض البطاقة 85.4 mm 53.7 x ، اتضح لنا ان اسم هذا الحجم هو CR-80 ، وعند اختيار الحجم الصحيح من الطابعة ، نحصل على المسافات/الهوامش التي تحتاجها الطابعة ، والتي يجب ان نستقطعها من طول وعرض التقرير ، وبهذا نحصل على الاطوال الحقيقة المتوفرة لطباعة الهوية ، هذه مواصفات الطابعة . وهذه اعدادات الطابعة . . وعليه ، استطعنا معرفة الاطوال الحقيقة المتوفرة لنا في التقرير ، بعد استقطاع هوامش الطابعة: . د. طباعة الهوية على الطابعة ، وجعل الصورة واضحة: عادة لما نعاين تقرير فيه صورة ، فاننا نرى ان الصورة غير واضحة ، ولكن لما تتم عملية الطباعة على الورق ، نرى ان صورة اصبحت واضحة ، ولكن للأسف الشديد فإن الصورة عند طباعتها من تقرير الاكسس الى طابعة الهويات ، فإن الصورة لا تكون واضحة وتكون نوعا ما ، مثل صورة معاينة التقرير!! ولكن عند طباعة الهوية من برنامج الرسومات مثل فوتوشوب Photoshop ، فإن الصورة تكون واضحة ، فهذا معناه ان الاكسس بحاجة وسيط بين التقرير والطباعة!! وبعد البحث اخبرني احد اصحابي "شكرا اخي محمد نادر" والذي كان قد قام بطباعة الهويات قبلي بعدة اشهر ، ان افضل طريقة للطباعة على هذه الطابعة هي ان تطبع التقرير بصيغة xps ، ثم تفتح الصورة بواسطة xps viewer ، وتطبع الهوية من هناك ، وموقع مايكروسوف يُؤكد تفوق نوعية صور xps هذا https://msdn.microsoft.com/en-us/library/windows/hardware/dn641615(v=vs.85).aspx ، وتصبح الصورة هكذا وعليه ، تم استخدام هذا الامر لطباعة الهويات: Badge_Output = Application.CurrentProject.Path & "\Badges.xps" DoCmd.OutputTo acOutputReport, "rpt_Badges", acFormatXPS, Badge_Output, True, , , acExportQualityPrint هذا الكود يُنشئ ملف صورة بصيغة xps حسب المسار في الكود ، ويقوم بفتح هذه الصورة (هذا معناة True في الامر) بالبرنامج الافتراضي لها ، وهو xps viewer ، ثم تستطيع ان تطبع الصورة على الطابعة وتحصل على الهوية ، طبعا نكون قد عملنا اعدادت الطابعة لكي تطبع من جانبي الهوية ، وتعمل التغليف Lamination (شريط شفاف) من الجانبين ، الطباعة من الجانبين . والتغليف Lamination هـ. العمل على التقرير من جهاز لا يحتوي على برنامج الطابعة: احد المشاكل التي صادفتني هي العمل على التقرير من لابتوب/كمبيوتر غير متصل بالطابعة ، لأنه معروف ان تقرير الاكسس يأخذ هوامشه من اعدادات الطابعة ، فعليه تتغير هوامش التقرير بتغير الطابعة ، مما يؤدي الى الاخلال بهوامش الطابعة المستعمله في التقرير!! هوامش طابعة الهويات صغيرة جدا ، لهذا ، فالطابعات العادية لن تفيد لأن هوامشها على اساس A4 مثلا وكبيرة ، ولا تحتوي على حجم الهوية CR-80 هذا جعلني ابحث عن طابعة إفتراضية (virtual printer) والتي يجب ان تحتوي على حجم CR-80 ، وقد وجدت طابعة تطبع التقارير الى صور jpg او bmp و صور بصيغ اخرى https://code-industry.net/imageprinterpro/ واشتريها ، وقبل تنصيبها اتضح اني استطيع استعمال طابعة (Microsoft XPS Document Writer) والمتوفرة على الكمبيوتر مجانا واعداداتها تحتوي على حجم الورق المطلوب ---------------------------------------------------------------------------------------------- وتوضيح اكثر وهذه ملاحظات اضافية لها علاقة بالموضوع بطريقة غير مباشرة: . وهنا قاعدة بيانات يمكن انزالها ---------------------------------------------------------------------------------------------- اضافة في 28-7-2019: اعدادات الطابعة اعلاه تكون لطياعة هويات افقية ، من الجانبين ، وبالتغليف. ولكن ، بالاضافة الى طباعة الهويات اعلاه ، صارت هناك حاجة الى عمل هويات عمودية ، من جانب واحد وبدون تغليف. وطبعا بإمكاننا ان نتبع الخطوات اعلاه ، وقبل طباعة الهوية ، ندخل في اعدادات الطابعة ونغير في الاعدادات ، ونطبع ، ولكن هذه الطريقة غير عملية لطباعة مئات الهويات!! عليه ، الطريقة اللي اتبعناها لحل هذا الموضوع هو ، اعادة تنصيب الطابعة من جديد (يعني الطابعة تم تنصيبها سابقا ، بالاعدادات اعلاه ،والآن نقوم بتنصيبها مرة اخرى) وبدون استخدام CD التنصيب ، لأن بيانات الطابعة تكون موجودة في الكمبيوتر ، ونعطي الطابعة اسم جديد واعدادات اخرى. وعند طباعة الهوية العمودية ، في التقرير ، نقوم بوضع اسم الطابعة الاخرى ، او مؤقتا نقوم بجعل الطابعة الاخرى "طابعة افتراضية" ، وبعد الانتهاء من طباعة الهويات ، نقوم بتغيير الطابعة الافتراضية مرة اخرى 🙂 ---------------------------------------------------------------------------------------------- اضافة في 26-06-2024: اعدادات التقرير للطباعة على الطابعة اعلاه. جعفر المرفق يحتوي على الخط code39.ttf ، و على ملف بصيغة mdb به الصورة اعلاه ، وبه مثال لإستعمال خط الباركود للارقام والحروف img_Frame.zip

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

جعله الله بميزان حسناتك استاذنا ابو ياسين ان شاء الله يكون طلبه

جرب هذا وقول شو المطلوب بعده الان هذا طلبك الاول حسابات قيد مزدوج.rar

وعليكم السلام تفضل Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text2.Visible = True Me.text2.SetFocus Me.text1.Visible = False End Sub Private Sub text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text1.Visible = True Me.text1.SetFocus Me.text2.Visible = False End Sub جعفر

تفضل عملت لك اسم المسابقة بطريقتين ، فاختار اللي يناسبك . . جعفر 815.مثال.accdb.zip

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

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

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

الحمدلله انك قدرت تخلص العمل

السلام عليكم في موضوعك السابق . انا قلت: . فإذا كان برنامجك بصيغة accde او mde ، فالاكسس يحتفظ بالكود بصورة لا يمكننا رؤيته ، ولو ان السيد جمال له حديث في هذا الموضوع . اما اذا كان برنامجك بصيغة accdb او accdr او mdb ، فنعم يمكن فك كلمة السر والدخول في الكود ، ولكن ، عن طريق محترف قاصد ان يدخل في الكود بأية طريقة ، وانا لست منهم جعفر

وعليكم السلام أخوي علي تفضل هذا الرابط ، ردا على سؤالك جعفر

مشكور على المجهود الرائع

السلام عليكم بعد البحث ، اتضح ان هذه طريقة يستخدمها بعض المحاسبين والتي تسمى 30/360 ضع الكود في وحدة نمطية: Public Function Set_30(Date1 As Date, Date2 As Date) As Integer ' ' The basic 30/360 calculation ' From ' https://sqlsunday.com/2014/08/17/30-360-day-count-convention/ ' 360*(@y2-@y1) + 30*(@m2-@m1) + (@d2-@d1) ' ' converted to VBA by jjafferr on 20/12/2017 ' Dim D1 As Integer Dim D2 As Integer Dim M1 As Integer Dim M2 As Integer Dim Y1 As Integer Dim Y2 As Integer D1 = DatePart("d", Date1) D2 = DatePart("d", Date2) M1 = DatePart("m", Date1) M2 = DatePart("m", Date2) Y1 = DatePart("yyyy", Date1) Y2 = DatePart("yyyy", Date2) Set_30 = 360 * (Y2 - Y1) + 30 * (M2 - M1) + (D2 - D1) End Function . ثم في الاستعلام ، ننادي الوحدة النمطية هكذا: Number_of_Days: Set_30([Start date],[End Date]) جعفر

رجاء تكون واضح اكثر ، فما معنى لم يقبل؟ بعد عمل مقارنه سريعة بين الصورة في مشاركتك الاولى ومشاركتك الاخيرة ، في عندك قوس ناقص في نهاية جملة iif ، انا قلت اخذ المعادلة بالكامل جعفر

كنت اعتقد انك تريد حل المشكلة الظاهر انك فهمت قصدي غلط ، فخليني اشرحه: المعادلة الجديدة هي: = NZ ( aaaa ;0) aaaa بدل اكتب المعادلة كلها ، بإستثاء علامة اليساوي يعني بدل aaaa ضع معادلتك مال iif بالكامل جعفر

=NZ(IIF([account_type]="debit"............................................... [debit]) ; 0)

وعليكم السلام جرب = NZ ( iif( .... );0) جعفر

وعليكم السلام تفضل ، السر في الاستعلام ، . في النموذج اختار من الحقل الذي تريد (وحتى يمكن ترك الحقل الآخر فارغ ، حتى يعطيك جميع الاختيارات فيه) . جعفر 812.الموظف.accdb.zip

اخواني الأعضاء الأساتذة الأحباء في المنتدى خلال بحثي عن دود الادخال الى أوراق الأشهر وجدتو ان تسمحو لي ان اقدم لكم كودان لانشاء أوراق العمل بأسماء الأشهر واحد للغة الانكلزيه والأخر ععمل حسب لغة الحاسوب المستخدم ارجو ان يستفيد الاخوة منه وتقبلو تحياتي اللغة الانكلزية Sub DoMonths() Dim J As Integer Dim K As Integer Dim sMo(12) As String sMo(1) = "January" sMo(2) = "February" sMo(3) = "March" sMo(4) = "April" sMo(5) = "May" sMo(6) = "June" sMo(7) = "July" sMo(8) = "August" sMo(9) = "September" sMo(10) = "October" sMo(11) = "November" sMo(12) = "December" For J = 1 To 12 If J <= Sheets.Count Then If Left(Sheets(J).Name, 5) = "Sheet" Then Sheets(J).Name = sMo(J) Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = sMo(J) End If Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = sMo(J) End If Next J For J = 1 To 12 If Sheets(J).Name <> sMo(J) Then For K = J + 1 To Sheets.Count If Sheets(K).Name = sMo(J) Then Sheets(K).Move Before:=Sheets(J) End If Next K End If Next J Sheets(1).Activate End Sub مختلف اللغات Sub DoMonths() Dim J As Integer Dim K As Integer For J = 1 To 12 If J <= Sheets.Count Then If Left(Sheets(J).Name, 5) = "Sheet" Then Sheets(J).Name = MonthName(J) Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = MonthName(J) End If Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = MonthName(J) End If Next J For J = 1 To 12 If Sheets(J).Name <> MonthName(J) Then For K = J + 1 To Sheets.Count If Sheets(K).Name = MonthName(J) Then Sheets(K).Move Before:=Sheets(J) End If Next K End If Next J Sheets(1).Activate End Sub الملفات مرفقة اوراق الاشهر بلغة الانكليزية.rar اوراق الاشهر بلغة جهازك.rar

جرب هذا حسابات قيد مزدوج.rar

يوجد في الملف شيتين بنفس الاسم (وهذه هي الحيلة التي وضعتها) شيت1 فيه بياناتك وشيت1 خالي من البيانات جرب أن تغير اسم أحد الشيتات ولاحظ النتيجة

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

آ خر يوم يعمل فيه الملف هو 14/12/2017 تستطيع تغييره من داخل الكود تفضل DataBase1.rar

لهذه الفقرة انت تحتاج هذا Private Sub كود_الصنف_AfterUpdate() Me.اسم_الصنف = Me.كود_الصنف.Column(1) End Sub وبدل حقل خليت المربع الاجمالي في اسفل النموذج الفرعي واضفت مربع نص اخر في نموذج رئيسي و مصدره صار مربع المجموع في نموذج الفرعي =[بيع اصناف نموذج فرعي].[Form]![MySum] سنستخدم دالة DSum مع الشروط لكي نعرف حساب اجمال لكل عميل لكن هناك نحن نحتاج جدول اخر لتسديد الديون و تاريخ الدفع وهذا خليت لك لكي تعمله انت واذا احتاجت شيء نحن هنا Database2.zip

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

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

السلام عليكم أقدم لكم باقة منوعة من أفضل مواقع تعليم اللغة الإنجليزية بمستوياتها المختلفة مع بعض المواقع لعلوم أخرى مختلفة ، تحتوي مواقع اللغة الإنجليزية على شرح لقواعد اللغة بالكامل مع تمارين لتحديد مستوى الدارس - أيضا تعليم أسس نطق الكلمات ، والتعليم عن طريق الإستماع الصوتي و قراءة النصوص لتطوير مهرات الإستماع و التحدث مع الغير ،، بعض المواقع يشمل مقطوعات و نصوص تقرأ باللهجة الإنجليزية و الأمريكية لهواة تعلم اللهجات . أخيرا ،، نتمنى لكم التوفيق و الإستفادة من هذه المواد إنشاءالله و نسألكم نشرها و إرسالها لكل المتواجدين على إيميلكم الشخصي أو المهني لكي تعم الفائدة و الأجر للجميع إنشاء الله ،، و لا تنسونا بدعائكم .. والسلام عليكم ( إضغط على الرابط لفتح الموقع مباشرة أو قم بنسخه و إلصاقه بمتصفح الإنترنت الخاص بك لتتمكن من عرضة ) http://www.thelinguist.com/en/en/library/ <--- Audio & it's text passages http://www.dailygrammar.com/archive.shtml <---- Fully explained english gram plus exercises <--- Explained grammar - Audio & text passages - American idioms - Movie audio & scripts and other lessons.http://www.ompersonal.com.ar <--- Audio & text passages for all levels.http://www.alburaq.net/dictionary1/transform.cfm <----online translator <--- Free online English lessons & ESL / EFL resources ( Please check )http://www.languageguide.org/eng/ <---- learn English names from A to Z ( excellent for new learners & travellers ) http://www.voanews.com <--- Voice of america news - collection of news passages scripts with it's audio service to enhance your listening & speaking skills ( Very adviced ) http://www.almaktba.com <----- Good resource for different books & categories http://www.paulnoll.com/Books/Clear-Englis...-idioms-01.html <----- Learn american idioms http://www.english-grammar-lessons.com/ <-- Gram lessonshttp://a4esl.org/q/f/ <--- Online English grammar exams for all levels ( test yourself ) http://www.anglickynazivo.szm.sk/ <---- More than 50 different english websites with different teaching toolshttp://www.mp3quran.net/eng/ <--- Holy quran library http://www.eslmania.com/ <---- English lessons for Intermediate & advanced levels.http://www.better-english.com/exerciselist.html <-- advanced Business English Exercises http://www.dicts.info/2/english-arabic.php?e=mc2 <-- online dictionary from English to arabic & vice versa.http://www.freelearn.110mb.com/index.html <--- Learn Computer basic features plus other relevant applications - all lessons & courses are explained in arabic ( Hilghly recommended ) http://www.listen-to-english.com/ <--- listen to passages & read it's scripts http://quranexplorer.com/quran/ http://www.moon15.com/vb/archive/index.php/t-38702.html <-- <--- all abbreviations & codes for keyboard usage http://www.aouforum.org/forum/showthread.php?t=47963 <---- قائمة بافضل وابرز مواقع تعليم اللغة

اثراء للموضوع هذا الكود Sub InsertSheet() Dim arr() arr = Array("كانون الثّاني", "شباط", "آذار", "نيسان", "أيّـار", "حزيران", "تـمّوز", "آب", "أيلول", "تشرين الأوّل", "تشرين الثّاني", "كانون الأوّل") For i = 0 To UBound(arr) On Error Resume Next If Len(Sheets(arr(i)).Name) = 0 Then Sheets.Add.Name = arr(i) End If Next End Sub

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