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

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

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

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

السلام عليكم ورحمة الله بارك الله فيك . دائم الابداع وحفظك من كل سوء

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

رابط النسخة القديمة http://download.microsoft.com/download/6/9/7/697096F6-4EEA-4704-AF2D-F3BAF57C7634/VS2012_RC_ULT_ENU.iso رابط النسخة الجديدة تقدرو تحملوها باذن الله لاني اتذكر اني قمت بتحميلها بهذه الطريقة ذهبت الى موقع ميكروسوفت وقمت بتحميلها من هناك وبعدين دول 1.5 جيجا ياعم ابو البراء مش 5 جيجا https://download.microsoft.com/download/D/B/0/DB03922C-FF91-4845-B7F2-FC68595AB730/VS2012_ULT_enu.iso الاولي هي نسخة تجريبية ولم تكتمل وتم وضع لها مدة معينة ونتعرف عليها من الحروف RC بعد كلمة فيجوال2012 ولمعرفة المزيد عن الاصدارات حتى لا نقع في مثل هذه الاخطاء أ. مرحلة (Pre-Alpha): أولى مراحل تصميم وتطوير التطبيق، ولا تحتوي أو تشمل نسخة (Pre-Alpha) على كل الوظائف.ب. مرحلة (Alpha): نسخة يتم طرحها لإختبارها وتجربتها داخليا (أي داخل الشركة أو المنظمة أو المجتمع المطور لهذا التطبيق).ج. مرحلة (Beta): نسخة يتم طرحها لإختبارها من قبل مجموعة محددة من المستخدمين أو من قبل العامة وأحيانا يتم طرحها مجانا، تعتبر هذه النسخة غير ثابتة وقد تحتوي على ثغرات أو أخطاء.د. نسخة (Release candidate) أو تعرف إختصارا (RC): نسخة إجتازت بنجاح المراحل السابقة ومرشحة لتكون نسخة نهائية.بعض الشركات أو المنظمات تستخدم كلمات أخرى كذلك، مثل جاما (Gamma) ودلتا (Delta) والتي قد تدل على مراحل أخرى يمر بها التطبيق، والجدير بالذكر أن ألفا وبيتا وجاما أو غاما وسجما ودلتا هي أحرف يونانية.2. مراحل الإنتاج:أ. مرحلة (Release to Manufacturing) وتعرف إختصارا (RTM): هي مرحلة تسبق مرحلة الإصدار النهائي، ويتم توزيعها على المصنعين، مثال على ذلك نظام التشغيل الجديد من Microsoft المسمى بـ Windows 7 حيث يتم توزيعه حاليا على كبار المصنعين باسم (Windows 7 RTM) ومن المعلوم أن تاريخ الإصدار الرسمي هو 22 أكتوبر 2009.ب. مرحلة (General Availability) وتعرف إختصارا (GA): مرحلة تكون فيها النسخة مستقرة تماما ومتوفرة للعامة أو المستخدمين النهائيين عن طريق التحميل من الويب أو عن طريق الوسائط المادية مثل القرص المدمج CD أو القرص الرقمي DVD.أمثلة:Download Windows 7 RTM Windows 7 Preinstallation Kit for OEMs – SoftpediaWindows 7 Release Date | Windows 7 NewsMozilla Firefox 3 Release Candidate Release Notes تقبلو تحياتي

السلام عليكم ورحمة الله وبركاته صورة توضح ربط التاريخين في ال Criteria بجدول تاريخي البدء والانتهاء ولذلك لا حاجة للكتابة بهما...تم إخفاؤهما..والدالة هي: =IF(C3="";"";">="&C3) =IF(C4="";"";"<="&C4) كما تم إعداد قوائم منسدلة لخلايا ال Criteria الباقية باستخدام التسمية للقوائم باستخدام المعادلة التالية: =OFFSET(متقدمة!$C$10;;;COUNTA(متقدمة!$C$10:$C$100)) وذلك كمتمم للتصفية المتقدمة لتلبي حاجتنا بشكل أسرع والسلام عليكم ورحمة الله وبركاته.

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله في أحد الموضوعات لأحد الأخوة الأعضاء كان قد طلب كيفية إرسال رسالة بريد إلكتروني (إيميل Email) باستخدام ملف إكسيل واليوم أقدم لكم الطريقة بالتفصيل من الألف إلى الياء ... وإن شاء الله تكون الطريقة ناجحة ومفيدة للجميع الخطوات اللازمة لعمل المطلوب : فتح حساب جديد على الـ Gmail إذا لم يكن لديك حساب وكيفية إنشاء حساب جديد مشروحة بالصور : نقوم بفتح برنامج الـ Outlook من قائمة Start ثم All Programs وندخل بيانات الحساب الذي أنشيء على الـ Gmail .. بهذا الشكل : وأخيراً وبعد عملية إنشاء الحساب وربط برنامج الـ Outlook بحساب الـ Gmail .. نقوم بفتح ملف إكسيل وفي العمود الأول ندخل الإيميلات المراد إرسال بريد إلكتروني لها .. وفي العمود الثاني نكتب اسم صاحب الايميل (اختياري) وفي العمود الثالث نكتب محتوى الرسالة المراد إرسالها .. وهذا هو الكود الذي سيقوم بمهمة إرسال رسائل البريد الالكتروني دفعة واحدة لكل الإيميلات المسجلة لديك .. ملحوظة مهمة جداً : من خلال محرر الأكواد يتم إضافة المكتبة التالية Microsoft Outlook Object Library من القائمة Tools ثم References .. Sub Mail_To_Friends() Dim SendTo As String Dim ToMSg As String Dim I As Integer For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row SendTo = ThisWorkbook.Sheets(1).Cells(I, 1) If SendTo <> "" Then ToMSg = ThisWorkbook.Sheets(1).Cells(I, 3) Send_Mail SendTo, ToMSg End If Next I MsgBox "Done ...", 64 End Sub Sub Send_Mail(SendTo As String, ToMSg As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = SendTo .CC = "" .BCC = "" .Subject = "Hello Officena" .Body = ToMSg .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub وأخيراً إليكم الملف المرفق مطبق فيه الكود وفيه نموذج لشكل ورقة العمل .. ويوجد زر أمر لعملية الإرسال .. وهذا هو الملف تقبلوا وافر تقديري واحترامي كان معكم أخوكم أبو البراء من منتدى أوفيسنا Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.rar

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته ...إخوتي الكرام بعد أن اطلعت على دروس أخينا الحبيب ياسر خليل أبو البراء حول الفلترة المتقدمة وكذلك الفيديوهات التي تبين ذلك مشكوراً - جزاه الله خيراً على ما قدم ويقدم ولكم بمثله أيضاً - أردت أن أقدم لكم تصفية متقدمة بين تاريخين وفق عدة معايير ..بالكود حيث بإمكانك تحديد تاريخي البدء والانتهاء ..وأيضاً المعايير للتتغير تلقائياً وفق الكود في حدث الورقة كما يلي: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range(" l4:p4")) Is Nothing Then Call تصفية_متقدمة End If End Sub أما الكود الأساسي للتصفية المتقدمة فهو في حدث موديول وفق الآتي: Sub تصفية_متقدمة() ' مفتاح الاختصار: Ctrl+Shift+S ورقة1.Range("B9").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "متقدمة!Criteria"), CopyToRange:=Range("متقدمة!Extract"), Unique:=False End Sub هذا من ناحية الأكواد ،أما المعادلات ضمن معادلة صفيف Ctrl+Shift+Enter يقوم بالتصفية حسب التاريخ: =IFERROR(INDEX(B$10:B$25;SMALL(IF(($C$3<$B$10:$B25)*($C$4>=$B$10:$B25);ROW($B$10:$B25)-9);ROW(A1)));"") أرجو أن تكون به فائدة ومن كان لديه ما يثري الموضوع فليتحفنا بمشاركته مشكوراً ...لأنني أحب التعلم وإن لم أستطع إدراك الكثير والحمد لله على ما يسّر الله لنا والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين ...والسلام عليكم. حمل الملف من هنا

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

السلام عليكم ورحمة الله أخي الكريم، كما وعدتك سابقا أقدم لك الملف بالرابط التالي على ميديافاير، وبه الكثير من التعديلات مع إضافة شيت آخر خاص بالعملاء... والملف أخذ حجما كبيرا ولم يعد التعامل معه بكيفية سريعة... بالنسبة للمواد أو للعملاء فقد جعلت عددهم 500 لتسريع الملف قليلا وعدد المواد المباعة لكل عميل في كل يوم هو 12 مادة (وإن تعدى ذلك يجب المواصلة بالصف الموالي لليوم نفسه والعميل نفسه)... وأعتقد أن الأكواد لهذا النوع من الحالات أفضل وأحسن ولكني لا أحسنها (ننتظر من يقوم بذلك من إخوتنا الكرام)... أخوك بن علية الداخل_المباع_الرصيد.rar

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

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

ننتظر لحظة الولادة حيث الولادة متعثرة .. جيجا ونصف بالنسبة لي كتير جداً ممكن يستغرق ليلة كاملة أو ربما أكثر للتحميل .. الله المستعان .. بس على الله الكهربا متعملهاش وأعيد التحميل من البداية

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب "صقر المنتدى حسام" جزاكم الله خيراً على هذه النماذج الرائعة بالحركات المؤثرة التي نشكرك على أدائها ونحمد الله أنه بيننا إخوة مبدعين ....وقد تكون في المرات القادمة حركات عشوائية بمعنى عند كل فتح تنتقل من حركة إلى أخرى في كل مرة... والسلام عليكم ورحمة الله وبركاته.

استاذى الحبيب / ابويوسف جزاكم الله خيرا ونفع بكم الى الامام دائما وننتظر ابداع جديد تقبل تحياتى

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

السّلام عليكم و رحمة الله و بركاته كفيت و وفّيت يا "أبا يوسف" .. بارك الله فيك و لك .. بارك الله بصحّتك و أوقاتك و أعمالك و بجميع أفراد أسرتك الكريمة .. مواضيعك .. بل دروسك و أعمالك ممتازة و مميّزة و أكثر من ذلك ..راقية و متقنة .. نستفيد كلّنا منه كمرجع من المرجعيات لكل من يهتم بالحسابات و الفواتير جزاك الله خير الجزاء و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي

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

هل حد حمل الفيجوال اللى قمت بتجزئته وهل قام بتنصيبه ؟ لم يواجهنى به اى مشاكل واعمل عليه فى انتظار حد حمله ويقول النتيجه

وهذه النسخة هي الاقرب ايضا حيث مكتوب بعد فيجوال RTM وهي النسخة الت اعمل عليها جزاك الله خير اخي عبد العزيز

بسم الله الرحمن الرحيم كل عام و انتم بخير جعل الله هذه الايام_ايام رحمة و مغفرة اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا مرفق هديتى مع الشرح للتعامل مع الملف برنامج لتوزيع التكاليف و المصروفات على مراكز التكلفه بالمعادلات يعطى تقرير على مستوى مركز التكلفه و تقرير اخر شهرى عن السنه المختاره للتقرير باسورد الحمايه للصفحات 123 تحياتى لاتنسونا من صالح الدعاء برنامج توزيع المصروفات على مراكز التكلفه.rar تحياتى للجميع و شكرا على الجهد المبذول من ادارة المنتدى

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

أخي الكريم أبو عبد الواجد ربما لم تجد استجابة في موضوعك نظراً لأن الخلايا المراد ترحيلها كثيرة جداً ... ولذا أهديك الكود فقط وأنت قم بالتعديل عليه بحيث تكمل بقية المصفوفة الكود يعتمد على عمل مصفوفة بالنطاقات المراد الترحيل منها ثم الترحيل دفعة واحدة وهذا الكود أسميه الكود السحري للترحيل وخصوصاً مع الخلايا المفردة والمتباعدة كما في ملفك حيث أن الخلايا المراد ترحيلها غير متجاورة ...وهذا ما يصعب المهمة السطر الذي ستقوم بالتعديل فيه هو السطر التالي myValues = Array(.Range("C4"), .Range("C5"), .Range("B27"), "", "", "", .Range("B28"), "", "", "", .Range("B29"), "", "", "", .Range("B30"), "", "", "", .Range("B31")) في هذا السطر لو لاحظت تكتب اسم الخلايا التي سيتم الترحيل منها وإذا كانت الخلية التي سيتم الترحيل إليها غير مستخدمة كما لاحظت في ملفك تترك مكانه فراغ .. حاول تفهم السطر عشان تعرف تكمله لأن وقتي ضيق للغاية وفي السطر التالي ستغير العدد 19 إلى آخر عمود حيث الرقم 19 يمثل العمود S وهو العمود الذي توقفت عنده ، ويمكنك التكملة على نفس المنوال .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row + 1).Resize(1, 19).Value = myValues حمل الكود من هنا تقبل تحياتي

أخي الحبيب أبو يوسف بارك الله فيك وجزاك الله كل خير على مبادرتك الطيبة ، ويعجبني أنك تجتهد حتى وإن فشلت ، فأنا أسعد بالمجتهد حتى ولو فشل آلاف المرات ... أخي الغالي سعد عابد أسئلة كثيرة .................. ولكن لعيون سعد (سعد سعد يحيا سعد) الفرق بين Value و Value2 لن أجيبك بشكل نظري بحت ولكن اعلم أن التاريخ يكتب في خلية ويظهر لك بشكل مختلف عن الشكل الأصلي الذي يقرأه الإكسيل اكتب أي تاريخ في الخلية A1 .... روح لمحرر الأكواد واضغط Ctrl + G عشان تفتح النافذة الفورية (يوجد موضوع لها في حلقات افتح الباب) ... في النافذة الفورية اكتب هذين السطرين (أنا قلت اكتب ولم أقل انسخ والصق ..بطل كسل) ?range("A1").Value ?range("A1").Value2 ولاحظ النتائج بنفسك السؤال الثاني هو الكلمة Redim وهي لإعادة تشكيل المصفوفة من حيث الأبعاد فوضعت هنا لكي أجعلها نفس أبعاد المصفوفة الأولى المسماة Arr .. السؤال الثالث لإضافة شروط .... الموضوع بسيط شايف السطر ده اللي فيه IF ..... If Arr(I, 1) >= startDate And Arr(I, 1) <= endDate Then قبل كلمة Then يمكن إضافة الشروط باستخدام كلمة AND ثم تضيف الشرط المطلوب .. ويمكن إضافة أكثر من شرط لا مشكلة في ذلك على الإطلاق أما بخصوص آلية الكود فهو يقوم بوضع قيم النطاق في مصفوفة ثم إنشاء مصفوفة أخرى لوضع النتائج المتوافقة مع الشروط الموضوعة وفي نهاية المطاف في آخر سطر يتم التعامل مع الإكسيل بوضع النتائج التي في المصفوفة Temp ووضعها في الخلية L10 أرجو أن تكون الإجابات قد أدت الغرض وأخيراً إليك شرح الكود في الموديول الثاني في الملف المرفق حمل الملف من هنا وتقبلوا وافر تقديري واحترامي

السلام عليكم أخي الحبيب سعد عابد جعلك الله من سعداء العابدين في الدنيا والآخرة..جزاكم الله خيرا على طيب كلماتكم وأشكركم على دعائكم لي.. وما أنا إلا بكم ومنكم..لم أخضع لدورات أو أتعلم على الحاسب إلا ما حصلته من أساتذتي الكرام في منتدى أوفيسنا...واسمح لي أن أخمن جواب سؤالك ريثما يجيب عنه أخونا الحبيب أبو البراء فيسعد بطلابه.. 1- Value: قيمة تاريخ البدء. 2- Value2:قيمة تاريخ الانتهاء. 3- ReDim:إعادة الحلقة التكرارية من جديد( وهذه لست متأكدا منها)..نرجو التدقيق في هذه الإجابات لننطلق منها. والسلام عليكم ورحمة الله وبركاته.

السلام عليكم استخدم الدالة iferror وستفى بالغرض انشاء الله رفع الخطا في المعادلة.rar

السلام عليكم - حياك الله - عمل ضخم - تقبل الله منك صالح الاعمال اشكرك

وعليكم السلام ورحمة الله تفضل أخي جرب هذه المحاولة TESTQryYear.rar

وانا هنزل نسخه تانيه فى السهره النسخه دى مش مظبوطه معايا مش عارف ليه حاسس بتقل فيها ربنا يستر

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

ايوة يعنى تظهر على الفورم بشكل ايه ؟ قايمة بيانات Listbox ولا كل بيان منفصل textbox ولا تظهر باى شكل بالظبط ؟

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

ضع الكود السابق وايضا اجعل التقارير قم بعمل جميع التقاريرPOP UP = YES فقط منبثق اجعلها نعم لكن مشروط اجعلها لا

يا أخى ضع هذا الكود فى التقرير عند الفتح docmd.Maximize

سبب الخطأ خانة التاريخ فارغه

قم بعمل جميع النماذج POP UP = YES وضع الكود فى نموذج الدخول للبرنامج فقط عند الفتح اذا استمرت المشكلة يفضل ارفاق مثالك للتعديل عليه .

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

شكرا لك استاذ

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

الظلم ظلمات يوم القيامة عن أبي ذر الغفاري رضي الله عنه ، عن النبي صلى الله عليه وسلم فيما يرويه عن ربِه عز وجل أنه قال : ( يا عبادي إني حرمت الظلم على نفسي ، وجعلته بينكم محرما فلا تظالموا ، يا عبادي كلكم ضال إلا من هديته ، فاستهدوني أهدكم ، يا عبادي كلكم جائع إلا من أطعمته ، فاستطعموني أُطعمكم ، يا عبادي كلكم عار إلا من كسوته ، فاستكسوني أكسكم ، يا عبادي إنكم تخطئون بالليلِ والنهار ، وأنا أغفر الذنوب جميعا فاستغفروني أغفر لكم ، يا عبادي إِنكم لن تبلغوا ضري فتضروني ، ولن تبلغوا نفعي فتنفعوني ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم كانوا على أتقى قلب رجل واحد منكم ما زاد ذلك في ملكي شيئا ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم كانوا على أفجرِ قلب واحد منكم ما نقص من ملكي شيئا ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم قاموا في صعيد واحد فسألوني ، فأعطيت كل واحد مسألته ما نقص ذلك مما عندي إلا كما ينقص المخيط إذا أدخل البحر ، يا عِبادي إنما هي أعمالكم أحصيها لكم ثم أوفيكم إياها ، فمن وجد خيرا فليحمد الله ، ومن وجد غير ذلك فلا يلومن إلا نفسه ) رواه مسلم . الشرح بين يديك - أخي الكريم - أحد الأحاديث القدسية العظيمة ، التي يرويها لنا رسول الله صلى الله عليه وسلم عن رب العزة جل وعلا ، فتعال بنا نعيش مع هذا الحديث ، ونستظل بفيئه ، وننهل من عذبه الصافي . لقد بدأ الحديث بإرساء قواعد العدل في النفوس ، وتحريم الظلم والعدوان ، يقول النبي صلى الله عليه وسلم فيما يرويه عن ربه : ( يا عبادي إني حرمت الظلم على نفسي ، وجعلته بينكم محرما فلا تظالموا ) ، وحقيقة الظلم : وضع الشيء في غير موضعه ، وهذا مناف لكمال الله تعالى وعدله ، فلذلك نزّه الله تعالى نفسه عن الظلم فقال : { وما أنا بظلام للعبيد } ( ق : 29 ) ، وقال أيضا : { وما الله يريد ظلما للعباد } ( غافر : 31 ) . ولئن كان الله تعالى قد حرّم الظلم على نفسه ، فقد حرّمه على عباده ، وحذّرهم أن يقعوا فيه ؛ وما ذلك إلا لعواقبه الوخيمة على الأمم ، وآثاره المدمرة على المجتمعات ، وما ظهر الظلم بين قوم إلا كان سببا في هلاكهم ، وتعجيل العقوبة عليهم ، كما قال سبحانه في كتابه العزيز : { وكذلك أخذ ربك إذا أخذ القرى وهي ظالمة إن أخذه أليم شديد } ( هود : 102 ) ، ومن ثمّ كانت دعوة المظلوم عظيمة الشأن عند الله ، فإن أبواب السماء تفتح لها ، ويرفعها الله فوق الغمام يوم القيامة ، بل إنه سبحانه وتعالى يقول لها ( وعزتي لأنصرنك ولو بعد حين ) كما صح بذلك الحديث. ثم انتقل الحديث إلى بيان مظاهر افتقار الخلق إلى ربهم وحاجتهم إليه ، وذلك في قوله : ( يا عبادي كلكم ضال إلا من هديته ، فاستهدوني أهدكم ، يا عبادي كلكم جائع إلا من أطعمته ، فاستطعموني أُطعمكم ، يا عبادي كلكم عار إلا من كسوته ، فاستكسوني أكسكم ) ، فبيّن أن الخليقة كلها ليس بيدها من الأمر شيء ، ولا تملك لنفسها و لا لغيرها حولا ولا قوة ، سواءٌ أكان ذلك في أمور معاشها أم معادها ، وقد خاطبنا القرآن بمثل رائع يجسّد هذه الحقيقة ، حيث قال : { يا أيها الناس ضرب مثل فاستمعوا له إن الذين تدعون من دون الله لن يخلقوا ذبابا ولو اجتمعوا له وإن يسلبهم الذباب شيئا لا يستنقذوه منه ضعف الطالب والمطلوب } ( الحج : 73 ) أي : إذا أخذ الذباب شيئا من طعامهم ثم طار ، وحاولوا بكل عدتهم وعتادهم أن يخلصوا هذا الطعام منه ما استطاعوا أبدا ، فإذا كان الخلق بمثل هذا الضعف والافتقار ، لزمهم أن يعتمدوا على الله في أمور دنياهم وآخرتهم ، وأن يفتقروا إليه في أمر معاشهم ومعادهم . وليس افتقار العباد إلى ربهم مقصورا على الطعام والكساء ونحوهما ، بل يشمل الافتقار إلى هداية الله جل وعلا ، ولهذا يدعو المسلم في كل ركعة بـ : { اهدنا الصراط المستقيم } ( الفاتحة : 6 ) . ثم بيّن الله تعالى بعد ذلك حقيقة ابن آدم المجبولة على الخطأ ، فقال : ( يا عبادي إنكم تخطئون بالليلِ والنهار ، وأنا أغفر الذنوب جميعا ، فاستغفروني أغفر لكم ) ، إنه توضيح للضعف البشري ، والقصور الذي يعتري الإنسان بين الحين والآخر ، فيقارف الذنب تارة ، ويندم تارة أخرى ، وهذه الحقيقة قد أشير إليها في أحاديث أخرى ، منها : ما رواه الإمام ابن ماجة بسند حسن ، أن النبي صلى الله عليه وسلم قال : ( كل بني آدم خطاء ، وخير الخطائين التوابون ) ، فإذا كان الأمر كذلك فإن على الإنسان المسلم أن يتعهّد نفسه بالتوبة ، فيقلع عن ذنبه ، ويستغفر من معصيته ، ويندم على ما فرّط في جنب الله ، ثم يوظّف هذا الندم الذي يصيبه بأن يعزم على عدم تكرار هذا الذنب ، فإذا قُدّر عليه الوقوع في الذنب مرة أخرى ، جدد التوبة والعهد ولم ييأس ، ثقةً منه بأن له ربا يغفر الذنب ويقبل التوبة من عباده المخطئين . ثم بين لنا رسول الله صلى الله عليه وسلم - فيما يرويه عن ربّه - شيئا من مظاهر الكمال الذي يتصف به الله جل وعلا ، مبتدئا بالإشارة إلى استغناء الله عن خلقه وعدم احتياجه لهم ، كما قال تعالى : { يا أيها الناس أنتم الفقراء إلى الله والله هو الغني الحميد } ( فاطر : 15 ) ، فالله تعالى غني حميد ، لا تنفعه طاعة عباده ، ولا تضره معصيتهم ، بل لو آمن من في الأرض جميعا ، وبلغوا أعلى مراتب الإيمان والتقوى ، لم يزد ذلك في ملك الله شيئا ، ولو كفروا جميعا ، ما نقص من ملكه شيئا ، لأن الله سبحانه وتعالى مستغن بذاته عن خلقه ، وإنما يعود أثر الطاعة أو المعصية على العبد نفسه ، وقد جاء في القرآن الكريم ما يؤكد هذه الحقيقة ويوضحها ، قال الله عزوجل : { قد جاءكم بصائر من ربكم فمن أبصر فلنفسه ومن عمي فعليها } ( الأنعام : 104 ) ، فمن عرف حجج الله وآمن بها واتبعها ، فقد بلغ الخير لنفسه ، ومن تعامى عن معرفة الحق ، وآثر عليها ظلمات الغواية ، فعلى نفسه جنى ، وأوردها الردى . وبالرغم من ذلك فإن نعم الله سبحانه مبثوثة للطائع والعاصي على السواء ، دون أن يجعل تلك المعاصي مانعا لهذا العطاء ، وهذا من كرم الله تعالى وجوده ، وهي أيضا مظهر من مظاهر سعة ملك الله تعالى ، فإن الله لو أعطى جميع الخلق ما يرغبون ، لم ينقص ذلك من ملكه شيئا يُذكر. ولما كانت الحكمة من الخلق هي الابتلاء والتكليف ، بيّن سبحانه أن العباد محاسبون على أعمالهم ، ومسؤولون عن تصرفاتهم ، فقد جعل الله لهم الدنيا دارا يزرعون فيها ، وجعل لهم الآخرة دارا يجنون فيها ما زرعوه ، فإذا رأى العبد في صحيفته ما يسرّه ، فليعلم أن هذا محض فضل الله ومنّته ، إذ لولا الله تعالى لما قام هذا العبد بما قام به من عمل صالح ، وإن كانت الأخرى ، فعلى نفسها جنت براقش ، ولا يلومنّ العبد إلا نفسه.

اخى العزيز عبد الله فريد وبعد الاذن من الفاضل ابو عيد اتمنى يكون المرفق هو المطلوب البحث و الفرز.rar

تم عمل البحث في العمودين (ليست في A ) (ليست في N ) أما العمود الثالث في حاجة غريبة في الطلب رقم الحاوية التي ليست في A وليست في Nنهائيا كيف سيعرفها البرنامج ؟ لا بد من كتابة أرقام الحاويات كلها في عمود ثم نقول للبرنامج فتش عن هذه الأرقام فإذا كانت ليست في A وليست في N نهائيا قم بوضعها في عمود مستقل جرب المرفق البحث و الفرز1.rar

هل تقصد رقم معين في حالة كون الخانة فاضية ؟

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

الآن نصل لأهم نقطه وهى كيفية تعريف الصلاحية للنموذج يتم إنشاء حقل يوضع على كل نموذج نريد عمل صلاحية له أو أي تقرير نريد عمل صلاحية له وهذا الحقل به دالة وهنا الصلاحية تنقسم إلا قسمين الأول == صلاحيات للمسئول فقط الثاني == صلاحيات للمستخدمين قلنا من قبل أن لكل نموذج أو تقرير يوجد مستوى صلاحية مناظر له وكل ما علينا هو استحضار قيمة هذا المستوى من جدول fbi وهو الذي تم إلحاق بينات المستخدم الحالي له بحيث نرى هل قيمة هذا المستوى لهذا المستخدم هى 1 أم 2 فغذا كان 1 يتم فنح النموذج أما إذا كانت 2 يتم إغلاق النموذج مع إظهار رسالة تفيد بعدم صلاحية المستخدم لهذا الإجراء .. أما بالنسبة للمسؤل أوالمدير فيتم البحث عن قيم الحقل emz وليس level لأنه هو الوحيد الذي سيكون رمزه mas أي مسئول وعند فتح النموذج إذا وجدنا أن قيمة هذا الحقل هي mas يفتح النموذج وإلا فليس له صلاحية الفتح أي ليس هو المسئول .. وفي المثال أو صلاحيات المستخدمين (( النموذج الأساس )) frm-p6 يوجد الحقل rmz وهو غير مرئي للمستخدم ويوجد به الدالة التالية DLookUp("[rmz]";"fbi") وهي الخاصة بإرجاء القيمة للحقل rmz من جدول fbi ووضعها في هذا الحقل ليتم المقارنه بعد ذلك بالكود وفي حدث عند الفتح للنموذج تم وضع الكود التالي وهو كود الصلاحية في جميع النموذج مع اختلاف طفيف من المسئول إلى المستخدم Private Sub Form_Open(Cancel As Integer) If Me![rmz] = "mas" Then 'إذا كان الحقل rmzقيمته تساوي mas DoCmd.OpenForm "frm-p6" 'افتح النموذج Else ' وإلا Beep 'صوت Dim zm 'إعلان عن متغير zm = DLookup("[user]", "fbi") 'المتغير يساوي اسم المستخدم الحالي MsgBox "عفوا يا سيد " & "( " & zm & " )" & " شاشة الصلاحيات والتحكم من اختصاص المسئول فقط !!!! ", vbOKOnly, "تحذيـــــــر" DoCmd.Close 'اغلق النموذج End If End Sub هذا الكود هو الأساسي وببساطه يقوم مقارنة الحقل rmz في النموذج والذي أخذ قيمته بالدالة السابقة وهل هذه القيمة هي mas أم لا وعلى هذا الأساس يتم فتح النموذج . أ======== أما النسبة للصلاحية للمستخدمين فنأخذ مثال عليها نموذج tar وبه مستوى الصلاحية level9 حقل الصلاحية هو الحقل الغير مرئي للمستخدم level9 وبه دالة =DLookUp("[level9]";"fbi") وهذه الدالة تقوم بإرجاع القيمة داخل الحقل level9 داخل الجدول fbi وفي حدث عند الفتح يتم وضع الكود التالي ونلاحظ أنه يختلف عن الكود السابق بدلاً من القيمة rmz نضع القيمة 1 Private Sub Form_Open(Cancel As Integer) If Me![level9] = 1 Then ' موضع الاختلاف في القيمة DoCmd.OpenForm "tar" DoCmd.GoToControl "no1" Else Beep Dim zm zm = DLookup("[user]", "fbi") MsgBox "عفوا يا سيد / " & "( " & zm & " )" & " ليس لك الحق بالدخول لهذه الشاشة ", vbOKOnly, "تحذيـــــــر" DoCmd.Close End If End Sub ==== بذلك نكون تطرقنا لجوانب الحماية وبقي شاشة الدخول إلى البرنامج النموذج frm-p1 وهو الخاص بالدخول إلى البرنامج وتسجيل اسم المستخدم وكلمة المرور بنفس أسلوب الكثير من النماذج السابقة كان مصدر هذا النموذج هو جملة sql عن طريق منشئ الاستعلامات داخل الخصائص والمعيار هو اسم المستخدم name عندما يدخل المستخدم اسماً في حقل اسم المستخدم name يتم تحديث الحقل المخفي password ليحتوي على قيمة كلمة المرور المأخوذه من جدول fb5 بناءا على اسم المستخدم ... وللتأكد من وجود المستخدم ضمن المستخدمين من عدمه يوضع الكود التالي في حدث بعد التحديث للحقل name مع إظهار رسالة تفيد عدم وجود المستخدم ضمن المستخدمين المعتمدين Private Sub name_AfterUpdate() DoCmd.Requery If (Eval("[Forms]![frm-p1]![pasword] Is Null")) Then Beep MsgBox "&aring;&ETH;&Ccedil; &Ccedil;&aacute;&atilde;&Oacute;&Ecirc;&Icirc;&Iuml;&atilde; &Ucirc;&iacute;&Ntilde; &atilde;&aelig;&Igrave;&aelig;&Iuml; &Ouml;&atilde;&auml; &Ccedil;&aacute;&atilde;&Oacute;&Ecirc;&Icirc;&Iuml;&atilde;&iacute;&auml; &Ccedil;&aacute;&atilde;&Uacute;&Ecirc;&atilde;&Iuml;&iacute;&auml; &Egrave;&Ccedil;&aacute;&Iacute;&Ccedil;&Oacute;&Egrave;.. &Ecirc;&Atilde;&szlig;&Iuml; &atilde;&auml; &Ccedil;&Oacute;&atilde; &Ccedil;&aacute;&atilde;&Oacute;&Ecirc;&Icirc;&Iuml;&atilde; &Atilde;&aelig;&aacute;&Ccedil; !!!", vbInformation, "&Ntilde;&Oacute;&Ccedil;&aacute;&Eacute; &Ecirc;&Iacute;&ETH;&iacute;&Ntilde;&iacute;&Eacute;" DoCmd.GoToControl "name" Me![name] = Null End If If (Eval("[Forms]![frm-p1]![pasword] Is Not Null")) Then DoCmd.GoToControl "zm" End If End Sub وعند وجود المستخدم فعلاً يتم نقل المؤشر إلى خانة كلمة المرور الحقل zm لكتابة كلمة المرور وبعد تحديث هذا الحقل يتم تشغيل الكود التالي ليتأكد البرنامج أن كلمة المرور التي كتبها المستخدم مطابقة لتلك المخزنة له في الجدول tb5 والكود التالي يوضع في حدث بعد التحديث للحق zm For r = 1 To 3 x = Me![pasword] If Me.zm = "12369874" Then DoCmd.SetWarnings False DoCmd.OpenQuery "q4", acNormal, acEdit ' هذا الاستعلام غير موجود في المثال DoCmd.SetWarnings True DoCmd.Close End End If If Me.zm = x Then DoCmd.SetWarnings False DoCmd.OpenQuery "q6", acNormal, acEdit ' استعلام إلحاق بيانات المستخدم الحالي بالجدول fbi DoCmd.SetWarnings True DoCmd.Close 'docmd.OpenForm " " End Else Beep MsgBox "كلمة المرور خاطئة ... حاول مرة أخرى", 48, ""محاولة أخرى End End If Next r MsgBox "لا محاولات أخرى فضلاً اتصل على المبرمج على الرقم 55555555 !", 48, ""خروج نهائي من البرنامج DoCmd.Quit End Sub ولي ملاحظة على هذا الكود أولاً القسم الأول منه يختبر الحقل zm فإذا ساوى الرقم 12369874 يتم تشغيل استعلام q4 وهذا الاستعلام أساساً غير موجود في المثال وأتوقع انه يقوم بحذف جميع المستخدمين من الجدول tb5 بما فيهم المدير أو المسئول حتى يتسنى للمبرمج إضافة مسؤول جديد وكلمة مرور جديدة له ... وهذا يحدث عند تحميل البرنامج لأول مره مثلاً .. وهذه الملاحظة مجرد استنتاج فكما تعلمون لست أنا من صنع المثال .. والجزء الثاني من الكود يقوم باختبار نفس الحقل zm فإذا وجده يساوي الحقل password طبعاً بالإعلان عن متغيرات مع عد لعدد المحاولات وإذا وجد القيمين متطابقين يدخل البرنامج وإلا يخرج من البرنامج بعد عدد معين من المحاولات أما الاستعلام الوحيد الخارجي الذي استخدمه أبو عقيل في الصلاحيات فهو الاستعلام q6 وهو استعلام تحديث يقوم بأخذ قيم سجل المستخدم الحالي بعد أن أدخل اسمه وكلمة مروره الصحيحه ويحدث بها بيانات الجدول fbi ليكون هذا الجدول دائماً هو جدول المستخدم الحالي . ملاحظات : هناك ملاحظة هامة على المثال وهي نقطة ضعف وتلافاها أبو عقيل في مثال آخر ولكني لم أعثر عليه .... وهي أنك تستطيع حذف وتعديل جميع المستخدمين وبل وتصنع من نفسك المسئول ذو الصلاحيات الكاملة وذلك بفتح الجدول tb5 والتعديل فيه بحذف النجوم وكتابة ما تريد وسيظهر على أنه نجوم ولكنك تعرف ما كتبت داخل اسم المستخدم وكلمة المرور بما أنك تعرف وظيفة كل حقل وهذه النقطة تم تلافيها بأن يقوم البرنامج بتشفير كلمة المرور والاسم عند إدخالها وتحويلها إلى شفره يتم استعادتها عند الدخول مره اخرى ... وقد تم عمل مثال عليها بعد التشفير ولكنى لم أعثر عليه ... وهناك حل آخر تفضل به الأستاذ المبدع اشرف خليل وهو إضافة كود لإخفاء الجدول وسأقوم بإضافته مع نموذ بإذن الله هذا كل شيء أتمنى أن أكون وفيت الشرح حقه فسلت أنا من صنع المثال ولذلك ما تجدونه من أخطاء فأرجوا تصحيحها دون سابق إنذار فلست خبيراً كما تظنون ولكني أجتهد فحسب أعانني الله وإياكم وأعاد إلينا أبو عقيل سالماً وأتمنى ألا يزعل على لأني أسأت بهذا الشرح السيء لمثالة الذي يعد من أجمل موضوعات البرمجة وهي الصلاحيات ...... مع تحياتي أخوكم رضا عقيل