ابوخليل

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

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

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

بارك الله فيك اخي @أبو إبراهيم الغامدي متابع ....

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

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

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

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

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

الدرس الأول : ارفقت لك جزء من الجداول بعد اعادة صياغتها .. وهي الجداول الفرعية الخدمية 1- ادرس طريقة التصميم جيدا ( تسميات الجداول / وصف الجداول / تسميات الحقول / وصف الحقول / التسمية التوضيحية للحقول / خصائص الحقول ) بالنسبة الى وصف الحقول يمكنك الإسهاب في الوصف بحيث يعطي وصفا كاملا لوظيفة الحقل وعلاقاته ان وجدت 2- قم بتعبئة جميع البيانات كاملة في هذه الجداول 3- اعد رفع المرفق بالصيغة نفسها mdb .. بمعنى لا تتعبني في نقل الملف الى جهاز آخر لاني اعمل على اكسس 2003 فقط . 4- اللي عنده شغف حب التعلم يسأل عن كل صغيرة وكبيرة لم يفهمها .. وباب السؤال مفتوح في ما يخص الدرس لجميع اخواني الاعضاء المبتدئين . copy02.mdb

تفضل الحل الافضل وهو كون الحدث يخص كل حقل لوحده في حدث بعد التحديث لاي حقل يتم الفحص والاجراء هو : اما انشاء مجلد جديد او تغيير اسم المجلد ان كان موجودا Dim i1 Private Sub Text1_GotFocus() i1 = Text1 End Sub Private Sub Text1_AfterUpdate() Dim fs, cf strFolder1 = CurrentProject.Path & "\" & Me.Text1.Value strFolder11 = CurrentProject.Path & "\" & i1 If MsgBox("سيتم ( إنشاء / تغيير ) اسم المجلد حسب القيمة الجديدة", _ vbQuestion + vbOKCancel, _ "تنبيه") = vbOK Then Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder11) = False Then Set cf = fs.createFolder(strFolder1) Else Name strFolder11 As strFolder1 End If Else Undo Exit Sub End If End Sub تغير اسم المجلد حسب قيمة الحقل.mdb

خذ نسخة من قاعدة البيانات ثم اعمل على هذه النسخة : 1- احذف جميع النماذج والتقارير والاستعلامات 2- احذف بيانات جدول الاسماء 3- اعمل ضغط واصلاح لقاعدة البيانات

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

ضع الكود في حدث النقر على زر فتح التقرير DoCmd.OpenReport "RepName", acViewPreview Reports("RepName").Printer.Orientation = acPRORLandscape 'أفقي 'Reports("RepName").Printer.Orientation = acPRORPortrait 'عمودي

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

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

نعم هو فقط لإدراج الرقم التلقائي المحذوف . ........ ايضا تجد أدناه مثالا لإظهار الأرقام المحذوفة من عمل الأستاذة زهرة .. اتمنى ان تجد فيه الفائدة . ارقام التسلسل المفقودة.rar

المهم من خصائص الحقل يكون لا يقبل التكرار Set rs = CurrentDb.OpenRecordset("tbl1") i = text1 rs.AddNew rs!id = i rs.Update وادناه تطبيق لادراج رقمك المحذوف مع بعض الضوابط اعادة رقم محذوف في الترقيم التلقائي .mdb

تفضل التقرير يومي2.mdb

nmtext: IIf([time1]>=#06:00:00 ص# And [time1]<=#11:59:59 ص#;"صباح";IIf([time1]>=#12:00:00 م# And [time1]<#06:31:00 م#;"مساء";IIf([time1]>=#06:31:00 م# And [time1]<=#11:59:59 م#;"ليلا";IIf([time1]>=#12:00:01 ص# And [time1]<#06:00:00 ص#;"ليلا";"")))) في الكود اعلاه لان الاوفيس عندي عربي اختل ترتيب السطر يمكنك استبدال حرف الصاد المفرد بـــ Am وحرف الميم المفردة بـــ Pm تفضل تطبيق على العملية انظر في الاستعلام qry1 db4.mdb

يمكنك تحقيق ذلك باستخدام if او iif وتجعل شرطين اكبر ( < ) من الوقت الفلاني And اصغر (>) من الوقت الفلاني مثلا : if datetext > 05:59:59 And datetext < 12:00:00 then nmtext = "صباحا" الدالة الأخرى: nmtext : IIf (datetext > 05:59:59 And < 12:00:00 ; "صباحا")

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

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

انظر في هذا الموضوع وهذا الموضوع كيف تعرض طابعاتك في قائمة وتختار منها الطابعة الافتراضية

المنتدى مليء بالمواضيع التي تتحدث عن هذا فقط ابحث وهذا واحد منها