ابوخليل

تم الاصلاح دقة الشاشة 1024/768 seet2.rar

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

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

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

هذا غير صحيح حيث يمكن التغيير بسهولة ، بل يمكننا تغيير كامل المفردات ويبقى اللغز كما هو لانه يستحيل اي معلم ومربي فاضل ان يعرض اللغز على تلاميذه بصيغته السابقة . فعرضه بصيغتة السابقة يعني الرضى والموافقة ضمناً على سلوك غير صحي فمثلا انظر ادناه تم تغيير المفردات محل النقاش : إليكم اللغز: الحقائق: 1- هناك خمسة بيوت بجانب بعضها على صف واحد؟ 2- كل بيت له لون يختلف عن الآخر؟. 3- كل بيت يسكنه شخص جنسيته مختلفه عن الآخر؟. 4- كل شخص من السكان يربي حيوان مختلف عن الآخر؟ 5- كل شخص له مشروب مفضل يختلف عن الآخر؟. 6- كل شخص يستخدم للكتابة قلما مختلفا عن الآخر؟. تلميح: -البريطاني يسكن في البيت الأحمر. -السويدي يربي كلب. -الدنماركي يشرب الشاي. -البيت الأخضر على يسار البيت الأبيض. -مالك البيت الأخضر يشرب القهوة. -الشخص الذي يستخدم قلم الخط يربي عصفور. -مالك البيت الأصفر يستخدم قلم جاف ‏. -الشخص الذي يسكن في البيت الواقع في المنتصف يشرب الحليب. -النرويجي يسكن بالبيت الاول. -الشخص الذي يستخدم قلم الرصاص يسكن بجانب الشخص الذي يربي قطة. -الشخص الذي يربي خيل يسكن بجانب الشخص الذي يستخدم قلم جاف .‏ -الشخص الذي يستخدم قلم الحبر يشرب عصيرا. -الألماني يستخدم قلم تلوين .‏ -النرويجي لديه جار بيته أزرق. -الشخص الذي يستخدم قلم الرصاص لديه جار يشرب الماء. السؤال هو : من يربي السمك ؟

نعم ممكن .. هات ما عندك من تفصيل ولا تنسى ان ترفق مثالا للتطبيق

اخواني at_aziz و علي المصري شكرا على الثناء والتقييم .. جزاكم الله خيرا

جزاك الله خيرا ابا مذحج ،،،

جزاك الله خيرا استاذ علي هل يمكن رفعه على نسخة ماقبل 2010

اذا انظر هنا http://www.officena.net/ib/index.php?showtopic=54860

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

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

لايمكنني فتح المرفق الآن لاني اعمل على 2003 لعلي انقله الى جهاز آخر في وقت لاحق ولكني بعد كتابة اجابتي رجعت مرة اخرى لقراءة سؤالك ولدي استفسار كيف ؟ أدى إلى تكرر بعض السيرال وفي نفس الوقت هو مفتاح ؟

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

انظر هنا http://www.officena.net/ib/index.php?showtopic=54836

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

الخطوة الرابعة : ذهبنا الى خصائص النموذج /لسان التبويب : بيانات ثم غيرنا القيمة ادخال بيانات الى : نعم والفرق بين ان نجعلها نعم او لا كالتالي : - النموذج في حال ادخال البيانات =لا 1- البيانات تظهر للمستخدم 2- يمكن استخدام ازرار التنقل بين السجلات 3- امكانية البحث والعرض - النموذج في حال ادخال البيانات = نعم 1- كل الخصائص السابقة غير ممكنة 2- عند فتح النموذج يكون جاهزا لادخال بيانات جديدة الخطوة الخامسة : انشاء زر عند النقر عليه يقوم بنسخ البيانات الظاهرة والتي جلبناها من الاستعلام الى حقول النموذج التي اخفيناها ومن ضمنها حقل الشهر وحقل السنة المضمن داخله على النحو التالي : Me.UserId = UID ' المعرف Me.Noa = 101 ' الرقم يعني العملية وهي الايرادات وهذا الرقم ثابت Me.tfNoa = TXT3 ' نوع العملية او الاشتراك Me.Amount = TXT4 ' المبلغ Me.shahr = txt0 ' الشهر Me.sanah = Me.txt0.Column(2) ' السنة وهي مضمنة في العمود الثاني في مربع التحرير Me.Sdate = Date ' تاريخ اليوم الخطوة السادسة : انشاء نموذج فرعي مصدره جدول العمليات ونوظف داخله استعلام يستخرج آخر تاريخ لكل شخص وطبعا آخر تاريخ هو آخر دفعه تم سدادها ونجعل الرابط بين النموذج الرئيسي والنموذج الفرعي هو المعرف هذا ما تهيأ لي ايضاحه اخوتي الكرام : مجال الاستفسار والمناقشة مفتوح للجميع حتى نستفيد ونفيد فهذا درس بدأه اخوكم ابو الوليد جزاه الله خيرا

نحن الآن عملنا الجداول 1- جدول بالاسماء 2- جدول نوع الاشتراك والمبلغ 3- جدول التفاصيل او العمليات ونريد ان نبني على جدول العمليات نموذجا ندخل من خلاله اسم الشخص والبيانات اللازمة ويكفي ان نرصد فيه الشهر + السنة + تاريخ الادخال +نوع الاشتراك + المبلغ + معرف الشخص حيث نستطيع اظهار الاسم في التقارير بناء على هذا المعرف وحيث ان المعرف في جدول والمبلغ في جدول آخر فعلى هذا يلزمنا عمل استعلام يجمعهما الخطوة الأولى : نعمل نموذجا بواسطة المعالج او يدويا ويكون مصدر بياناته جدول العمليات وحيث اننا لن نقوم بادخال البيانات في الحقول مباشرة يدويا وانما سنعمل على ادخالها بواسطة امر برمجي فإننا سنعمل على اخفاء الحقول بحيث لا يراها المستخدم اذا ما هو الشيء الظاهر على النموذج ؟ الخطوة الثانية : سنقوم بانشاء حقول غير منضمة ونسميها مثلا txt1 , txt2 , txt3 .... وهكذا وسنقوم بجلب البيانات اليها من الاستعلام المذكور باستخدام الدالة DlookUp Me.TXT1 = DLookup("esm", "QryEshtrak", "UserU='" & Me.UID & "'") Me.TXT2 = DLookup("NoaNm", "QryEshtrak", "UserU='" & Me.UID & "'") Me.TXT3 = DLookup("sid", "QryEshtrak", "UserU='" & Me.UID & "'") Me.TXT4 = DLookup("Scrb", "QryEshtrak", "UserU='" & Me.UID & "'") لا حظ اننا وضعنا شرطا وهو "UserU='" & Me.UID اي ان المعرف في الاستعلام useru يساوي المعرف الذي كتبناه في الحقل UID وقد وضعنا هذه الاسطر في حدث بعد التحديث لحقل UID ايضا وضعنا ضابطا قبل هذه الاسطر للتأكد من وجود الرقم داخل الاستعلام واستخدمنا ايضا الدالة DlookUp ايضا مثل السابقات لتصبح الجملة هكذا Dim myID As Boolean ' اعلان عن متغير نعم/لا myID = DLookup("UserU", "QryEshtrak", "UserU='" & Me.UID & "'") If myID = False Then ' اذاكان غير موجود MsgBox "لا يوجد اسماء ! تأكد من الرقم" UID = "" UID.SetFocus Exit Sub End If الخطوة الثالثة : انشأنا مربعي تحرير الاول يظهر الشهر من جدول الشهر ويحتوي على حقل السنة ولكنه غير ظاهر للعيان الثاني يظهر الاسماء من جدول الاسماء ومعه المعرف وهو القيمة الفعلية لمربع التحرير ولكننا اخفيناه ايضا عن الانظار فعند اختيار الاسم من مربع التحرير (حدث بعد التحديث ) يقوم بطبع الرقم المعرف داخل الحقل UID ثم يقوم بتحديث الحقل UID لتفعيل وتشغيل الحدث واستخدمنا لذلك السطرين التاليين UID = co1 Call UID_AfterUpdate حيث co1 هو اسم مربع تحرير الاسماء للشرح بقية

تقصد حدث فصل لجدول الفرعيات فاصبحا اثنين العلاقات وربطها تكون على ثلاث حالات : 1- علاقة رأس برأس او واحد الى واحد ويجب هنا ان يكون كلا الطرفين مفاتيح او سجلات فريدة غير قابلة للتكرار 2- علاقة رأس باطراف او واحد الى كثير (متعدد) ويجب هنا ان يكون الرأس مفتاح او سجل فريد غير قابل للتكرار وبالمقابل الطرف الآخر يجب ان يكون قابل للتكرار 3- علاقة اطراف بأطراف او متعدد الى متعدد وهذه حالة خاصة نقوم بتوظيف جدول ثالث كوسيط بين الجدولين والمعرف ايضا حين نجعل حقلا في الجدول مفتاحا فإننا نمنع حدوث التكرار في هذا الحقل وحين نضع مفتاحين فإننا نمنع التكرار في الحقلين مجتمعين فقط مع امكانية التكرار في الحقل منفردا وكذلك ثلاث مفاتيح فمثلا محمد معرفه = 101 والشهر = رمضان والسنة = 1435 وهذه لا يمكن ان تتكرر ابدا ولكن يمكن ان يتكرر الرقم 101 ورمضان ولكن ليس في سنة 1435 ..... وهكذا وهذا ينطبق عل حقول المفاتيح الباقية للشرح بقية ...

جزاك الله خيرا قمت باصلاح القاعدة وحذف الصور منها لتخفيف الحجم وتم رفعها هنا db1.rar

السبب هو مصدر بيانات كل من التقرير الاساسي والتقريرين الفرعيين التقرير الاساسي مصدره qryTransfer بينما التقريرين الفرعيين مصدرهما New_qryTransfer وهذا ليس تكرار بل هما سجلين اثنين فيqryTransfer ولكن لا يظهرا بسبب اختلاف المصادر

حل الصفحة البيضاء ان تقلل من عرض التقرير عند الصميم دمج تقريرين بتصفية2.rar

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

وعليكم السلام اخي الكريم لو كان المرفق على امتداد mdb لرجوت لك تفاعلا اكثر انظر فهنا موضوع مقارب لمطلوبك يحوي اشتراكات شهرية فيمكن ان تحل السيارات بدلا من الافراد فلعلك تستفيد منه http://www.officena.net/ib/index.php?showtopic=54777

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