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

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

vat = (Format(text4, "0000.00")) tax = (Format(text5, "000.00"))

تفضل هذا التعديل Dim player As WindowsMediaPlayer Set player = WindowsMediaPlayer3.Object With player .URL = CurrentProject.Path & "\MyAudio.mp3" .settings.setMode "loop", True End With MyAudio.zip

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

السلام عليكم ورحمة الله الكود الاول لمسح الدوائر Sub DelShap() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.AutoShapeType = msoShapeOval Then sh.Delete End If Next End Sub الكود الثانى لرسم الدوائر للحصص الزائدة Sub AddCircles1() Dim Shp As Shape Dim i As Long, j As Long, p As Long Dim C As Range, x As Integer x = Range("V1").Value i = 10 Do While i >= 7 j = 4 For Each C In Range(Cells(j, i), Cells(12, i)) If C.Value <> "" Then Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ C.Left, C.Top, C.Width, C.Height) p = p + 1 Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1.5 Shp.Line.ForeColor.SchemeColor = 10 If p >= x Then Exit Sub End If Next j = j + 2 i = i - 1 Loop End Sub الكود الاخير لرسم الدوائر فى الجدول الثانى Sub AddCircles2() Dim Shp As Shape Dim i As Long, j As Long, p As Long Dim C As Range, x As Integer DelShap x = Range("W1").Value i = 13 Do While i <= 19 j = 4 For Each C In Range(Cells(j, i), Cells(12, i)) If C.Value <> "" Then Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ C.Left, C.Top, C.Width, C.Height) p = p + 1 Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1.5 Shp.Line.ForeColor.SchemeColor = 10 If p >= x Then Exit Sub End If Next j = j + 2 i = i + 1 Loop End Sub

اعرض الملف الأرشيف الالكترونى تجربة طريقة بحث جديدة جدا البرنامج متكامل مفتوح المصدر ويمكن التحكم والتغيير به ليصبح ملكك برنامج الأرشيف الألكترونى للملفات الصادرة والواردة ومحاضر اجتماع وعرض الملفات بطريقة الصحف عن أى شيىء وكل شيىء ويوجد بالبرنامج طريقة جديدة لعرض المرفقات المرتبطة مع السجل الحالى فقط أرجو من الأخوة الأفاضل التكرم بالتجربة والاطلاع والتقييم والتحسين أن أمكن الاستاذة الأفاضل البرنامج يشمل أعمال كاملة (المهمات الأساسية + نسخ احتياطية - حفظ المستندات خارج القاعدة - نسخ الملفات ونقلها من وألى الجهاز لأى مكان تختاره - امكانية اخفاء المرفقات واضهارها ....الخ ويشمل اعمال تحت التنفيذ (ادخال محاضر - وملفات متنوعة - تحكم بألوان النماذج وتغيير لها بضغطة واحدة ملحوظة هامة يجب الحاق المكتبات كما بالصورة المرفقة وتحميل برنامج اكروبات ريدر للسماح بالمكتبات بالاضافة والتمكين الباسورد تنحصر برقم 0000 لأى اختيار برجاء التقييم ووضع تعليق يتضمن اصدار الويندوز والأفيس الملف بحجم 2.90 MB وضعته على الميديا فير كما نصحنى رفاق المنتدى والاساتذة به وكل الشكر للاستاذ أبا جودى على الرابط التالى https://www.mediafire.com/file/gvp38c8299mk7yy/Data+Zero.rar/file صاحب الملف walid7799 تمت الاضافه 07 ديس, 2021 الاقسام قسم الأكسيس  

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

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

العفو يا أبا الحسن

تفضل التعديل أبو الحسن Private Sub srch_All_AfterUpdate() If Me.srch_All = "All" Then Me.srch_Date_From = DateSerial(2020, 1, 1) Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1 ElseIf Me.srch_All = "positive" Then Me.srch_Date_From = DateSerial(Year(Date), Month(Date) - 1, 1) Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 0) Else Me.srch_Date_From = "" Me.srch_Date_To = "" End If Me.srch_All_PN = Me.srch_All End Sub DATA1041-5.mdb

السلام عليكم ارجو المساعدة في ماكرو لايجاد الموظف الغائب من خلال المقارنة مع عمود اسماء الموظفين مع اسماء الحضور و استخراج الموظف الغير موجود في قائمة الحضور يعتبر غائب في عمود الثالث و شكرا الملف مرفق الغياب.xlsm

بارك الله

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

جرب هذا MyAudio.zip

السلام عليكم عسى يكون المطلوب الغياب.xlsm

تفضل هذا التعديل =IIf([حالة الدفع]="تم السداد";[مجموع]-[مبلغ];IIf([حالة الدفع]="تم السداد";[مجموع]-0;IIf([حالة الدفع]="مؤجل";[مجموع]-0;0)))

بشمهندس / @ابو جودي الله يفتح عليك تمام التمام الان عرفت لازم يكون رقم قومى مصبوط وفيه حته زيادة " جوديه" وهى استخراج تاريخ الميلاد ـ والعمر ـ والجنس والمحافظة ايه ده رينا يزيد علم وصحة

جرب الاتى ولاخظ انك تختار اسم ومكان كل مجلد تحديدا حتى لو 100 مجلد او اكثر MD("D:\Officena\Access\VBA\a\b\c\d\e\f\g\h") MD("D:\Officena\Access\VBA\1\2\3\4\5\6\7\8") لو تقصد لازم التعديل من الكود فقط اقول لك لا اعمل جدول واعمل الدالة DLookup لتكون بذلك الشكل MD(DLookup("[FldName]","tblName")) وفى الجدول اكتب المسار الذى تريده طبعا ممكن تعمل معيار للدالة لاختيار حقل محدد وتسطيع عمل loop على كل سجلات الجدول لينشئ كل المجلدات بجانب او داخل بعضها او فى اماكن متفرقة دفعة واحدة بضغطة زر اذا كيف لا يتيح مرونة

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

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

وهذا المرفق حتى تكون الاجابة بعد السؤال وباستفاضة وهذا مرفق تم فيه ايقاف عمل زر الـ TAP كذلك تم ايقاف الاتى النسخ من خلال الازرار Ctrl+C القص من خلال الازرار Ctrl+X اللصق من خلال الازرار Ctrl+V فتح محرر الأكواد من خلال الضغط على الازرار Alt+F11 هذا على سبيل المثال وليس الحصر Disabling Tab key.mdb

على كل حال سواء قمت بالتجربة وتوصلت لما تريد او لا زيادة فى الخير اليكم الطريقة البرمجية ضع السطر التالى فى حدث Form_Load KeyPreview = True لتفعيل الزر نعتمد فى الكود الاتى على امرين رئيسيين رقم الزر رقم مفتاح الشيفت وما هو استخدام رقم الزر ورقم الشفت ؟ | رقم الشفت اذا كان = 0 يتم تعطيل عمل المفتاح واذا كان رقم الشفت= 1 يعمل المفتاح مرة اخرى والرقم الخاص بزر TAP هو 9 لذلك ان اردنا تعطيله نستخدم الكود الاتى فى الحدث Form_KeyDown مع المتغير الثانى وهو رقم مفتاح الشيفت = 0 Select Case KeyCode Case 9 KeyCode = 0 MsgBox "Tab Cancelled" End Select طيب لو اردنا تفعيله رقم مفتاح الشيفت = 1 Select Case KeyCode Case 9 KeyCode = 1 MsgBox "Tab Cancelled" End Select طيب من اين علمنا رقم الزر هناك طريقتان من هلال القاعدة التى سوف اقوم بوضعها كمرفق او من خلال الموقع الاتى https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa243025(v=vs.60)?redirectedfrom=MSDN ملاحظة ممكن استخدام رقم الزر او الاسم الثابت للزر وتحصل على الاسم من الموقع من Constant Key Code Constants.zip

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

وعليكم السلام ورحمة الله وبركاته المعادلة كتبها الاستاذ قلب الاسد تم التعديل من حيث تنسيق الخلايا للتاريخ 222.xlsx

محاولة بسيطة لايجاد الحل Book5.xlsx