Dream_Works

الله يعطيك العافية ... و عسى الله أن يجعله في ميزان حسناتك

أعتقد إني عملتها و قمت بتخزين اسم المستخدم و رقمه و نوعه ( بروفيسور أم طالب ) أرجو أن تعجبك هذه المحاولة ... ملحوظة : يجب تعبئة أرقام المستخدمين في جداول المعلمين و الطلبة لتشغيل البرنامج يجب التأكد أن رقم المستخدم الواحد موجود مرة واحدة فقط إما بجدول المعلمين أو بالطلبة ... لم أضع هذه النقطة بالكود ... لذلك أرجو أن تضعيها أنتي بالتوفيق Dream______.zip

هل ترغبين بجميع بيانات الطلبة المسجلين بالكورسات المسجلة .... لا أعتقد ذلك أعتقد أنكِ تريدين الرقم الأكاديمي لطالب واحد وهو المسجل و المستخدم الحالي للنظام.... و السؤال هو ... كيف يمكنكِ تمييز هذا الطالب ... أعتقد أن إجابتكِ ستكون برقم اليوزر الحالي الموجود ... و بالتالي يتبين وجود خطأ بتصميم القاعدة ( الخطأ غير مؤثر بشكل كبير ... يمكنك إظهار البيانات بها و تشتغل تمام و لكن التصميم نقسه لا يتبع القواعد العلمية لتصميم قواعد البيانات و الذي يخفف الحمولة عن ذاكرة الجهاز و المعالج ) . الخطأ هو أن جدول المستخدمين users غير مرتبط بباقي الجدول ... أحد الحلول المقترحة هو وضع ال user Number في الجدولين Students , professors و مسح الحقل user_Name من جدول المستخدمين و بالتالي ذلك يتطلب تغيير الكود السابق الخاص باسترجاع اسم المستخدم . ( تصميم قاعدة البيانات مشابه تقريباً لبناء منزل إذا كانت الأساسات خاطئة أو هزيلة تحدث مشاكل أكثر في المستقبل ) للأسف لا أملك الوقت الكافي حالياً لعمل ذلك ... لذلك شرحت المطلوب باختصار و سأحاول القيام بها في وقت لاحق

يمكنك إنشاء ملفات أو مجلدات باستخدام File System Object ... انظر المثال التالي File System Object Create Folder و تحدد به المسار مع اسم المجلد ... و بعد ذلك تضع الرقم التسلسلي ( لم أفهم هذه النقطة بوضوح ) ... و لكن يمكنك إدراج الرقم في الجدول بسهولة باستخدام Append Query أو وضع حقل مخفي في النموذج مرتبط بالرقم

هذي محاولة على السريع Dream______.zip

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

الكود ما فيه مشاكل أخوي ... و لكن لأنك وضعت أسماء تبدأ بكلمة Text من قبل فحصل تشابه في الأسماء بين مربعات النصوص عندك جرب غير كلمة "Text" الموجودة بالكود عندك إلى أي كلمة أخرى لم تستخدمها من قبل و شغل الكود ... ثم غير مرة أخرى إلى كلمة Text و شغل ملحوظة : ضع هذا السطر بالكود بدل الموجود عندك ... ( إضافة بسيطة ) DoCmd.OpenReport ReportName, acViewDesign, , , acHidden

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

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

يمكنك وضع كود مثل هذا في أي زر لنموذج ( فورم ) و تشغيله ملحوظة : ضع اسم التقرير المطلوب في المتغير ReportName Private Sub Command24_Click() Dim c As Control, i As Byte, ReportName As String ReportName = "Report1" DoCmd.OpenReport ReportName, acViewDesign For Each c In Reports(ReportName).Controls If c.ControlType = acTextBox Then i = i + 1 c.Name = "Text" + Format(i, "00") End If Next c DoCmd.Close acReport, ReportName, acSaveYes End Sub

أرجو رؤية هذه المحاولة _____.zip

الرجاء إرفاق قاعدة بياناتك لعمل المطلوب

نعم يمكن عمل ذلك .... يمكنك إرفاق قاعدة بياناتك للتعديل فيها

محاولة رائعة - الله يعطيك العافية ... و أتمنى أن يتحسن مستواك بشكل مستمر و لا تنسى باقى أعضاء المنتدى الذين يحتاجون إلى خبراتك بما فيهم أنا ... أتمنى أن نتعاون جميعاً في تحسين العلم في العالم العربي و تحسين صورة المنتدى و التفاعل بين أعضائه لقد أعدت إرفاق قاعدة بياناتك في موقعنا .... بعد أن مسحت الكثير من سجلات الجداول ( حتى يصغر حجمها ) و عملت Compact and repair ... لأن الملفات في موقع طق طق لا تبقى كثيراً مع تمنياتي لك بالتوفيق ______________________.zip _____.zip

لقد أضفت بعض السطور في الكود أرجو أن تضيفها عندك Private Sub StudentNames() Dim AllNames As String, rs As DAO.Recordset Set rs = Me.ÇáØáÇÈ.Form.RecordsetClone With rs If .RecordCount = 0 Then Me.äÕ11 = "" Exit Sub End If .MoveFirst While Not .EOF AllNames = AllNames + " - " + .Fields("ÇÓã ÇáØÇáÈ") .MoveNext Wend .Close End With AllNames = Right(AllNames, Len(AllNames) - 2) Me.äÕ11 = AllNames End Sub 1- تم تعريف متغير من نوع RecordSet ( مجموعة سجلات ... مثل الجدول العادي ) و هو rs rs As DAO.Recordset 2- تم تخزين جميع البيانات الموجودة في النموذج الفرعي ( الطلاب ) في المتغير المذكور Set rs = Me.الطلاب .Form.RecordsetClone 3 - التأكد من عدد السجلات الموجود في المتغير أكبر من صفر ( أرجو منك إضافة هذا الجزء بالكود ) حتى إذا انتقلت إلى سجل جديد لا يظهر لك خطأ If .RecordCount = 0 Then Me.نص11 = "" Exit Sub End If 4- المرور على أسماء الطلبة الموجودة بالمتغير واحداً بعد الآخر و تخزينهم في المتغير All Names مع وضع علامة ناقص بعد كل اسم . MoveFirst While Not .EOF AllNames = AllNames + " - " + .Fields("اسم الطالب") .MoveNext Wend 5- إغلاق المتغير rs بعد الانتهاء منه و مسح محتوياته من ذاكرة الكمبيوتر .Close 6- حذف علامة الناقص الزائدة الموجودة بعد آخر اسم في المتغير AllNames AllNames = Right(AllNames, Len(AllNames)) تخزين محتويات المتغير AllNames في المربع المطلوب Me.نص11 = AllNames

السلام عليكم لقد واجهت بعض المشاكل لفهم مشكلتك و إلى الآن أعتقد أني لم أفهمها بشكل جيد ... لديك قاعدتين للبيانات لا أدري أي واحده منهم تريد و ما هو النموذج المراد التعديل فيه و ما هي أسماء المستخدمين و كلمات السر اللازمة لفتح قاعدة البيانات .... لو وضعت هذه الأمور لوفرت على الوقت في الفهم و الحل ... :) يمكنك فتح الجداول المخفية في قاعدة البيانات الثانية ( لأبو عقيل ) جدول Tb5 ووضع مستخدم جديد و كلمة سر مع تعبئة كل ال Levels ب 1 و بعد ذلك يمكنك عمل ما تشاء المصروفات و الإيرادات في قاعدة البيانات الأولى ... و نظراً لأن نظام كلمات السر فيها معقد بعض الشئ ( حاولت وضع كلمة سر و يوزر جديدين ) و لكن بها نظام تشفير حتى لهذه البيانات لذلك لم أحاول كثيراً و تجاهلت الكود الخاص بالتأكد من صحة بيانات اسم المستخدم و كلمة السر ... ( لو لديك بيانات صحيحة يمكنك تجربتها ) المهم : قاعدة البيانات الأولى ( المصروفات و الإيرادات ) ... تتخزن البيانات الخاصة بالمستخدم الحالي في متغير اسمه MyUser في وحده نمطية اسمها Defs لاستدعاء اسم المستخدم يمكنك عمل التالي على سبيل المثال : Private Sub Form_Open(Cancel As Integer) With Me.äÕ9 .SetFocus .Text = Defs.MyUser.UserName End With End Sub في النموذج Wsdfe أما الثانية فتتخزن بيانات المستخدم الحالي في جدول مخفى اسمه rmz يمكنك عمل Dlookup و استرجاع البيانات منه

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

الظاهر إني غلطت و أرفقت الملف الأصلي ... هذا هو الملف بعد التعديل Dream_______.zip

هذا الاسلوب غير لائق في منتدى علمي ...

أرجو رؤية هذا الرابط استخدام السكانر بالأكسيس

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

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

تفضلي أختي Dream_______.zip

تفضل Dream_a.zip

ارفع الاثنين : الفاتورة الجاهزة .. لأنها معمولة بالأكسيس حسب ما فهمت مما يسهل العمل ملف الإكسيل أو الوورد لتجنب تجاهل أي بيانات إضافية على الفاتورة السابقة و لتقليد التصميم الموجود بالملف على فاتورة الأكسيس ملحوظة: يمكنك تصدير ملف الإكسيل إلى الأكسيس باختصار : يسهل التحكم أكثر بوجود الملفين