أحمد فتحى

up

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

السلام عليكم جميعا استخدم الكود بالاسفل ليعطي تقريرا لسجلات بين تاريخين ويعمل بشكل طيب الا انه عند اعطائه قيمة تاريخ واحد فى حقل txtStartDate يعطى السجلات اعتبارا من هذا التاريخ ، وليس التاريخ المحدد فقط فحاولت استبدال علامة =< بعلامة = واعطانى السجلات المحددة الا انه من ناحية اخرى لم يعطينى اى سجلات عندما اسجل تاريخين فى الحقلين txtStartDate ، txtEndDate فارجو المساعدة فى تعديله On Error GoTo Err_Handler 'Remove the single quote from start of this line once you have it working. 'Purpose: Filter a report to a date range. 'Documentation: http://allenbrowne.com/casu-08.html 'Note: Filter uses "less than the next day" in case the field has a time component. Dim strReport As String Dim strDateField As String Dim strWhere As String Dim lngView As Long Const strcJetDate = "\#mm\/dd\/yyyy\#" 'Do NOT change it to match your local settings. 'DO set the values in the next 3 lines. strReport = "MainReport5Habs" 'Put your report name in these quotes. strDateField = "[HabsEnd]" 'Put your field name in the square brackets in these quotes. lngView = acViewPreview 'Use acViewNormal to print instead of preview. 'Build the filter string. If IsDate(Me.txtStartDate) Then strWhere = "(" & strDateField & " >= " & Format(Me.txtStartDate, strcJetDate) & ")" End If If IsDate(Me.txtEndDate) Then If strWhere <> vbNullString Then strWhere = strWhere & " AND " End If strWhere = strWhere & "(" & strDateField & " < " & Format(Me.txtEndDate + 1, strcJetDate) & ")" End If 'Close the report if already open: otherwise it won't filter properly. If CurrentProject.AllReports(strReport).IsLoaded Then DoCmd.Close acReport, strReport End If 'Open the report. Debug.Print strWhere 'Remove the single quote from the start of this line for debugging purposes. DoCmd.OpenReport strReport, lngView, , strWhere Exit_Handler: Exit Sub Err_Handler: If Err.Number <> 2501 Then MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "Cannot open report" End If Resume Exit_Handler

السلام عليكم جميعا لدى قاعدة بيانات لمجموعات من المرضى وقد واجهتنى مشكلة .... فالقسم به اكثر من مريض ، والمريض من الممكن دخوله اكثر من قسم وحاولت مرارا انشاء علاقة متعدد الى متعدد ... الا اننى لم احصل على ما اريد فقد وضعت خاصية للفرز بمجرد الضغط على اسم المريض او رقم القسم وما اريده ان استطيع اضافة البيانات الى الجدولين المشار اليهما بالسهم الازرق فى ذات الوقت فاسجل بالجدول السفلى اكثر من مريض لذات القسم كما يمكننى تسجيل للمريض الواحد فى الجدول السفلى اكثر من قسم فى الجدول العلوى ارجو ان اكون قد وفقت فى شرح الامر خالص شكرى العميق لحضراتكم جميعا ومرفق طيه نموذج للقاعدة التى اعمل عليها TC - Copy.rar

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

http://www.officena.net/ib/index.php?showtopic=36718 للمهندس محمد طاهر و الأستاذ منتصر الآنسي ......... لقد رأيت هذه المشاركة ولكن ليس هذا هو سؤالى فالمشاركة المذكورة متعلقة بعملية البحث مع تجاهل الهمزة والتاء ونقطتى الياء أما أنا فأرغب فى منع تكرار حقل مع تجاهل تلك القيم خالص تحياتى

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

شكرا جزيلا لك أخى العزيز ... تقبل تحياتى

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

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

مع جزيل شكرى ... جارى التطبيق

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

يسعدنى معاونتك أخى العزيز ..... مع جزيل شكرى

مع جزيل شكرى أخى العزيز

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