أحمد فتحى

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

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

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

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

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

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

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

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

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

السلام عليكم مرفق مثال به رسالة تظهر عند تكرار الاسم المسجل فى حقل a أرجو تعديله بحيث يشمل الحقلين a ، b معا مع خالص تحياتى db241.zip

السلام عليكم جميعا رجاء مساعدتى فى عمل كود منع تكرار السجلين STNum ، STTypeID فى مثالى المرفق كى يصبح مثل كود منع تكرار رقم الطالب فى المثال الاجنبى المرفق أيضا بحيث أنه عند التكرار فى السجلين معا تظهر رسالة تحذير بذلك بالضغط على موافق فيها يتم التوجيه الى السجل الاصلى أتمنى أن يكون سؤالى واضحا مع خالص شكرى وتقديرى Database1.zip Prevent_Duplicates.zip

شكرا أخى العزيز تقريبا فهمتنى .. سأحاول مرة أخرى

شكرا أخى العزيز ولكنى توصلت الى الدالة المطلوبة فى موقع أجنبى وكانت كالتالى =DateAdd("d";Nz([Drivepen_period];0);[PenDate]) مع خالص شكرى لكم جميعا

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

ياريت يا جماعة حد يتعب ويرد على

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

السلام عليكم جميعا وكل عام وأنتم بخير سؤالى هو كيف يمكن الذهاب الى سجل معين فى نموذج فرعى عن طريق نموذج رئيسى بمعنى فى المثال المرفق بالضغط على مربع النص يتم فتح نموذج به السجل المحدد عن طريق الكود DoCmd.OpenForm "frmVehicles", acNormal, , "[eid]=" & Me!EId فما هو الكود الذى يذهب بى الى سجل معين فى نموذج فرعى داخل هذا النموذج المسمى frmVehicles أتمنى أن أكون وفقت فى طرح السؤال وأتمنى الا تتاخروا على مع خالص شكرى وتقديرى dbOpenFormOnSameRecord.zip

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

السلام عليكم رجاء افادتى عن كيفية ضبط دالة nz على التعبير =DateAdd("d",[PenDate],[licpen_Period]) لقد حاولت أن اضعه على الصيغة التالية =DateAdd("d",nz([PenDate]),nz([licpen_Period])) ولكن النتيجة كانت غريبة جدا حيث أظهرت لى تاريخ 1899 أرجو الافادة وشكرا