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

السلام عليكم ورحمة الله وبركاته احذف إشارة اكبر Case Is = dtEnd

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في حدث الحالي للنموذج: Dim dtBgn Dim dtEnd dtBgn = DateSerial(Year(Date), 4, 1) dtEnd = DateSerial(Year(Date), 3, 31) Select Case Date Case Is >= dtEnd acc_year = Year(Date) & "/" & Year(Date) + 1 Case Else acc_year = Year(Date) & "/" & Year(Date) - 1 End Select Acc_YearN.accdb

السلام عليكم ورحمة اله تعالى وبركاته أما بعد .. استكمالاً لمشاركتي في الموضوع السابق اضع بين ايديكم البرنامج + ملف توليد السيريال .. واعتذر على التأخير ملاحظة : جميع البيانات في الجدول يمكن تشفيرها كلاً حسب طريقته لذلك تركتها بدون تشفير لكي تتضح طريقة عمل البرنامج اتمنى ان ينال اعجابكم تحياتي count-sec.mdb registration_key.mdb

السلام عليكم و رحمة الله اجعل الكود هكذا Private Sub TextBox1_Change() Dim LastRow As Long LastRow = Range("B1000").End(xlUp).Row If ActiveSheet.TextBox1.Text <> "" Then Range("$A$2:$C$" & LastRow).AutoFilter field:=1, Criteria1:=TextBox1.Value End If End Sub

ممتاز دالة رائعة جعله الله فى ميزان حسناتك

شاهد المرفق الكود Function RESULTA(rng As Range) As String Application.Volatile Dim c As Integer Dim r As Integer Dim str As String Dim subj As String c = rng.Column r = rng.Row subj = Cells(2, c - 3).Text str = "راسب في مادة " & subj & " " If Cells(r, c) = "غ" Then str = str & "بسبب غيابه في العملي و" If Cells(r, c + 1) = "غ" Then str = str & "بسبب غيابه في التحريري و" If Cells(r, c) < Cells(9, c) Then str = str & "لعدم حصوله علي ربع الدرجة في العملي و" If Cells(r, c + 1) < Cells(9, c + 1) Then str = str & "لعدم حصوله علي ربع الدرجة في التحريري و" If Cells(r, c + 2) < Cells(9, c + 2) Then str = str & "لعدم حصوله علي ربع الدرجة في الكلية و" str = Left(str, Len(str) - 2) If Len(str) < 20 Then str = "ناجح" RESULTA = str End Function المصنف1.xlsm

بنسبه لي مقدر افيدك ننتظر الاخوان ممكن احد يفيدك

تفضل كل الحكاية تقدر تنشا مستخدمين براحتك وكل رساله راح تروح للشخص المرسله له الرساله Messages.rar AMINN مستخدم رقم 1 مستخدم رقم 2 كلهم الباسورد 1

استاذنا الحبيب @ابا جودى دائما سباق بالخير بارك الله فيك استاذنا العزيز @Alwazeer مشكور على المتابعة والمداخلة بارك الله فيك وجزاك الله عنا كل خير بعد التجربة استاذنا كله تماام ولكن هناك نقطة وحيدة لم يظبط عندها السنة المالية وهي يوم 31 / 3 حيث تم تجربة ادخال تاريخ 31 / 3 / 2019 فظهر عندي 2019 / 2020 وهي المفروض داخل السنة المالية ( 2018 /2019 ) وايضا ادخال تاريخ 31 / 3 / 2020 فظهر عندي 2020 / 2021 وهي المفروض داحل السنة المالية ( 2019 / 2020 ) هو تعديل جزء صغير ان شاء الله وسامحنى على الاطالة وجزاك الله عنا كل خير كل الشكر والتقدير استاذنا العزيز ،،،،

@qathi اخي الكريم هل جربت التعديل الاخير؟ فقد قمت بتغيير الكود الذي يتسبب بظهور تلك الرسالة حسب اعتقادي .. ارجو الاطلاع على النسخة المعدلة بالنسبة لشرح الاكواد فاتمنى منك تحديد الكود الغير مفهوم ليتم شرحه لاني للأسف لا أملك الوقت الكافي لشرحها جميعها .. اعتذر منك بشدة

عند كتابة الأكواد أو حتى قراءة أكواد مكتوبة بواسطة الغير تجد منهم من يستخدم لطباعة القيم echo وآخرون يستخدمون print فما الفرق بين كل منهما؟ الإختلافات بين echo و print بشكل مباشر هي : 1- echo أسرع في طباعة المتغيرات (نتحدث بالملي ثانية أو أقل) 2- print تقوم باسترجاع القيمة 1 (TRUE) وهذا ما يجعلها تأخذ وقت اكبر تخيل أن لديك اثنين من الموظفين فطلبت من كل منهما تصوير مستند فقام الأول بسماع الأمر وتنفيذه مباشرةً ثم تسليم النسخة المصورة أما الثاني قام بالتصوير ثم رد قائلاً “تمام يا افندم” ثم قام بتسليم النسخة المصورة وبالتالي أستغرق وقت أكبر من الأول. 3- echo تقبل عدد لانهائي من المدخلات بينما print تقبل مدخل واحد فقط لاحظ عند تنفيذ الكود تكون نتيجة echo هي “IamMohamed” ملتصقة ببعض لاعتبار كل من (I) و (am) و (Mohamed) مدخلات منفصلة تم طباعتهم وراء بعض. أما في السطر رقم 3 تم طباعة الجملة كاملة كمدخل واحد “I am Mohamed” . 4- يمكن استخدام print كدالة ولايمكن بالنسة لـ echo

وعليكم السلام تفضل: Private sub .... on error goto err_No_2001 ..... ..... Exit_N0_2001: exit sub err_No_2001: if err.number=2001 then Resume Exit_N0_2001 else msgbox err.number & vbcrlf & err.description endif end sub جعفر

كذا استاذ علي صرنا اكثر صحبة بالسطر الواحد استاذ علي !

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

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