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

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

برنامج المتابعة اليومية للطلاب يحتوي عل التالي : 1- الغياب اليومي للطلاب 2- تسجيل الملاحظات لكل طالب اثناء الحصة من تأخر - آداء الواجبات - السلوك الذي يصدر من الطالب اثناء الحصة .... 3- طباعة تقارير لكل طالب على حده 4- طباعة تقارير خاصة بكل شعبة 5- طباعة احصائيات عن الغياب والسلوكيات المختلفة لكل طالب. 6- استمارة تحويل الطالب على لجنة السلوك بالمدرسة 7- يمكنك حفظ السجل على شكل ملف اكسل. اتمنى ان يحيز اعجابكم ويساعد المعلمين على متابعة الطلاب Follow-Up.rar

أخي العزيز السلام عليكم أرجو أن يكون امطلوب في المرفق Book1.rar

Public Function zaImportAllSheets() Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 blnHasFieldNames = True strPathFile = txtPath strTable = "Sheet" blnReadOnly = True Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, 8, strTable, strPathFile, False, colWorksheets(lngCount) & "$" Next lngCount Set colWorksheets = Nothing End Function أستاذنا الكبير الغالي : استفدت الفكرة التي قد يحتاج إليها السائل لاستيراد عدد محدد من أوراق الأكسل من أستاذتنا الكريمة : زهرة . وما تضمنه الملف السابق من استيراد نتائج الفترات أو نهاية الفصل (للمرحلتين المتوسطة والثانوية [عام - فصلي - مقررات- تحفيظ] أو جداول المقررات ، أو الكشوف و بيانات الطلاب ، و استيراد الأسماء وإعادة تصديرها للبرامج القديمة الداعمة لمعارف)

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

السلام عليكم هذه طريقة اخرى باستخدام الكود ومن ثم اختيار مكان لحفظ الملف على صيغة PDF MM - 1.rar

جرب الملف التالي عله يفي بالغرض Grouping Tabs Or Sheets YasserKhalil Officena.rar

مفيش اي معادله خلي تنسيق الخلايا عام وخلصت كدا تمام

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

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

السلام عليكم ورحمة الله أخي الكريم، الدالة VLOOKUP2ALL غير ضرورية في ملفك لأنك تستعمل العمود الأول من النطاق كعمود بحث في الدالة، وهذه تقوم بها الدالة VLOOKUP العادية، فهي إذا كافية... وإذا كان عمود البحث غير العمود الأول فيمكن استبدال الدالة VLOOKUP2ALL بدوال أخرى تقوم مقامها مثل الدالتين INDEX و MATCH أو غيرها.... بن علية

شكرا حبيبي علي الهدية الجميلة والحمد لله ان ال SKIN اشتغلت معاك كل الشكر والتقدير لك اخي الغالي ولمن يعاني من تسجيل الادوات هذه اداة اخرى لتسجيل الاداوات http://up.top4top.net/downloadf-559jzni1-rar.html

بعد اذن الاخ ياسر و الاخ بن علية زيادة في اثراء الموضوع حل اخر المعكوس salim.rar

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

أخي الحبيب مختار المغوار إليك حل آخر باستخدام المصفوفات عشان لو وصل عدد الأعمدة لألف يبقى الأكواد المقدمة مسبقاً هتكون بطيئة في التعامل (وأهو تدريب لينا على استخدام المصفوفات arrays) Sub ReverseUsingArrays() Dim myArray As Variant, Temp As Variant, LastCol As Long, I As Long, J As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column myArray = Range(Cells(4, 4), Cells(4, LastCol)).Value ReDim Temp(1 To 1, 1 To UBound(myArray, 2)) For I = UBound(myArray, 2) To 1 Step -1 Temp(1, J + 1) = myArray(1, I) J = J + 1 Next I Range("D5").Resize(, UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي

السلام عليكم أخي الامير انا لم انزل برنامجك ، وهذه اجابات عامة عن اسئلتك: بالنسبة للسؤال الاول ، فاعتقد بان العمل كما هو في الرابط التالي افضل لك ، وانا استعمل هذه الطريقة في جميع برامجي تقريبا: http://www.officena.net/ib/topic/65568-تفعيل-ضغط-القاعدة-عند-الاغلاق/?do=findComment&comment=426819 والسؤال الثاني ، انظر الرابط التالي: http://www.officena.net/ib/topic/66017-مشكله-في-التقارير/?do=findComment&comment=429531 واذا لازلت محتاج مساعدة ، فتفضل واترك سؤالك هنا جعفر

لقد حملت هذا البرنامج من موقعنا الموقر لكن اريد طلب بسيط هو ان يتم ترقيم الفواتير وحفظها في البرنامج اي عندما اكتب رقم الفاتورة تظهر لي الفاتورة المخزون.rar

السلام عليكم ورحمة الله أخي الكريم، هذه الرموز {} (الحاضنتين) التي تظهر في بداية المعادلة (قبل رمز =) والأخرى في نهاية المعادلة هما رمز "دوال الصفيف أو المصفوفات" ولا يجب إضافتهما يدويا بل يجب إضافتهما بعد الانتهاء من كتابة المعادلة وبدلا من الضغط على مفتاح ENTER (كما تعودنا في المعادلات) يجب الضغط على 3 مفاتيح في آن واحد وهي : CTRL+SHIFT+ENTER (من اليسار إلى اليمين: الأولى CTRL و الثانية SHIFT والثالثة ENTER) وعند هذا التأكيد تظهر العلامات السابقة تلقائيا.... والله أعلى وأعلم أخوك بن علية

مشكووووووور أستذنا الغالي رمهان أولا بخصوص الملف قمت بإرفاقه فارغا بعد تعبي من المحاولات و لاعتقادي بأني غيرت قيم كثيرة ثانيا كنت أعتقد بأن الكود مدمج داخل الأكسس ويتم توليد الأشهر تلقائيا ولا يحتاج إلى مصدر الصف بخصوص الحدث والله لا أدري أين أضعه ، وضعته في البداية في "cboMonth Click" ثم "form open" ثم "form current" -------------------------------------------------------------------------------------------------------------------------------------- إذا أمكن أستذنا زيارة هذا الموضوع http://www.officena.net/ib/topic/66084-كيف-يمكن-الحصول-على-رسالة-msgbox-ديناميكية/ لذا فكرت بعمل فورم أقوم بفلتر التقرير ثم من خلال زر أقوم بالطباعة -------------------------------------------------------------------------------------------------------------------------------------- كل ما أريده هو إظهار السنوات داخل مربع سرد إظهار الأشهر داخل مربع سرد آخر إذا أمكن طريقة بسيطة وسهلة أكن لك من الشاكرين بالشرح الممل لو تكرمت علينا بارك الله فيك وفي علمك ورزقك من حيث لا تحتسب

هو الموضوع قديم ولا إحنا نايمين وبنحلم حلم جميل ..؟ أخونا الغالي رجب جاااااااااااااااااااويش وأخونا الحبيب محمود الشريف .. في يوم واحد أشوف مشاركة ليهم أحمدك يااااااااااااااااا رب عوداً حميداً وأرجو أن تكونا بخير تقبلا وافر تقديري واحترامي

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

الأب الحبيب الأستاذ القدير / محمد حسن المحمد كل عام وحضرتك بألف خير كما موضح Field Settings لا يوجد بها كلمة Number Format للدخول منها إلى القسم Custom والقسم Custom عند الدخول فيه لا يوجد به مكان للكتابة فهو فقط إختيارات تقبل تحياتى

السلام عليكم ورحمة الله أخي الكريم، قمت باستبدال الدالة VLOOKUP2ALL بمعادلة صفيف باستعمال الدالة INDEX مرفقة بالدالة SMALL بمرتبتين... أرجو أن يكون المطلوب... أخوك بن علية برنامج توزيع اللجان مزدوجة ومشتركة.rar

أخي الغالي ياسر في نافذة Pivot Table Fields روح للحقل المسمى Billing Date واعمل كليك عليها هيظهر لك قائمة اختر منها Field Settings هيظهر لك نافذة فيها كلمة Number Format روح للقسم Custom واكتب mmm تقبل تحياتي

برنامج جميل لكن للأسف مش مجاني تقبل تحياتي

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

وعليكم السلام ورحمة الله تفضل أخي هذا الكود If Len(Me.PicFile) And Me.PicFile <> "(none)" Then Shell "C:\Windows\System32\MSPaint.exe " & Chr(34) & Me.PicFile & Chr(34), vbMaximizedFocus End If حيث PicFile هو مربع النص الذي به مسار الصورة

ذلك من فضل ربي حفظك الله اخي الفاضل واي شيئ بمقدروري المساعدة فيه فلن ابخل به

تفضل ... البرنامج3.rar

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

و عليكم السلام ورحمة الله وبركاته ... اخي اسم الخلية هو a1 لذلك تم تعديل الكود بناء على ذلك وعند الخروج من الالنموذج الفرعي ( عند الضغط بالماوس على اي مكان في النموذج خارج الفرعي ) سيتم تنفيذ لكود البرنامج2.rar

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

اخ الغالي سأبحث لك في هذا الموضوع لاني لم اقم بتثبيت البرنامج علي نظام 10 سواء 32 او 64 وارجو من الاخوة المتابعين ان يذكرو نظام التشغيل لديهم لنعرف مدى عمل البرنامج ولا اظن انه يوجد نسخه محمولة بكل ادواتها ومكتباتها ومراجعها لان البرنامج يقوم بزرع هذه الاداوت داخل نظام التشغيل وتسجيلها في الريجستري فظني انه اذا جائت نسخه محمولة بردو ستجد مشكلات المكتبات والاداوت ممكن تريح دماغك حاليا وتعمل نسخة اكس بي فير(شوال) علي ويندوز 10 ايه رأيك وتسطب عليها البرنامج لانه مثل هذه البرامج فات عليها زمن احنا متأخرين جامد انا كنت بشتغل علي ويندوز ميلينوم و98 وكان الفيجوال6 ساعتها له بريقه ولمعانه اما الان فهذا هو الموجود VB.NET والتي تعتمد في عملها علي مجموعات النت فريم وورك باصداراتها بجانب انك تستطييع اضافة بعض الادات الاخرى ايضا ومن المعلوم ان اصدارات انظمة التشغيل الاخيره كلها تعتمد علي حزم النت فريم وورك بذلك تتجنب نقص الادوات وتسجيل الادوات والكلام دا كله

مشكوووووووووووور رائع تم فهم الموضوع وحل المشكلة وشكرا

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

السلام عليكم ورحمة الله أخي الكريم، لقد قدّم لك أخونا أبو البراء الكثير والكثير في الموضوع وطلب منك طلبا بسيطا وهو التعرف عليك بالاسم ولم توفّ طلبه... المهم أقدّم لك العمل التالي في الملف المرفق والذي تم بالمعادلات (معادلات صفيف لاستخراج الثنائيات التي تتحقق فيها الشروط) وقد تم الاستغناء عن المجاميع غير الضرورية والتعديل على معادلات المجاميع في الجدول (والتي جعلت الجدول على شكل مثلث لتجنب التكرارت في الثنائيات -مثلا الثنائية (b,c) هي نفسها الثنائية (c,b) نحتسبها مرة واحدة-) وهذا حسب فهمي للمطلوب والشروح التي قُدّمت... أرجو أن يكون كذلك وأن يفي بالغرض... أخوك بن علية مطلوب تعديل.rar

السلام عليكم أخي طارق الشئ الوحيد الذي لم اعمله هو ان اضع كلمة السر على النموذج ، حيث انك لم تذكر اسم النموذج الذي تريد ان تضع عليه كلمة السر!! وسؤال آخر ، ما دمت تستخدم ملف الحماية mdw ، فما الداعي لعمل نموذج خاص للإسم المستخدم وكلمة السر؟ فإذا كنت تريد ان تستخدم اسم المستخدم لأغراض التحكم في الصلاحيات ، فتستطيع عن طريق User and Group Permissions ان تفعل ذلك ، واذا اردت اسم المستخدم لأي سبب كان ، فهو موجود في CurrentUser اليك طريقة عمل كلمة السر لجزء الجداول: افتح برنامج الاكسس (ليس برنامجك ، ولكن الاكسس شخصيا ) ، ثم . . وكلمة السر التي استعملتها هي jj . وعندما تغلق البرنامج وتفتحه مرة اخرى: . اما كيفية وما هي الكائنات المطلوب استيرادها من FE اللي انا عملته ، فاليك الخطوات: افتح برنامجك FE ، ثم: . النموذج هذا ، حتى نستخرج منه طريقة عمل كلمة سر فتح النموذج ، ثم نستطيع حذفه من البرنامج . الماكرو AutoExec معناه انه اول شئ يشتغل لما تفتح برنامجك ، ولا داعي للذهاب الى اعدادات البرنامج واختيار النموذج الاساسي ليفحه البرنامج عند تشغيله ، وسنتكلم لاحقا عن هذا الماكرو . الوحدة النمطية basJStreetAccessRelinker تقوم بربط FE مع BE كلما لم يجد الـ FE جداول BE في مكانها ، وستلاحظ عند فتحك FE لأول مرة ، انه يفتح لك نافذة ويطلب مكان BE ، اما الوحدة النمطية m_Turn_Off فقد عملتها لجعل البرنامج يشغل ويملئ الشاشة ، ولا يعطي المستخدمين ادوات التصميم: . وقبل استعمال البرنامج ، يجب تعديل الماكرو AutoExec حتى يقوم بالخطوات التي نريدها . نغلق البرنامج ، ثم نفتحه ، فيطلب منا مكان BE (اول مرة فقط) . ولأن BE محمي ، فعند الربط بين FE و BE لأول مرة ، فيجب ادخال كلمة السر (وكلمة السر jj ، وستدخلها مرة واحدة فقط ، ولن يطلبها منك البرنامج مرة اخرى) . الى هنا وانتهينا من ربط FE و BE ، ولكن هناك بعض الامور الاخرى التي تستطيع عملها لتسهيل عملك ، او لزيادة الامان: يمكنك ان تستخدم الاختصار (عادة تضعه على سطح المكتب) ، وتضع فيه اسم المستخدم وكلمة السر ، وعند النقر عليه مرتين ، لا يسألك عن كلمة السر ، وطبعا هذا ممكن ان تستخدمه انت كمصمم ، ولا تسمح للمستخدمين ان يدخلوا بياناتهم: . وهذه هي المعلومة كاملة (طبعا لازم تغيرها حسب بياناتك وبيانات كمبيوترك) ، وطبعا يستطيع اي شخص يفهم الاكسس ان يدخل الى هنا ومعرفة اسم المستخد وكلمة السر ، لذا انتبه لها ، او لا تستعملها اصلا: . هناك شئ آخر استعمله انا في برامجي ، وهو نوع من الحماية ايضا ، وهو انك لا تسمح للبرنامج ان يفتح اذ لم يُفتح عن طريق اختصار المكتب ، فالبرنامج يعطي رسالة بانك غير مخول ، ثم يغلق البرنامج ، هذا مفيد اذا احد المستخدمين اخذ نسخة من البرنامج ، فلن يشتغل له في البيت (طبعا كلامنا كله ليس عن الشخص الخبير بالاكسس) ولعمل هذا ، نضع الكود على اول نموذج يتم فتحه (وهو نفس المكان الذي نضع عليه كلمة سر النموذج): . والكود هو: . جعفر 332.tito.zip

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

السلام عليكم مع انشغالي ولكن حبيت ان اوضح نقطة ممكن تخفى على الكثير وهي انه حسب نوع recordset ! قد تحتاج المرور على السجلات فقط اذا كان النوع dynaset مستخدما جملة sql ! بالتوفيق

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

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

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

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

وعليكم السلام أخي كامل في عندك خطأ في الاستعلام qryuserpwd . ولكني لم اجد سببا لإستخدامه في النموذج ، فاستخدمت الجدول user مباشرة (يعني تستطيع ان تحذف الاستعلام qryuserpwd) : . وبدل ان نستعمل الاسطر 1-4 ، كان بإمكاننا استخدام السطر رقم 5 فقط ، ولكني جزّأت الدالة حتى يسهل عليك ان تضيف اي عدد من المعايير ، فغالبا هنا يُخطئ الكثير ولا يعرفون الطريقة الصحيحة للمعادلة ، بينما لما جزّأت السطر الى عدة اسطر ، فالمسألة اصبحت سهلة ان شاء الله ولاحظ التنسيق في الكود ، فلم اجعل الاسطر تبدأ من بداية السطر ، وانما عملت TAB وازحت الاسطر لكي تتناسب مع مجموعتها ، فبالطريقة هذه تستطيع ان تقرأ الكود بسهولة وعندما تستخدم DAO.Recordset فيجب عليك ان تأخذ المؤشر الى نهاية الجدول rst.MoveLast ثم تُرجع المؤشر الى بداية الجدول rst.MoveFirst حتى يكون الجدول يتم قراءة محتواه بالكامل ، وإلا rst.RecordCount لن يعطيك النتيجة الصحيحة ، ولا For Next جعفر 328.kamel.accdb.zip

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

وعليكم السلام ورحمة الله وبركاته مشاركة مع زملائي وبالتحديد تفعيل الخيار الضغط عند الاغلاق : انا مع ابو خليل وذلك للاسباب التالية 1. لم ياتي الخيار افتراضيا معمول صح ! معناته يوضع في حالات خاصة وهنا اتوقع انه عندما يكون لديك انشاء كائنات وحذف كائنات في نظامك اي هناك تعديلات في البنية او تركيبة القاعدة فهنا تحتاج بالضرورة لتفعيل هذا الخيار ! اما اذا كانت لحجم البيانات فهنا تستطيع ان تفعل الخيار في اوقات تحددها انت ثم تعيد ازالة الخيار ! فمثلا استطيع ان احدده عند وقت محدد او عند وصول حجم القاعدة الى حجم معين ! 2. لو كان من الافضل وضع الخيار دائما لتم وضع هذا الخيار ضمنيا في الاكسس وبدون خيار صريح للمستخدم لاحظ انه تولدت فكره من سؤالك ولضغط القاعدة الحالية وذلك بتفعيل الخيار ثم الاغلاق ثم الفتح وتعطيل الخيار وذلك من الامر : Application.SetOption "Auto compact", true Application.SetOption "Auto compact", False تحياتي

اخى الكريم ارفق لك مثالين للضغط والاصلاح احدهم لاختنا زهره جزاها الله كل خير والثانى للاخ سعود بارك الله فيه ولكن مقفول لن تستطيع الاطلاع على اكواده بالتوفيق مثال على الضغط والاصلاح للنسخة العربية والانجليزية.rar نسخ_ضغط و اصلاح قاعدة بيانات برمجيا..zip

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

السلام عليكم ورحمة الله أخي الكريم إن الدالة COUNTCOLOR ليست من دوال إكسيل ولكنها دالة مستحدثة وقد وضعت في الملف "صحيحة.xls" على شكل كود الذي هو: Function CountColor(cell_range As Range, color_cell_index) As Integer Dim rCell As Range Dim cell_count As Integer cell_count = 0 For Each rCell In cell_range If rCell.Interior.ColorIndex = color_cell_index Then cell_count = cell_count + 1 End If Next rCell CountColor = cell_count End Function Function Color_index(cell_range As Range) As Integer Color_index = cell_range.Interior.ColorIndex End Function ما عليك إلا نسخ الكود في ملفك وستعمل الدالة جيدا... والله أعلم

السلام عليكم ورحمة الله أقدم لأخوتي الكرام ملفين (أو برنامجين) خاصين بفك كلمة السر لأنواع كثيرة من الملفات... ونظرا لحجمهما أرتأيت أن أحملهما في موقع آخر... وإليكم رابطاهما: الأول : http://www.mediafire.com/download.php?zmomzmnmmyj بعد تحميله يتم تنصيبه (وربما سيعلن أن في برنامج منه يوجد فيروس قوموا بحذفه... وهذا لا يؤثر على عمل البرامج الخرى التي يحويها) وهو قوي جدا في إيجاد كلمة السر، وقد قمت بتجربته شخصيا على ملف من نوع إكسيل وضعت فيه كلمات سرية عديدة مثل كلمة سر الملف ككل (كلمة سر فتح الملف)، كلمة سر القراءة فقط، كلمة سر المصنف، كلمة سر المشاركة في المصنف، كلمة سر الحماية لكل أوراقه وقد تم تعيينها كلها... بالنسبة لكلمة السر في VBA يمكن استعمال البرنامج الثاني باستخدام برنامج vbakey.exe الثاني : http://www.mediafire.com/download.php?jntt1dhyq3r هذا يتم استخراجه في دليله الخاص أو في آخر أتمنى أن تعجبكم هذه البرامج... وأخوكم موجود لأي استفسار...