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

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

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

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

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

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

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

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

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

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

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

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

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

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

تم عمل المطلوب بالتوفيقضبط معادلة الاسماء - مع المعادلات.xlsx

وهذا كود لايتقيد بعدد الطلاب حيث هو الذي يختار العدد المناسب لتوزيعه على عدد الايام لانه بوجود اكثر من 35 طالب ستكون هناك مشكلة حيث لايمكن توزيع كل سبعة طلاب على يوم حيث ستكون عدد الايام اكثر من خمسة faiz-15.rar

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

libraiesT1.accdb

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

جرب هذا الماكرو (ينقل البيانات بدون تكرار) من اصفحة الاولى الى اثانية) Option Explicit Sub Get_data() Dim S As Worksheet, T As Worksheet Dim ro%, x%, Dic As Object Dim st, ky, m% Set S = Sheets("Source") Set T = Sheets("Target") Set Dic = CreateObject("Scripting.Dictionary") If T.Range("B1").CurrentRegion.Rows.Count > 1 Then _ T.Range("B1").CurrentRegion.Offset(1). _ Resize(T.Range("B1"). _ CurrentRegion.Rows.Count - 1).ClearContents ro = S.Cells(Rows.Count, 2).End(3).Row For x = 2 To ro If S.Cells(x, 2) <> vbNullString Then st = Application.Transpose(S.Cells(x, 2).Resize(, 5)) st = Application.Transpose(st) st = Join(st, "*") Dic(S.Cells(x, 2).Value) = st End If Next For Each ky In Dic.keys T.Cells(m + 2, 1) = m + 1 T.Cells(m + 2, 2).Resize(, _ UBound(Split(Dic(ky), "*")) + 1) = _ Split(Dic(ky), "*") m = m + 1 Next Set S = Nothing: Set T = Nothing Set Dic = Nothing End Sub الملف مرفق mhmd83.xlsm

بالتوفيق استاذنا الفاضل تحياتي

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

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

بالمناسبة تم تغيير بعض اسماء الحقول لانها محجوزة في الاكسيس وهذا الكود كاملاً 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

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

هل طبقت كما اشرنا لك ممكن مثال مصغر للتطبيق عليه بارك الله فيك

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

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

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

وعليكم السلام ورحمة الله وبركاته نفذ الأتي : عند فتح التقرير في حدث عند نقر زر الأمر ضع هذا الكود DoCmd.OpenReport "اسم التقرير", acViewPreview Me.Visible = False وفي حدث عند الإغلاق في التقرير ضع هذا الكود Forms![اسم النموذج المنبثق].Visible = True

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

اكتب داخل مربع النص عدد التكرار المطلوب ------>>>> اضغط على زر عرض التقرير ..... تكرار المقطع في التقرير.mdb

شكرا علي الرد والملاحظات جميله وسبب عدم رفع البرنامج ١_ البرنامج كبير ولم يتم حمايته بعد ٢_ لو امكن المساعده في العمل بشكل احترافي ا_ عمل نسخ احطياتي ب_ حمايه للبرنامج حتي اتمكن من البيع

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

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

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

أخي الكريم المفترض انت من يضع المثال للتعديل عليه . لكن انظر المثال .... حاول التعديل على النموذج ثم قم بالتحديث ولاحظ الفرق Ka-Update.rar

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

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

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

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

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

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

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

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

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

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

السلام عليكم استخدم هذه الاوامر هذا السطر في اول الكود فرضا اسم الورقة "ورقة1" وباسورد الحماية "123" إلغاء الحماية ورقة1.Unprotect Password:="123" وهذا السطر في اخر الكود لإسترجاع حماية الورقة ورقة1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True