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

الأستاذة @محمد أبوعبدالله @husamwahab @فايز.. بارك الله فيكم ..... إنما أنا تليذكم ولا زلت اتعلم منكم احسن الله اليكم وبحسن ظنكم بي ..... هذا دأب الكبار أمثالكم التواضع .... رفع الله قدركم

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

بالخدمة اخي العزيز وبالفعل افضل معالجة هي للاستاذ Barna

جرب الملف ,,,, ‏‏faiz - نسخة.mdb

اخي العزيز المشكلة هي بنقل البيانات من الاكسيل للاكسيس لانه عند نقل حقل الصف فلا يتم نقل الرقم وحده وانما يتم مع اضافة مسافات المهم اعتمد هذا التعديل faiz-20.rar

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

السلام عليكم احببت ان اقدم لكم شرح لي لكيفية عمل شاشة دخول مع صلاحيات مستخدمين شاشة دخول بصلاحيات - للشرح.mdb

الأستاذ @محمد أبوعبدالله @husamwahab @Barna شكر الله لكم على ما بذلتم ، واسمحوا لي أن أجعل مشاركة الأخ @Barna كأفضل إجابة .. وذلك أنها هي التي وافقت المراد . مرة أخرى أقول ( لا حرمكم الله أجر المشاركة ونفع الناس )

تفضل اخي العزيز ارجو ان يكون طلبك libraiesT2.rar

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

بارك الله فيك أخي أمير بالفعل هذا ما اريد ........ زادك الله من بحور العلم .... جزاك الله خيرا ونفع بعلمكم

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

جزاك الله خيرا استاذ @عبد اللطيف سلوم 💐

بالخدمة استاذ ازهر عبد العزيز

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 فلم افعل شئ بالتوفيق

الملف المرفق من قبل الاستاذ ابوعارف جزاه الله خيرا libraiesT1.accdb

مشاركة مع اخي واستاذي محمد أبوعبدالله تفضل اخي العزيز ارجو ان يكون طلبك faiz-12.rar

libraiesT1.accdb

شاهد المرفق في هذه المشاركة تم ارفاق الملف للفائدة inputbox with password mask.xls

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم سجل الطلاب القدامى.rar تحياتي

وعلسكم السلام ورحمة الله وبركاته تفضل اخي الكريم Microsoft Access Database جديد.rar تحياتي

السلام عليكم بالنسبة لتقييم البرنامج فهو ما شاء الله واضح انه متعوب عليه ولا ازيد على النقاط التي ذكرها استاذنا الفاضل اخي @kha9009lid بالنسبة لنقطة السعر سعر البرنامج يتوقف على عوامل كثيرة منها على سبيل المثال لا الحصر 1 - حاجة الزبون اليه (مثال : الصيدلية يختلف احتياجها عن السوبر ماركت للبرنامج ) 2 - هل البرنامج يغطي جميع ما يحتاجه الزبون ام لا ( احيانا تجد طلبات لم تخطر بالبال وهذه ما اكثرها ) 3 - المنافسة ( هل الزبون لديه خيارات غيرك ام لا ) 4 - خدمة ما بعد البيع بالسنبة للعميل ( هل يثق في وجودها ام لا - وما هي انواعها ) 5 - حالة الزبون المادية بالنسبة لمشروعه ( ضخم - متوسط - صغير ) والله اعلم

مرفق حل بواسطة معادلة ربما لم يكن المطلوب، لكن ربما يفيدك أو شخص آخر تحياتي وبالتوفيق تعبئه تلقائيه - بالمعادلات.xlsx

بالمناسبة تم تغيير بعض اسماء الحقول لانها محجوزة في الاكسيس وهذا الكود كاملاً On Error GoTo Error_ErrorZ ' تصفير حقل XDay mySQL = "Update Student" mySQL = mySQL & " SET XDay = 0" CurrentDb.Execute (mySQL) mySQL = "Select * From Student" mySQL = mySQL & " ORDER BY Xclass" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveFirst Do Until rst.EOF For i = 1 To 5 rst.Edit rst!XDay = i rst.Update rst.MoveNext Next Loop Error_ErrorZ: If Err.Number = 3021 Then Else MsgBox Err.Number & vbCrLf & Err.Description End If تحياتي

السلام عليكم تفضل اخي الكريم جرب واعلمني بالنتيجة faiz.rar تحياتي

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

مجهود رائع .. ومسألة حماية البرنامج سهلة ممكن تراسلني على البريد الألكتروني وانا اساعدك ragabfarouk2004@yahoo.com

جرب هذا الملف Ziad.xlsx

تفضل االمطلوب عند تكرار الاسم في الخيارين الاول و الثاني لن تظهر النتيجة تعبئه تلقائيه.xlsm

اسف على سوء الفهم تم التعديل وإن شاء الله يكون المطلوب ورقة عمل.xlsm

OmHamza فين انتى من كل هذه الإجابة الممتازة ؟!!! أين الضغط على الإعجاب ؟!!!💙

المطلوب ليس له حل مثالي، لأن التوزيع مبنى على قيم غير متوافقة (اللغات/ المبالغ) لكن من حسن الحظ أن عدد العملاء كبير في مقابل عدد الموظفين قليل، والتفاوت في المبالغ محدود وليس كبير وهذا جعل عملية التوزيع العشوائي تعمل بشكل جيد ولتأكيد ذلك: قمنا بتوزيع العملاء بالترتيب على الموظفين بالتناوب فظهرت المبالغ التالية: وهذه نسب متقاربة جدا جدا فأول نقطة تجاوزناها: الموظفين يوزعون بالتسلسل وهذا سيحقق الغرض بقي نقطة توزيع العملاء على شيتات الموظفين، تم عمل شيت لكل موظف، ويمكن التحديث بزر التحديث في أعلى يمين الصفحة توزيع العملاء -3.xlsm وبالتوفيق

اخي الكريم انت تريد اظهار التقرير في حال كان النموذج منبثق . صحيح ....

تفضل هذا التعديل لقد تم ادراج جدول فيه رقم المركز ومقابله رقم الحجرة الممنوعة بالنسبة للخطا اعتقد انك اضفت مراكز او حجرات لانه مبني على 16 مركز و18 حجرة وهي محاولة لحين الوصول للنتيجة المطلوبة ,الافضل ارسال الملف الذي فيه الخطا ملاحظة: عند الضغط على زر توزيع سيظهر في جدول المراكز المتبقي لذا لاعادة البيانات تم وضع زر ريسيت Corrected-dd.rar

السلام عليكم يمكنك استخدام الكود التالي مع نغيير ما يلزم ( اسم النموذج - مربعات النص ... الخ ) Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Dim X As Integer X1 = Forms!frm1!combobox1 If X1 = 1 Then Me.Text1.Visible = True Me.Text3.Visible = False Else If X1 = 2 Then Me.Text1.Visible = False Me.Text3.Visible = True End Sub تحياتي

كبداية يمكن تجربة هذا الملف 1-- الضغط على اي خلية خضراء في الشيت "Data " يذهب بك فوراً الى الورقة المطلوبة 2- الضغط على زر " Add_sheets" يضيف صفحات جديدة (باسماء الجنسيات الجديدة غير الموجودة) اذا كانت الجنسية لها صفجة يتغاضى الكود عنها 3- الضغط غلى الخلية "D1 " من أي صفحة يعيدك الى صفحة "Data" Disribution_Om_Hz_super.xlsm

سيق وقلت 1- اسماء الشيتات باللغة الأجنبية 2- لا ضرورة لأكثر من 20 صف ( و ذلك لمتابعة عمل الكود) لأن الكود الذي يعمل على صف واحد يمكنه العمل على الوف الصفوف 3-ضعي النتائج المتوقعة في صفحة مستقلة صفحة "Resultt" من هذا الملف Disribution_Om_Hz.xlsx

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

طريقة جميلة ... بارك الله فيك

اخي يوسف .. حبذا لو ذكرتم طريق الحل هل هي بالطريق التي ذكرتها في هذالموضوع ام امر اخر .. بارك الله فيك

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

كما ذكر اخي ابا جودي . حاول تجربة الخطوط العربية الموجوده لديك حتى تشاهد ظهور الخط العربي بالشكل الصحيح

اشكرك أخي الكريم

اخي الكريم راجع هذا الرابط قد يفيدك https://support.microsoft.com/ar-sa/help/2581301/acc2010-you-receive-an-error-in-microsoft-access-using-the-built-in-wi

اذا كان ما فهمته صحيحا استخدم select case

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

أشكرك أخي الكريم ....... جعلك الله مباركا في الدنيا والأخرة

اخي الكريم جرب على القاعدة المرسلة لك ..... وأعلمني بالنتيجة kanory.rar

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

الاخ الحبيب ابو نصار شكرا علي هذه المعلومه القيمه ولكن حين جربتها وصلت الي الاكواد الاتيه لان الاكواد الاولي لم تعمل بشكل كامل معي لو كانت كلمت السر 123 يكون الكود كالاتي: ActiveSheet.Unprotect Password:="123" البرنامج ثم ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True