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

فورم اكسل لتشغيل القران الكريم الجزء الثلاثون وعرض صورة السورة والتفسير كل عام وانتم بخير ورمضان كريم رابط على الميديا فاير رابط على 4 شير k

طيب اولا لابد لنا الاحتفاظ بتلك القاعدة Converter Arabic and Unicode (v. 3) الوظيفة : تقوم بعمل التحويل من اللغة العربية الى الترميز العالمى والعكس ثانيا انا اردنا كتابة تلميح داخل محرر الاكواد لا نكتبه بالعربية كذلك ولكن ممكن بالـ Franco-Arab كتابة تلميح يدل على رسالة ترحيب ممكن نكتب التلميح بالشكل الاتى ' resalat tar7ib 'ahala bkm fe montda Al Access ونقوم باعلان عن متغير نصى لنسد اليه نص الرسالة مثلا Dim strMsgTr7ib As String ثم نفتح قاعدة بيانات التحويل ونكتب بها النص الذى نريده بالعربى ونقوم بتحويله الى الترميز العالمى ونقوم بنسخ الرموز الناتجة من التحويل ونسندها الى المتغير strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وان كان السطر طويل جدا ممكن تقسيمة الى عدة اسطر بتلك الطريقة strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & _ ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & _ ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & _ ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وهذا مثال للتجربة واسم القاعدة Use Of Unicode in VBA Converter Arabic and Unicode (v. 3).accdb Use Of Unicode in VBA.accdb

جرب هذا التعديل تقسيم.zip

فضلا جرب المرفق tar.xlsm

وجزاكم بمثل ما دعوتم أخي الحبيب الغالي @ابو جودي أحبك الله الذي أحببتني لأجله ما شاء الله بارك الله.... هذا هو أثر الكلمة الطيبة التي تأسر القلب وتبهج النفس أَلَمْ تَرَ كَيْفَ ضَرَبَ اللَّهُ مَثَلًا كَلِمَةً طَيِّبَةً كَشَجَرَةٍ طَيِّبَةٍ أَصْلُهَا ثَابِتٌ وَفَرْعُهَا فِي السَّمَاءِ ..... أسأل الله تعالى أن يسعدنا وإياكم في الدارين ومن يقرأ قولي هذا ... آمين يارب العالمين 🏵️ والسلام عليكم ورحمة الله وبركاته 💐🌺🌸🏵️

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

السلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸 حللت أهلاً ووطئت سهلاً أخي الحبيب الغالي @ابو جودي مرحبا بكم في منتدى الاكسيل ضيفاً كريماً ...عطرتم بمروركم الكريم أجواء منتدى الاكسيل حياكم الله وبياكم وجعل الجنة مأوانا ومأواكم تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸💐🌺

اولا هذا منتدى الاكسس وليس الاكسل ولكن على كل حال اليك الحل وينقل الموضوع الى جيران الهنا فى منتدى الاكسل وعذرا ان لم استخدم الدوال بشكل صحيح او ان كان هناك اختصار للحل بطريقة افضل انا لا اعلم اى شئ عن الاكسل تقريبا تلك المرة الاولى التى احاول فيها التعامل مع ملفات الاكسل ولكن بحثت على الانترنت وهذا تطبيق طويلب علم مجتهد لذلك ارجو السماح وعلى الله حد يتريق على الحل اللهم انى ناوى اصوم رمضان هاهاهاهاهاها للعلم استخدمت الدالة SUMIF لحساب اجمالى المنتجات للمندوب والدالة SUMIFS لحساب اجمالى المنتج المطلوب استثناءه ثم قمت بعمل طرح اجمالى المنتج المطلوب استثناءه من اجمالى المنتجات للمندوب للحصول على النتيجة المرجو الوصول اليها كل عام وانتم بخيــــــــر Book1.xlsx

تفضل هذه المحاولة timetable 2022.accdb

@Moosak انت تجمع في طياتك الذكاء وحسن التعامل لك مني كل الاحترام والموده لشخصك الكريم شكرا كثيرا لك استاذي

جرب هذي الطريقة TempVar!EmpNameTemp=Me.cbo123.Column(2)

نعم يا أبا عبدالرحمن ... في الفورم حقل غير منظم به الدالة السابقة .. وبعد تحديث حقلي التاريخ وعند الحالي للنموذج : Private Sub Form_Current() Me.الشهر = Me.MothDiffNum Me.Refresh End Sub Private Sub تاريخ_الاستحقاق_AfterUpdate() Me.الشهر = Me.MothDiffNum End Sub Private Sub تاريخ_اليوم_AfterUpdate() Me.الشهر = Me.MothDiffNum End Sub طرح بين تاريخيين.accdb

تم التعديل في اماكن متفرقة من البرنامج 1- اضافة حقلين في جدول الحركة واحد يخص نوع الحركة والآخر لمدخل البيانات ( حقل نوع الحركة صفر و واحد لم اوظفه بعد ولكن قد تحتاجه في التصفية) 2- لمسات على مصدر بيانات التقارير 3- نموذج للدخول 4 مستخدمين (كلمات المرور .. 1 و 2 و 3 و 4) يمكن لكل واحد منهم تعديل كلمة مروره (خصوصية) 4- عملت متغيرين عامين يحملان اسم ورقم المستخدم ( انظر في اعلى نموذج الحركة عند الدخول وبناء على متغير معرف المستخدم يتم ادراج معرفه داخل جدول الحركة 5- مخرجات التقارير ثابتة ( الاستلام والتسليم ) : اظهار آخر استلام للجهاز مع اظهار اسم الموظف المسؤول الذي ادخل البيانات اظهار آخر تسليم للجهاز مع من ادخل البيانات اذا واجهت صعوبة في فهم اي شيء عند النقل والتطبيق ,, لا تتردد أسألني ‏devicesdb15.rar

In any worksheet module, put the following code Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const sListBoxName As String = "Export Sheets" Dim ws As Worksheet, lst As ListBox, sPath As String, sFile As String, i As Long, c As Long If Target.Address = "$A$1" Then Cancel = True With Me Set lst = Nothing On Error Resume Next Set lst = .ListBoxes(sListBoxName) On Error GoTo 0 If lst Is Nothing Then Set lst = .ListBoxes.Add(.Range("F2").Left, .Range("F2").Top, 160, 84) End With With lst .Name = sListBoxName .RemoveAllItems .MultiSelect = xlSimple For Each ws In ActiveWorkbook.Sheets .AddItem ws.Name Next ws End With ElseIf Target.Address = "$B$1" Then Cancel = True Set lst = Me.ListBoxes(sListBoxName) With lst For i = 1 To .ListCount If .Selected(i) Then c = c + 1 sPath = ThisWorkbook.Path & "\" With ActiveWorkbook.Sheets(.List(i)) Application.ScreenUpdating = False Application.DisplayAlerts = False .Copy: sFile = .Name With Application.ActiveWorkbook .SaveAs Filename:=sPath & sFile & ".xlsx" .Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End With End If Next i End With If c > 0 Then MsgBox "You Exported " & c & " Sheets Successfully", 64, "LionHeart" End If End Sub To use the code Double-click cell A1 and a listbox with the worksheets names will be created Select the sheet or sheets you want to export from the listbox Finally double-click cell B1 to export the sheets you selected from the listbox

السلام عليكم.. اداة صغيرة مكتوبة كـ مفتاح registry عند تشغيلها ستقوم باضافة خيار جديد في الزر الايمن للماوس وضيفته جلب مسار الملفات والمجلدات لسرعه الوصول لها في البرامج او غيرها.. الاداة ليست من كتابتي انما فقط قمت بالتعديل عليها.. سورس الاداة: Windows Registry Editor Version 5.00 ; ########################################## ; Application : Get files/directories path by right click windows ; Coded by : Dr.Hassanien (SEMO.Pa3x) ; Date : 28-2-2022 ; ########################################## [HKEY_CLASSES_ROOT\Allfilesystemobjects\shell\windows.copyaspath] "CanonicalName"="{707C7BC6-685A-4A4D-A275-3966A5A3EFAA}" "CommandStateHandler"="{3B1599F9-E00A-4BBF-AD3E-B3F99FA87779}" "CommandStateSync"="" "Description"="@shell32.dll,-30336" "Icon"="imageres.dll,-5302" "InvokeCommandOnSelection"=dword:00000001 "MUIVerb"="@shell32.dll,-30329" "VerbHandler"="{f3d06e7c-1e45-4a26-847e-f9fcdee59be0}" "VerbName"="copyaspath" بعد تشغيل الاداة اضغط كلك يمين على اي ملف في الكومبيوتر او اي مجلد وستظهر لك: بعد نسخ اي مسار قم بلصقه، مثال: تحميل الملف من المرفقات لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. AddToRightClickWindows.rar

هل هذا التوزيع لمسميات الجدول صحيح قبل أن نكمل لاني لم افهم من جدولك ...

السلام عليكم ورحمة الله وبركاته.. اقدم لكم مجموعة من واجهات المستخدم (user interface) عسى ان تفيدكم في تحسين مظهر البرامج الخاصة بكم. المصدر: https://github.com/krishKM/Modern-UI-Components-for-VBA لا تنسوني ووالدي من صالح دعائكم.. تحميل المرفق الأول: sample_x64.zip تحميل المرفق الثاني: sample_x86.zip

اللهم امين تم رفع الملف على رابطين موجودين اسفل الموضوع وكل عام وانتم بخير

طيب اولا : غير تاريخ الجهاز فقط للتجربة الى يوم الاحد ... لأني اشتغلت على يوم واحد فقط وانت اكمل بقية الايام نفس الطريقة اقد النموذج وليس الاكواد الكود جاهز فقط عدل مصدر بيانات مربعات النص في النموذج كما هو الحال في يوم الاحد ايضا عدل التنسيق الشرطي لمربعات النص كما هو في يوم الاحد .... بالمناسبة ملف الدكتور @د.كاف يار شغال ما في مشكلة بس اصبر عليه شوي timetable 2022.accdb

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

الصح اللى قلت لك عليه لأن كل ما تريد ارسال قاعدة لغيرك لو لم تكن اعدادات اللغة مضبوطة سوف يقع فريسة لتلك الرسالة

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

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

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

@ابو جودي اللهم يجمعنا معكم في باب الريان وكل عام وحضرتك بالف خير ورمضان كريم مودتي

اعداد اللغة عند العميل تختلف عن اعداد الجهاز الذي صم علية البرنامج

العفو ي جميل يا ميت مليون هلا وغلا بيك بس ياريت تختر افضل اجابة لو تكرمت

شكرا لحضرتك @احمد الفلاحجي هو ده اللي كنت محتاج بالفعل بارك الله فيك شكرا استاذي @ابو جودي بارك الله فيك

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

نعم هذا صحيح بيضاء لاننا نتعلم منك اخى ومعلمى وشبخنا الجليل @ابوخليل ومن اخوانى واساتذتى الافاضل اجمعين جزاكم الله عنا كل خير إن لم تكن شطاره فإنها مهاره معلمى العزيز اعلم انك متابع لهذا المشروع ومعلمى العزيز جعفر له تعقيبات عليه ايضا جزاكم الله عنا كل خير لكم منى اجمل وارق التحايا وجزاكم الله عنا كل خير 💐

يمكنك استخدام هذه الدالة ولكن في استعلام وليس في الجدول : DateDiff("m";[تاريخ الاستحقاق];[تاريخ اليوم]) تعطيك فارق الأشهر بين التاريخين هكذا : طرح بين تاريخيين.accdb

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

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

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

وعلى خطى استاذى الجليل ومعلمى القدير الدكتور @SEMO.Pa3x اداتان صغيرة مكتوبتان كـ مفتاحان registry عند تشغيلهما سوف تقوم الاداة الاولى والمختصة باضافة خيار جديد في الزر الايمن للماوس عند النقر على اى مجلد او ملف الوظيفة جلب مسار الملفات والمجلدات لسرعه الوصول لها في البرامج او غيرها.. وبدون علامتى التنصيص الاداة ليست من كتابتي انما فقط قمت بالتعديل عليها .. سورس كود الاداة الاولى: Windows Registry Editor Version 5.00 ; ########################################## ; Application : Get files/directories path by right click windows ; Coded by : MOh3ssam (www.officena.net) ; Date : 29-03-2022 ; ########################################## [HKEY_CLASSES_ROOT\*\shell\Copy as Path] [HKEY_CLASSES_ROOT\*\shell\Copy Path\command] @="cmd.exe /c echo %1 |clip" [HKEY_CLASSES_ROOT\Directory\shell\Copy as Path] [HKEY_CLASSES_ROOT\Directory\shell\Copy as Path\command] @="cmd.exe /c echo %1 |clip" بعد تشغيل الاداة اضغط كلك يمين على اي ملف في الكومبيوتر او اي مجلد وستظهر لك: بعد نسخ اي مسار قم بلصقه، مثال: الاداة الثانية : سوف تقوم الاداة الثانية والمختصة بازالة الخيار الذى تم اضافته من الاداة الاولى من الزر الايمن للماوس عند النقر على اى مجلد او ملف الاداة ليست من كتابتي انما فقط قمت بالتعديل عليها .. سورس كود الاداة الثانية : Windows Registry Editor Version 5.00 ; ########################################## ; Coded by : MOh3ssam (www.officena.net) ; Date : 29-03-2022 ; ########################################## [-HKEY_CLASSES_ROOT\*\shell\Copy as Path] [-HKEY_CLASSES_ROOT\Directory\shell\Copy as Path] الموضوع كذلك ليس من كتابتي انما فقط قمت بالتعديل عليه 😊 وفى الختام تم كتابة الموضوع اقتباسا بنفس الطريقة والالية لطريقة استاذى الجليل ومعلمى القدير الدكتور حسنين لاننى امازحه واداعبه كل عام وانتم بخير يا دكتور انتم وكل اساتذتى الكرام كل عام وانتم الى الله اقرب وعلى طاعته ادوم ولفعل الخيرات اسبق و لسنة النبى الزم ولحب اتباعه اصدق ومن الجنة ادنى واقرب وعن النار ابعد اسال الله تعالى الرحمة والعفو والغفران لكم و لكل المسلمين و لوالديكم و والداى وكل المسلمين برحمتك التي وسعت كل شيء اللهم ان ابائنا قد احسنوا الينا منذ يوم ولادتنا اللهم وبحق هذا الاحسان ارحمهما و اغفر لهما برحمتك التى وسعت كل شيء اللهم ارحم من فى بطن الارض من ابائنا و استرهم يوم العرض يارب العالمين يا رب انت خلقتهم وانت اخذتهم وانت الرحيم فليس غيرك ارحم بهم اللهم ارحمهم و اغفر لهم اكرم نزلهم و وسع مدخلهم اللهم اجعل قبورهم روضه من رياض الجنة واجمعنا بهم في جنة النعيم برحمتك يا ارحم الراحمين ارحم يارب من مات منهم بالدنيا ولم يمت في قلوبنا اللهم ارحمه فهو اغلى من فقدنا واسكنه فسيح جناتك يا ارحم الراحمين اللهم من بقى منهم فى هذه الدنيا بارك فى اعمارهم وارزقهم ثوب العافية وحبب الايمان الى قلوبهم وتقبل اعمالهم وارزقنا برهم وارض عنهم يارب واجعلهم راضين عنا يارب العالمين واحسن يارب خاتمتنا وخاتمتهم. اللهم امين امين امين 🤲🏻 تحميل الملف من المرفقات فضلا وكرما وليس امرا لا تنسوا الدعاء لاستاذى الجليل ومعلمى القدير الدكتور حسنين و والديه من صالح دعائكم وكل المسلمين وآبائهم. كل عام وانتم بخير اقتراب حلول شهر رمضان الكريم اعاده الله عليكم وأمة محمد بخير وسعادة . تم بحمد الله. Add Copy as Path Option in Windows.rar

رمضان كريم شاهد المرفق Show _And_Copy_Sh.xls

(وفوق كل ذي علم عليم) 😅✋🏻 ومنك نتعلم حبيبنا 😄 عملت الموديول هذا من زمان بهدف أنه لما يكون عندي مرفقات مثلا أو ملفات مصاحبة للبرنامج تروح على طول جنب قاعدة البيانات سواء مقسمة ولا لا .. بدون ما أغير كل مرة في الكود 🙂 لكن شكلي هحدثه بالكود بتاعك شكله رشيق ودلع 😁

تفضل هذا التعديل فقط ضع عدد الاسماء لكل ملف و اضغط تصدير تقسيم.zip

بالاستعانة بصديق اقصد برنامج اصلاح الجداول ، وهو موجود في المنتدى

انظر هذه المحاولة اذا تنفع Lab_2.accdb

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

وعليكم السلام أهلاً وسهلاً بأستاذنا الكبير .. والغالي في نفوسنا .. ما أحلى الدردشة عنما تكون بيننا

تشغيل الصوت بزر.rarتشغيل الصوت بدون اظهار رسالة.rarتشغيل الصوت بزر.rar هذه احدى المشاركات السابقة

اين الجديد في ردك اخي؟ نفس الدالة طرحها الاخ @صالح حمادي

عفوا ابو عبدالله ، بس للأسف ما عندي فكرة عن الموضوع يمكن الرابط التالي يفيدك https://www.codeproject.com/Articles/53059/Parallel-Processing-MS-Access-VBA-Application جعفر

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

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

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

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