سهل احمد العريشي

بسم الله الرحمن الرحيم أخي العزيز شكرا لك على دعائك لي وفقنا الله وأياك لما يحبه ويرضاه ونحن دائما في الخدمة وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم )

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

بسم الله الرحمن الرحيم أخي فرضا أن أسم النموذج Form1 مثلا والحقل الأسم في النموذج وليكن أسمه هو Txt1 ومصدره هو الحقل Name الموجود في الجدول المسمى main وحقل رقم العضو هو Txt0 ومصدره نفس الجدول main وأسم الحقل في الجدول Num نقوم بوضع الكود التالي في حدث قبل التحديث للحقل الأسم في النموذج Form1 Private Sub Txt1_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rst As Recordset Dim CountNum, I As Long Dim MsgNumbr, NewName As String Set db = CurrentDb NewName = [Forms]![Form1]![Txt1] Set rst = db.OpenRecordset("main", dbOpenSnapshot) CountNum = DCount("*", "main", "[Name]=[Forms]![Form1]![Txt1]") If CountNum = 0 Then Exit Sub With rst Do Until .EOF If rst!Name = NewName Then MsgNumbr = MsgNumbr & rst!Num & " " End If .MoveNext Loop End With If MsgBox("سيق أدخال هذا الأسم برقم" & MsgNumbr & vbCrLf & vbCrLf _ & "هل ترغب بتسجيله" & vbCrLf, _ vbInformation + vbYesNo + vbDefaultButton2, _ "تنبيه") = vbNo Then Cancel = -1 End If db.Close End Sub ومرفق لك مثال توضيحي وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم ) checkifExists.rar

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

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

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

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

بسم الله الرحمن الرحيم حقيقة أنا لم أفهم ما تريد فعذرا منك أرجو شرح الموضوع بشكل أوسع حتى أفهمه أو قم بأرفاق مثالك وهنالك قسم لتحميل الملفات للأعضاء بأمكانك التحميل في هذا القسم وهو على هذا الرابط http://www.officena.net/ib/index.php?act=SF&s=&f=58 قم بتحميل الملف ومن ثم قم بنسخ الرابط ووضعه هنا أو أنتظر لأنه أكيد أن أحد الأخوان سوف يضع لك الحل وتقبل تحياتي وأعتذاري أخيك سهل أحمد ( ابو نعيم )

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

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

بسم الله الرحمن الرحيم أولا هذا هو الكود Private Sub BackUp_Click() On Error GoTo Err_Backup Dim strSource As String, strDest As String Dim strError As String ' BeginBackup: DoCmd.Hourglass True ' مسار القاعدة الرئيسة التي يوجد بها الجداول strSource = "D:\backup\Backend.mdb" ' مسار المجلد الذي سيتم حفظ نسخة القاعدة الإحتياطية بداخله strSource = "C:\YourFolderName\YourBackend.mdb" FileCopy strSource, strDest DoCmd.Hourglass False MsgBox ".تم بنجاح نسخ جداول القاعدة", _ vbInformation + vbMsgBoxRight + vbOKOnly, _ "إكتمال عملية النسخ" Exit_Backup: Exit Sub Err_Backup: Select Case Err.Number Case 61 strError = "The Floppy Disk is full, Cannot Save to this Disk." _ & vbCrLf & vbCrLf & "Insert a New Disk then Click ""OK""" If MsgBox(strError, vbCritical + vbOKCancel, " Disk Full") = vbOK Then Resume BeginBackup Else Resume Exit_Backup End If Case 70 strError = "The File is currently open." & vbCrLf & _ "The File can not be Backed Up at this time." MsgBox strError, vbCritical + vbOKCancel, " File Open" Case 71 strError = "There Is No Disk in Drive" & vbCrLf & vbCrLf & _ "Please Insert Disk then Click ""OK""" If MsgBox(strError, vbCritical + vbOKCancel, " No Disk") = vbOK Then Resume BeginBackup Else DoCmd.Hourglass False Resume Exit_Backup End If Case Else DoCmd.Hourglass False MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Backup End Select End Sub أذا اردت تغير المسار قم بعمل التالي إضافة أخرى للكود السابق ، تمكنك من إختيار مسار واسم موقع الحفظ :- إستبدل السطر التالي في الكود أعلاه : strSource = "C:\YourFolderName\YourBackend.mdb" بهذا السطر strDest = InputBox("Enter Complete Path, File Name and Extension" & vbCrLf & "Where the Backup File is to be Saved.", " Enter Path And File Name") وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم )

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

بسم الله الرحمن الرحيم يسعدني الأنظمام معكم في هذا العمل أخيكم سهل أحمد ( ابو نعيم )

بسم الله الرحمن الرحيم أخي خضر تم تسجيل أسمين ووضعت كودين برجاء أخباري بالنتيجة فأنا على أحر من الجمر لسماع النتيجة وأتمنى أن تكون موفقة أخي أعتقد أنه لا بد من أنشاء مجلد وتسميته Current ووضع النموذجين به ووضع المجلد داخل مجلد وتسمية المجلد Officena ووضعه في السي c: ليكون المسار هكذا C:\officena\Current\KR_officena_14 لأنه عند فتح القاعدة Students تقوم بالقراءة من المسار السابق وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم )

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

بسم الله الرحمن الرحيم تفضل أخي هذا مثال للأخ المبدع دائما أخينا أبن مسقط أرجو أن يكون به ما تريد وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم ) Copy_tbl_net.rar

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

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

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

بسم الله الرحمن الرحيم هذا الموضوع هو من المواضيع المهمة وقد وجدت شرح له قامت به الأخت زهرة من الفريق العربي وجزاها الله خيرا على ما تقوم به وأسأل الله العلي القدير ان ينفعنا واياكم ويكون هذا العمل خالصا لوجهه تعالي يوجد ملف مرفق على الوورد بكامل الشرح والصور رابط الشرح بالتفصيل وبالصور http://www.arabteam2000-forum.com/index.php?showtopic=55705 رابط تحميل الشرح على ملف وورد لمن لا يستطيع تحميله من هنا http://www.arabteam2000-forum.com/index.ph...=post&id=273105 وتقبلوا تحياتي أخيكم سهل أحمد ( ابو نعيم ) Convert_an_Access_Database_to_SQL_Serve1.rar

بسم الله الرحمن الرحيم وهذه المجموعةالأخيرة أخيكم سهل أحمد ( ابو نعيم ) pic1__5_.rar

بسم الله الرحمن الرحيم وهذه المجموعةالثالثة أخيكم سهل أحمد ( ابو نعيم ) pic1__3_.rar

بسم الله الرحمن الرحيم وهذه مجموعةالثانية أخيكم سهل أحمد ( ابو نعيم ) pic1__2_.rar

بسم الله الرحمن الرحيم أخي العزيز لم توضح طلبك هل ما يظهر لك هو ترتيب التاريخ أي هكذا 09/02/2005 أذا كان هذا فقم بعمل التالي تأكد من حقل التاريخ في الجدول وأنه من نوع تاريخ / وقت ثانيا ضع ما يلي في خصائص الحقل التنسيق أجعله هكذا YYYY/MM/DD وفي النموذج ضع ما يلي في خصائص مربع النص للحقل المطلوب التنسيق أجعله هكذا YYYY/MM/DD أما أذا كان قصدك لنوع الأرقام أي تريدها أرقاما عربية ك 12345 فمن خصائص مربع النص للحقل أذهب الى أشكال رقمية وأختر الدولي لأن العربي هو ما نقول عنه أنجليزي بينما الدولي فهو ما نكتبه نحن العرب وهو ما تريده أنت وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم ) وتقبل تحياتي

بسم الله الرحمن الرحيم عذرا على التأخير وهذه مجموعة من الأطارات وتقبلوا تحياتي أخيكم سهل أحمد ( ابو نعيم ) pic1__1_.rar