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

بسم الله الرحمان الرحيم أما بعد فاتحية خاصة الى زملائي في منتدى أوفيسنا اكسل مفتوح المصدر شاهد بنفسك سهل الاستعمال وهو عادي ليس مطور ........... الحمد الله CL01.rar

السلام عليكم ورحمة الله وبركاته مرحبا بكم اعزائي و ضيوفي الكرام في هذا المنتدى العظيم اليوم خطرت على بالي فكرة جميلة وهي لمن يعانون من البحث في اكسل أي ليست في صفحة واحدة بي المثال ليست التي فيها قاعدة بيانات الطلاب وتبحث فيها أنا برمجتها بطريقة سهلة وغير متعبة اي اذا كانت عندي 24 صفحة قاعدة بيانات من نفس الصفحة 01 تختار الضغط على الزر وعندها تكتب اسم الموظف او التلميذ أو عميل الخ....... فيعطيك النتيجة بدون اي تعب لهذا أنا سأترككم مع هذا الملف البسيط ولكنه جيد ونرجو من سيادتكم اعطاء ملاحظاتكم و آرائكم حتى وان كانت سلبية. وشكرا. أخوكم في الله مناد سفيان - الجزائر الرقم السري لكود البرمجة : 0123456789 اكسل بحث بسيط.rar

السلام عليكم ورحمة الله وبركاته مرحبا بكم اعزائي و ضيوفي الكرام في هذا المنتدى العظيم اليوم سوف أقدم لكم ملف جميل وهي الة حاسبة جميلة و بي شكلها الظريف التي تمكنك من استعمالها بكل سهولة وحرية. أخوكم في الله مناد سفيان - الجزائر Calculator-Excel-VBA.rar

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

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

السلام عليكم أخواني الكرام اليوم عملت فاعدة بيانات ولكن تنتفيذي أي Exe pour les information en cours وهي معمولة على اللغة البرمجة فيزيال بسيك 06 وليس مطور اكسل أي لغة البرمجة الاصلية أي استفسار فأنا تجت الخدمة ملاحظة : أنا أعمل جاهدا لأوصل لكم هذه المعلومة بالغة العربية رغم أني أتكلم اللغة الفرنسية وأعتذر منكم أي سوء تعبير كتابي شكـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا Admin Notes.rar

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

و عليكم السلام و رحمة الله و بركاته اخي العزيز تفضل التعبير : Total: IIf([f]=1;[s]+[m]+[r];IIf([f]=2;[a]+[d]+[n];IIf([f]=3;[t]+[l]+[h];IIf(IsNull([f]);0)))) تفضل مثال على ذلك بالتوفيق test.rar

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

السّلام عليكم و رحمة الله و بركاته مرحبًا أخي الغالي " altarafalzahabi" الملف حملته ولكن مش شغال وشكرا ... سبحان الله و بحمده .. سبحان الله العظيم

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

فورم بحث في تفسير القرآن الكريم والقران الملف 3 صفحات انظر الصور الفيديو الملف بحث في تفسير القرآن الكريم.rar

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

اليك القاعدة Database1 (1).rar

استخدم هذا =DateDiff("d";format([Text2];"dd-mm-yyyy");format([Text6];"dd-mm-yyyy"))

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

استخدم هذا =DateDiff("d";[Text2];[Text6]) بدل هذا =[Text6] - [Text2] اليك المرفق Database1.rar

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

و عليكم السلام اخي العزيز اسلام ما تحتاجه هو مجموعة خيارات او ما يسمى Option Group وليس خانة اختيار الكود التالي سيؤدي الغرض بدون استعلام Select Case Me.frame1 Case 1 DoCmd.OpenReport "rpt1", acViewReport, , "testDegree = " & Me.testDegree & " And weekPNumber = " & Me.weekNo Case 2 DoCmd.OpenReport "rpt1", acViewReport, , "testDegree > " & Me.testDegree & " And weekPNumber = " & Me.weekNo Case 3 DoCmd.OpenReport "rpt1", acViewReport, , "testDegree < " & Me.testDegree & " And weekPNumber = " & Me.weekNo End Select حيث frame1 هو مجموعة الخيارات testDegree اسم حقل الدرجة و الذي قمت بتغيير اسمه و نوعه الى رقم ... و ايضاً هو اسم مربع النص الخاص بالدرجة على النموذج weekPNumber هو رقم الاسبوع و تم تغيير اسم الحقل ايضاً weekNo هو اسم مربع النص على النموذج و الخاص برقم الاسبوع تفضل المرفق بعد التعديل انصحك باعطاء الحقول و الجداول و جميع كائنات الاكسس اسماء عربية بالتوفيق مشكلة التشيك بوكس.rar

اخى الحبيب الكريم شكر الله لكم جميل دعواتكم الطيبه واحسن اليكم اسال الله تعالى ان يرزقكم اجرها واكثر منها ان شاء الله وان كنت لابد داعيا اسالكم على استحياء الدعاء لاستاتذتنا الكرام فى هذا الصرح الشامح فمنهم تعلمنا وعلى ايديهم تتلمذنا علم بقصروا او يبخلوا ولم يضيق صدورهم معنا فلذلوا الغالى والنفيس فلولا فضل الله سبحانه وتعالى ثم افضالهم جميعا لما كان هذا حالنا نحن طلاب العلم فى هذا الصرح الشامخ العريق واجابة على مطلب حضرتك طبعا زى ما عملنا مع مربع نص الاسم حسب الشرح السابق condition1 >>-----------> تحقيق الشروط الاول بتحديده فى الحقل الذى اشرنا اليه سابقا ولانه موجود فى التقرير فى مربع نص باسم txtname تم كتابته بين علامتين & وفى هذه الحالة ومع طلبك الجديد يكون التعديل على الشرط الثانى condition2 >>-----------> تحقيق الشروط الثانى بتحديده الحقل الدال عليه فى الجدول فى قاعدتك هو الترقية وعنصر التحكم الدال عليه فى التقرير هو مربع نص باسم nn ويتم كتابته بين علامتين & فيتم تغير سطر الكود السابق الى خذا السطر txtcounupgrade = DCount("[الترقية]", "الاستبان العام", "[الاسم]='" & txtname & "' And [الترقية]='" & Me.nn & "'") وهذا مرفقكم بعد التعديل عليه اعتذ للتأخير فى الرد عليكم انا فى العمل واعتذر ان وجدت اى اخطاء املائيه الكيبورد كلها انجلش وباكتب بسرعه وبدون مراجعه لضيق وقتى 5عدد مرات تكرار الاسم.rar

اتفضل المرفق بعد التعديل مره بالكود داخل التقرير وفى التقرير الاخر وضع الكود على مصدر بايانات مربع النص مباشرة للاسف مش قادر اشرح واسماء الحقول والجدول بالعربى انا عملت لك شرح داخل الكود بالانجليزى وهنا الشرح تفصيلا واعيد لك الشرح مرة اخرى هنا طلب حضرتك حتى يتحقق يحتاج للاتى DCount Multiple Criteria اى تحقيق الدالة DCount بأكثر من شرط الشرط الاول هو اسم محدد الشرط الثانى هو عدد ترقيه محدده لهذا الاسم المحدد 'الشرح 'xx = DCount("[field need count it]", "tblname", "[field first condition]='condition1' AND [field second condition]='condition2'") DCount("[field need count it]", "tblname", "[field first condition]='condition1' AND [field second condition]='condition2'") field need count it >>-----------> الحقل المراد عمل عدد لمحتوياته حسب الشروط الاتيه فيما بعد وفى قاعدتك هو الترقية tblname >>-----------> اسم الجدول او الاستعلام الذى يحتوى على هذا الحقل وفى قاعدتك هو جدول الاستبان العام field first condition >>-----------> الشرط الاول هو اسم محدد والحقل الدال عليه فى الجدول فى قاعدتك هو الاسم condition1 >>-----------> تحقيق الشروط الاول بتحديده فى الحقل الذى اشرنا اليه سابقا ولانه موجود فى التقرير فى مربع نص باسم txtname تم كتابته بين علامتين & AND >>-----------> لتهيئة الكود بوجود شرط اخر كما سيلى فيما بعد field second condition >>-----------> الشرط الثانى وهو مرتبط بحقل محدد والحقل الدال عليه فى الجدول فى قاعدتك هو الترقية condition2 >>-----------> تحقيق الشروط الثانى بتحديده وكما تريده انت فى طلبك ممتاز وهذا وكانك تخبر البرنامج بان يذهب الى جدول الاستبان العام وان يقوم بعد حقول الترقية للاسم خالد عندما تساوى قيمة الحقل لهذا الاسم ممتاز وهكذا يتغير شكل الكود وترتيبه بعد كتابته بسبب الكلمات العربى txtcounupgrade = DCount("[الترقية]", "الاستبان العام", "[الاسم]='" & Me.txtname & "' AND [الترقية]='ممتاز'") لذلك اوصيك كما تعلمنا من اساتذتنا الكرام جزاهم الله عنا جيرا ان شاء الله تسمية الجداول والحقول بالانجليزية وكذلك الاستعلامات وباقى الكائنات دون ترك مسافات بين الكلمات 4عدد مرات تكرار الاسم.rar

السلام عليكم أخي الكريم في حال السنة إخترت لك معادلة أخري تفضل المرفق مثال2.rar

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

أهلا بكم.. إذا كان أحدكم يستخدم Windows ويتصل بالانترنت عن طريق شبكة اتصال ثابتة (Router) سلكي أو لا سلكي، فيمكن عمل محرك أقراص شبكي بعد تفعيل مشاركة الملفات والطابعات من الخصائص المتقدمة... وبعد ذلك يمكن وضع مجلد قاعدة البيانات الخلفية في مجلد المشاركة العام وذلك لتسهيل عملية الفحص والتجربة في المنزل! قمت بتجربة الشفرة على Windows 10 وهي تعمل بشكل جيد سواء عند الاتصال أو قطع الاتصال.. يمكن مشاهدة محرك الاقراص الشبكي قبل إغلاق قاعدة البيانات.. لكن بعد إغلاق قاعدة البيانات ينقطع الاتصال بمحرك الأقراص ويختفي من القائمة.. في Windows 10 يجب أن يكون الحساب محلي وليس حساب خادم Microsoft (التسجيل باستخدم البريد الالكتروني). من المهم جدا عند استخدام محرك الأقراص الشبكي أن يشار إليه مباشرة عند الاتصال بقاعدة البيانات الخلفية بالطريقة التالية Tbl.Connect = ";DATABASE=Z:\tbl.mdb" إذا كان حرف محرك الأقراص مستخدم من قبل Windows فسوف تظهر رسالة بأن محرك الأقراص مستخدم من الجيد فحص الاتصال بقاعدة البيانات قبل مطالبة المستخدم بإعادة الاتصال ولتحقيق ذلك نستخدم الشفرة التالية Function IsTblLinked() As Boolean On Error GoTo Err_Handler Dim Tbl As TableDef IsTblLinked = False For Each Tbl In CurrentDb.TableDefs If Len(Tbl.Connect) > 0 Then If Dir(Split(Tbl.Connect, "=")(1)) <> "" Then IsTblLinked = True End If End If Next Exit_Function: Exit Function Err_Handler: MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description Resume Next End Function تعيد هذه الشفرة قيمة منطقية موجبة إذا كان هناك اتصال ، أو قيمة سالبة إذا لم يكن اتصال... عندئذ يمكن إظهار نموذج أعادة الاتصال.. من المهمة هنا التحقق من تكوين محرك الشبكة والاتصال بقاعدة البيانات قبل الخروج من النموذج وذلك بإعادة تمرير الوظيفة IsTblLinked بعد نجاح الاتصال يمكن إغلاق النموذج وفتح النموذج الرئيسي لقاعددة البيانات.. قطع الاتصال بمحرك الأقراص يكون عند إغلاق قاعدة البيانات.. فإذا لم يتم الاتصال بنجاح، أو حدث قطع الاتصال من خارج قاعدة البيانات فسيعيد إغلاق قاعدة البيانات خطاء مفاده أن محرك الأقراص غير ظاهر. قمت بعمل الوظائف الإضافية لكني لم إدرجها في أماكنها اعتمادا على ما سبق بيانه.. أتمنى للجميع التوفيق app.zip

2عدد مرات تكرار الاسم.rar

بسم الله الرحمان الرحيم والصلاة والسلام على سيدنا محمد 1- لدي مشكل في اضاقة كشف النقاط وصب المعدلات عليها 2- بطاقة معلومات الأساتذة كما هو ميبن في المرفق 3- هناك بعض النقائص عليها فأرجو منكم مساعدتي وشكرا لكــــــــــــــــــــــــــــــــــــــم base de donnee stagiaires.rar

بسم الله الرحمن الرحيم والصلاة والسلام على سيدنا محمد أما بعد كما عودتكم عن سلسلة عجائب وغرائب رقم 03 لماذا سميته رقم 03؟ لأنكم سوف ترون أشياء قد تذهلكم في اكسل والله روعععععة طلب صغير منكم : فقط الدعاء لي منكم أخوكم في الله مناد سفيان ملاحظة هامة : عندي 12 من قواعد بيانات سهلة ومن ثم سأريكم عجائب VBA أحبكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــم في الله

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

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

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

بسم الله الرحمان الرحيم والصلاة والسلام على سيدنا محمد اقدم لكم جدول تصفية المنح جديد وهو عبارة عن حساب جدول المنح خاص باالمؤسسات تحياتــــــــــــــــــــــــــــي لكـــــــــــــــــــــــــــــــــــــم جدول تصفية المنح جديد.rar

شكرا لك ياأستاذ محمد على الملاحظة

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

بارك الله فيك

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