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

السلام عليكم ورحمة الله وبركاته .. أواصل معكم دروس مهارات في برنامج أكسس . ومع فكرة جديدة ومتميزة .. 😉 كيفية عمل رسائل إرشادية متحركة .. متابعة ممتعة أتمناها لكم 🌹 ولتحميل ملف التطبيق من هنا : درس رسائل إرشادية.accdb

وعليكم السلام 🙂 قد يفيدك هذا الرابط جعفر

في الواقع انا اتعمد ان اجعل الكود سلس وبسيط ومقسّم الى عدة اسطر ، وذلك لهدف ان تكون البرمجه مرنه لتغييرات المبرمج ، واحاول الابتعاد عن اختزال الكود قدر المستطاع 🙂 بالنسبة لإختيار السجلات في جملة Where ، عندك عدة اختيارات ، منها مربع الاختيار (نعم/لا) ، ومنها اي حقل له رقم/قيمة فريدة تدل على السجل ، لهذا السبب ، ترى اني استخدمت النوعين معا ، فبالاضافة الى قيم الحقل TNO (في مصفوفة في الكود) ، فقد قمت بإختيار مربع الاختيار MoveX (في الجدول) كذلك ، ويمكنك استعمال النوعين خارج النموذج ، وحتى عند اغلاق النموذج ، فقيمة TempVars!tmpVars_DoIn تكون موجودة طوال فترة عمل البرنامج ، الى ان يتم غلق البرنامج ، او اعطاء قيمة اخرى للمتغير ، او حذف بياناته. جعفر

السلام عليكم ورحمة الله جرب هذا الكود Sub Collected() Dim ws As Worksheet, Arr As Variant, Tmp As Variant Dim LR As Long, LS As Long, Sh As Worksheet Set ws = Sheets("Feuil1") Set Sh = Sheets("تجميع") t = Timer Dim Rng As Range, Rng1 As Range, Rng2 As Range, Rng3 As Range Set Rng1 = ws.Range("A2:F" & ws.Range("B" & Rows.Count).End(3).Row) Set Rng2 = ws.Range("H2:M" & ws.Range("I" & Rows.Count).End(3).Row) Set Rng3 = ws.Range("O2:T" & ws.Range("P" & Rows.Count).End(3).Row) Arr = Array(Rng1, Rng2, Rng3) Application.ScreenUpdating = False Sh.Range("A2:F1000").ClearContents For i = LBound(Arr) To UBound(Arr) Arr(i).Copy LR = Sh.Range("B" & Rows.Count).End(3).Row + 1 Sh.Range("A" & LR).PasteSpecial xlPasteAll Next Application.CutCopyMode = False LS = Sh.Range("B" & Rows.Count).End(3).Row For j = 2 To LS Sh.Range("A" & j) = j - 1 Next Application.ScreenUpdating = True 'MsgBox Round(Timer - t, 2) End Sub

أخي العزيز ابراهيم الحداد بارك الله فيك و أشكرك على هذا العمل و الإبداع الرائع ،تمام مثل ما هو مطلوب تقبل احترامي وتقديري و تحياتي الأخوية

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

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

السلام عليكم ىورحمة الله اجعل المعادلة الاولى هكذا =IF(LEFT($C2;5)<>"مرتجع";$D2*$E2;"") و الثانية هكذا =IF(LEFT($C2;5)="مرتجع";$D2*$E2;"")

جرب هذه أخي : رساله للمتسخدم (Moosa).accdb

أضفت لك المطلوب بطريقة مختلفة .. وضعت لك زر إضافة فترة جديدة : وبعدها تظهر لك بيانات آخر إشتراك .. وخانة لإضافة فترة جديدة .. هكذا : AMAN (2).accdb

تفضل 🙂 قبل الاختيار ، سترى ان لون زر "الغي الاختيار" لونه اسود . وعند الاختيار ، سيتحول لونه الى الاحمر ، ليحذرك بأنه هناك اختيار سابق تم تخزينه في المتغير TempVars!tmpVars_DoIn ، وتم الافصاح عن هذا المتغير في اعلى كود النموذج ، حتى يمكنه اضافة القيم: Dim tmpVars_DoIn as TempVars وكلما تختار سجلات اخرى ، فإن المتغير يضيف هذه السجلات الى المتغير . هذا الكود يقوم بإضافة ارقام الحقل TNO (يمكنك اختيار اي حقل يدل على رقم السجل) الى المتغير ، بحيث يكون المتغير يحتوي على مصفوفة بهذه الطريقة: 34 ,33 , 13 ,12 , 0 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Me.SelHeight = to specify or determine the number of selected rows 'Me.SelTop = to specify or determine which row (record) is topmost in the current selection Dim i As Integer Dim rst As dao.Recordset Set rst = Me.RecordsetClone rst.MoveFirst If Me.SelHeight = 0 Then Exit Sub ' Move to the first selected record. rst.Move Me.SelTop - 1 For i = 1 To Me.SelHeight TempVars!tmpVars_DoIn = TempVars!tmpVars_DoIn & ", " & rst![TNO] 'add the selected TNO to tmpVars_DoIt rst.MoveNext Next i 'show the selected in the Form 'اذا لا تريد تحديث النموذج، اوقف عمل السطر التالي Call TempVars_Use_Click 'change the button color, so that the user know somwthing is selected already Me.TempVars_Clear.ForeColor = vbRed 'Debug.Print TempVars!tmpVars_DoIn End Sub . ولما تريد استخدام اياستعلام (انا استعملت الكود الذي وضعته انت) ، يمكنك استخدام الكود التالي المحتوي على البيانات التي تم تحديدها : Mid(TempVars!tmpVars_DoIn, 3) . هذا كود زر الغي التحديد: Private Sub TempVars_Clear_Click() TempVars!tmpVars_DoIn = 0 'change the color to black, indicating nothing is selected Me.TempVars_Clear.ForeColor = vbBlack End Sub . وهذا كود استخدم سجلات التحديد Private Sub TempVars_Use_Click() 'remove the initial comma 'TempVars!tmpVars_DoIn = Mid(TempVars!tmpVars_DoIn, 3) CurrentDb.Execute "UPDATE TAB SET MOVEX = -1 WHERE TNO In (" & Mid(TempVars!tmpVars_DoIn, 3) & ")" 'show the selected in the Form 'اذا لا تريد تحديث النموذج، اوقف عمل السطر التالي Me.Requery End Sub . جعفر 1423.1.Record Selector.accdb.zip

شكرا استاذ موسى.. فكرة جميلة

تفضل ....... رساله للمتسخدم.accdb

تفضل مثالك بعد التعديل ... جرب add new record.mdb

ماكرو حذف الفقرات الفارغة: Sub DeleteParagraphsEmpty() For Each tempParagraphs In ActiveDocument.Paragraphs If Len(tempParagraphs.Range.Text) = 1 Then tempParagraphs.Range.Delete End If Next End Sub وهذا الماكرو يقوم بتحديد الفقرات المتشابهة بلون مختلف؛ لتقوم بعد ذلك بالنظر إليها وحذفها: Sub HighlightParagraphs() Dim I, J As Long Dim xRngFind, xRng As Range Options.DefaultHighlightColorIndex = wdYellow With ActiveDocument For I = 1 To .Paragraphs.Count - 1 Set xRngFind = .Paragraphs(I).Range If xRngFind.HighlightColorIndex <> wdYellow Then For J = I + 1 To .Paragraphs.Count Set xRng = .Paragraphs(J).Range If xRngFind.Text = xRng.Text Then xRngFind.HighlightColorIndex = wdBrightGreen xRng.HighlightColorIndex = wdYellow End If Next End If Next End With End Sub لا تنسانا من دعواتك

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

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

السلام عليكم ورحمة الله قال رسول الله صلى اللّه عليه وسلم : ": (المسلم أخو المسلم، لا يظلمه ولا يسلمه، ومن كان في حاجة أخيه كان الله في حاجته، ومن فرج عن مسلم كربة فرج الله عنه كربة من كربات يوم القيامة، ومن ستر مسلما ستره الله يوم القيامة). اخي الكريم علاء وكل الاخوة الاعضاء المحترمين ..... انا شخصيا عندما طرحت هذا الموضع ... وطلبت نسخة السورس كود كان املي كبيرا بكرم الاستاذ علاء نكلاوي .... وكما اسلف علاء نكلاوي في تلك المشاركة المثبته انه سوف يقوم بنشر النسخة لربما يرى الاستاذ الفاضل علاء نكلاوي اننا نحاول قطف ثمار تعب غيرنا .... ولكن السؤال المطروح ؟؟ من عرض فكرة طرح نسخة السورس كود ؟؟؟ والسؤال الاهم الاخ علاء نكلاوي كيف لنا ان نصل الى مستوى رفيع من غير اطلع على نسخة السورس كود ؟؟ كلنا نشكر الاخ علاء نكلاوى على مجهوده الطيب .... وكلنا يعرف انا من طلب العلى سهر اليالي ... نقدر مدى التعب والشقاء الذي اكتنف مبرمجنا العظيم علاء نكلاوي خلال رحلته البرمجية ...... اود ان اضيفلك معلومة اخي علاء ( انت تعلم ان طبيعة البرمجة لا يمكن البدية فيها من الصفر .. اي انك بحاجة الى الاطلاع على برامج ... وانت نفسك قلت انك اشتريت برنامج بمقدار مبلغ من المال لكي تطلع عليه وعلى اكواده .... انا شخصيا لا املك المال لكي احصل على نسخة السورس كود لاي برنامج ... اخي علاء كلنا هنا مسلمون ... وكلنا نعلم انك لديك فكرة تحاول بثه في نفوسنا ... وانا شخصيا مقتنع بذالك .... ولكن السؤال الاهم كيف نبدا اذا لم نجد من يعننا على سلوك الطريق ؟؟؟؟ لا شك انك قرائت الحديث النبوي الشريف في اعلى مشاركتي .... اتمنى ان تكون اطلعت على وجهة نظري واقتنعت فيها وبارك الله فيك على كل حال