omarahmed1424

أضم صوتي لأستاذي في هذا الطلب فهل من مجيب؟

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

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

تمت وجزاكم الله ألف خير أخي ومعلمي وأستاذي جعفر

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

لسلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام حفظكم الله أستخدم الكود التالي لطلب كلمة مرور لفتح النموذج وحاولت أن أستخدم معه الوحدة النمطية المعروضة في هذا الموضوعhttps://www.officena.net/ib/topic/37919-تمت-الاجابة-اريد-وضع-كلمة-مرور-لفتح-النماذج/ لتظهر كلمة المرور على شكل نجوم فلم أستطيع التعديل على الوحدة النمطية وعدد النماذج التي أستخدم لها كلمة مرور كبير جدا يصعب التعديل على كودها فهل من معين بعد الله يعدل لي الوحدة النمطية مع بقاء الكود للنماذج كما هو في التالي Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim intinput As Integer intinput = InputBox("فضلاً ادخل الرقم السري", "دخول") If intinput = 12011 Then Cancel = False Else MsgBox "عفواً كلمة المرور غير صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه" Cancel = True End If End Sub

السلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام حفظكم الله أستخدم الكود التالي لطلب كلمة مرور لفتح النموذج وحاولت أن أستخدم معه الوحدة النمطية المعروضة في هذا الموضوع لتظهر كلمة المرور على شكل نجوم فلم أستطيع التعديل على الوحدة النمطية وعدد النماذج التي أستخدم لها كلمة مرور كبير جدا يصعب التعديل على كودها فهل من معين بعد الله يعدل لي الوحدة النمطية مع بقاء الكود للنماذج كما هو في التالي Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim intinput As Integer intinput = InputBox("فضلاً ادخل الرقم السري", "دخول") If intinput = 12011 Then Cancel = False Else MsgBox "عفواً كلمة المرور غير صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه" Cancel = True End If End Sub

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

السلام عليكم ورحمة الله وبركاته وبعد... أعتذر بشدة على التأخير لكن عند التطبيق ظهر خطأ حيث بالنسبة للتاريخ يظهر آخر تاريخ ولكن الدفعة ليست مطابقة لنفس التاريخ فكيف يتم آخر سداد بالتاريخ والدفعة معا بمعنى أن يذكر الاستعلام آخر تاريخ ومعه الدفعة التي سددت في نفس التاريخ . فهل من مساعدة ولكم الشكر

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

للرفع مع شكري وتقديري بشدة

للرفع من شكري وتقديري

السلام عليكم ورحمة الله وبركاته وبعد ... أعضاء المنتدى المحترمون لحفظ نسخة احتياطية من برنامجي أستخدم الكود التالي : Private Sub Cmd1_Click() Set khaher = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(4) .AllowMultiSelect = False .ButtonName = "حفظ" .Title = "حفظ نسخة من قاعدة البيانات" If .Show = True Then [AsA] = .SelectedItems(1) khaher.CopyFile CurrentDb.name, Me.AsA & _ "\" & Replace(CurrentProject.name, ".MDB", "") & _ "_" & Format(Date, "yyyy-mm-dd") & ".MDB" MsgBox "تم أخذ نسخة احتياطية من برنامجك بنجاح", , "تنبيه!" Else [AsA] = "" End If End With End Sub وسؤالي للاعضاء الأعزاء هل يمكن التعديل على الكود السابق ليتم حفظ نسخة احتياطية مضغوطة winrar من البرنامج مع وضع باسورد ثابت للملف المضغوط وجزيتم خيرا

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

متابع ومحتاج لنفس الموضوع

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

السلام عليكم ورحمة الله وبركاته وبعد أخي العزيز أ / علي المصري جربت تعديل يوم بداية الأسبوع من لوحة التحكم في النظام عموما وبالفعل ضبط اليوم والتاريخ معا . لكنني حاولت بعد تكرمك بالطبع إضافة جزء المتابعة اليومية لبرنامج شئون الطلاب عندي فهو ينقصني بشدة ولم أفلح في ذلك لضعف قدراتي التي لا تجاري الأساتذة مثلكم فهلا تكرمت ( أو تكرم أحد الاعضاء ) على بذلك ولكم الأجر والثواب عند الله ومرفق لكم الجدوال التي تحتاجونها في الربط على ما أحسب بخبرتي الضعيفة Microsoft Access قاعدة بيانات جديد ‫‬.rar

وانا أيضا أنتظر

لا حظت أن اليوم لا يوافق التاريخ الصحيح فمثلما يظهر في الصورة التاريخ 11/12/2016 يوافق السبت والصحيح أنه يوافق الاحد فما سبب تلك المشكلة

الأخ العزيز : من السهل معرفة كلمة مرور القاعدة ولكن هل أنت مالكها الفعلي ؟ وإذا لم تكن مالكها فهذه صورة محتوياتها فقط .

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

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

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

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

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