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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ASUS2020 هل وجب علينا التنبيه والتذكير دائماً ام هذا هو اقل ما يقدم لصاحب الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! أين الضغط على الإعــجــاب لإجابة الأستاذ عبدالله الممتازة ؟!!!💙

شاهد المرفق في هذه المشاركة تم ارفاق الملف للفائدة 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 تحياتي

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

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

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

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

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

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

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

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

اتفضل اتمنى يكون المطلوب Database2 (1).rar

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

ما شاء الله تبارك الله بارك الله لك في الموهوب لك، وشكرت الواهب، وبلغ أشدّه، ورزقت برّه

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

أخي الكريم المفترض انت من يضع المثال للتعديل عليه . لكن انظر المثال .... حاول التعديل على النموذج ثم قم بالتحديث ولاحظ الفرق 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