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

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

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

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

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

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

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

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

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

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

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

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

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

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

مشارك مع حبايبي الاساتذه .... ‏‏faiz - نسخة.mdb

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

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

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

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

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

جرب هذا الماكرو (ينقل البيانات بدون تكرار) من اصفحة الاولى الى اثانية) 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

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

تفضل اخي الكريم جرب المرفق الجديد faiz101.rar تحياتي

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

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

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

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

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

السلام عليكم ورحمة الله انظر الى هذا الملف ربما يكون هذا مطلبك ملف توضيح.xlsm

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

تفضل هذا التعديل لقد تم ادراج جدول فيه رقم المركز ومقابله رقم الحجرة الممنوعة بالنسبة للخطا اعتقد انك اضفت مراكز او حجرات لانه مبني على 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- اسماء الشيتات باللغة الأجنبية 2- لا ضرورة لأكثر من 20 صف ( و ذلك لمتابعة عمل الكود) لأن الكود الذي يعمل على صف واحد يمكنه العمل على الوف الصفوف 3-ضعي النتائج المتوقعة في صفحة مستقلة صفحة "Resultt" من هذا الملف Disribution_Om_Hz.xlsx

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

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

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

هل هذا هو المطلوب التقرير المقسم ka_.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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