كوماندير

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

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

جيد ولكن وكأنني لم اقم بعملية التقسيم فقد عادت الجداول الى القاعدة النماذج !!!

دعنا في الخيار الاول : هل تقصد ان اقوم بحذف الجداول من قاعدة النماذج ثم عمل نسخ لها ( من قاعدة الجداول) ولصقها في قاعدة النماذج ؟ ام امهو المقصود لو تكرمت ؟

اخي اظن سؤالي واضحا ولايحتاج لمرفق بعد تقسيم قاعدة البيانات اريد كلمة مرور لقاعدة الجداول كيف اجعل قاعدة النماذج تتصل بها ؟

السلام عليكم ورحمة الله وبركاته اعزائي الكرام لدي قاعدة بيانات وقمت بتقسيمها واريد كلمة مرور لقاعدة بيانات الجداول علمتها من الدخول الخاص لكن عند فتح قاعدة بيانات بقية الكائنات تظهر لي رسالة (كلمة المرور خطأ) . كيف العمل برأيكم ؟

شكرا اخي الكريم لكن : اريد ان استغني عن استعلام التوحيد تماما . واريد ان استخدم التصفية كما بالمرفق التالي : UnionQDb2.rar

اخواني الكرام لنفترض ان لدي جدول PatientTbl به حقل PtName وجدول OrdersTbl به حقل تاريخ ويرتبط الجدولان بعلاقة واحد الى متعدد حيث المفتاح الرئيسي بالجدول الاول PatientTbl لدي نموذج ونموذج فرعي بداخله مصدر سجلاتهما الجدولان اعلاه على التوالي تحت حدث اضافة سجل جديد الى النموذج الفرعي وضعت الكود التالي Dim Uvar1 As Variant Uvar1 = DCount("PtName", "PatientTbl", "[PtName]=[forms]![mainfrm]![PtName] and [OrderDate]=Forms![MainFrm]![OrdersSubFrm].Form![OrderDate] ") If Uvar1 > 0 Then MsgBox"Reapeted Name" Me.Undo End If لم يعمل الكود معي جيدا حيث تظهر لي رساله Reapeted Name كلما نقرت على الزر عدلت الكود الى If Uvar1 > 1 Then فظلت الرسالة تظهر لي كلما حاولت اضافة اسم ولو في فترات سابقة ( ليست في هذا اليوم ) مالحل برأيكم ؟

السلام عليكم ورحمة الله وبركاته اخوتي الكرام لدي جدولين انشئت منهما استعلام توحيد وبنيت نموذجا وجعلت مصدر السجلات للنموذج جملة VBA تحول استعلام التوحيد الى جملة VBA المشكلة : عند عمل تصفية لحقل (Type) ، اذا اخترت "Donor" تختفي جميع السجلات اما اذا اخترت "Patient" فتتم التصفية جيدا بينما اذا تركت استعلام التوحيد هو مصدر السجلات للنموذج تعمل التصفية جيدا في الحالتين برأيكم أين المشكلة ؟ UnionQDb.rar

شكرا جزيلا هو المطلوب بعينه ياريت لو تفضلت بشئ من الشرح الوافي لما تفضلت بالتعديل عليه

مشكور اخي الكريم هل جربت فتح التقرير بعد اختيار عدة اشهر من الليست الذي في النموذج MainFrm وليس MainFrm1 ؟ اخي كذلك انا عندي اكسس 2007 لكن عند اختيار عدة اشهر واضغط زر فتح التقرير تظهر لي الرسالة التالية :

شكرا جزيلا للأسف تظهر لي رسالة خطأ عند فتح قاعدة البيانات

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

هلا اخبرتنا ماهو الغرض من الكود المستخدم في المثال ؟

اليكم المرفق اخواني في النموذج الاول MainFrm في مصدر الصف ل مربع القائمة تركنا فراغ في تنسيق التاريخ الشهري 'mm yyyy' وفي مصدر بيانات التقرير المراد فتحه Rpt1 جعلنا تنسيق التاريخ الشهري 'mm yyyy' . وهذا التنسيق المطلوب لفتح التقرير . اما في النموذج الثاني MainFrm1 في مصدر الصف ل مربع القائمة ازلنا الفراغ في تنسيق التاريخ الشهري 'mmyyyy' وفي مصدر بيانات التقرير المراد فتحه Rpt2 جعلنا تنسيق التاريخ الشهري 'mmyyyy' . وهذا المرفق : ‫MonthlyReports1.rar

عزيزي ابوخليل جربت التنسيق اعلاه فلم يتغير شئ وضهرت رسالة الخطأ وكأنني لم اغير شي الخطأ الذي يظهر لي هو Error 3075 جربت هذا التنسيق واختفت رسالة الخطأ لكن التقرير يظهر لي فارغا (بدون بيانات)

السلام عليكم ورحمة الله وبركاته بينما كنت ابحث عن كود اختيار عدة اصناف (أشهر) من مربع قائمة لعمل تصفية عند فتح تقرير ما وجدت الكود التالي : Private Sub cmdPreview_Click() On Error GoTo Err_Handler 'Purpose: Open the report filtered to the items selected in the list box. 'Author: Allen J Browne, 2004. http://allenbrowne.com Dim varItem As Variant 'Selected items Dim strWhere As String 'String to use as WhereCondition Dim strDescrip As String 'Description of WhereCondition Dim lngLen As Long 'Length of string Dim strDelim As String 'Delimiter for this field type. Dim strDoc As String 'Name of report to open. 'strDelim = """" 'Delimiter appropriate to field type. See note 1. strDoc = "MonthlyCompRpt" 'Loop through the ItemsSelected in the list box. With Me.MnthsList For Each varItem In .ItemsSelected If Not IsNull(varItem) Then 'Build up the filter from the bound column (hidden). strWhere = strWhere & strDelim & .ItemData(varItem) & strDelim & "," 'Build up the description from the text in the visible column. See note 2. strDescrip = strDescrip & """" & .Column(1, varItem) & """, " End If Next End With 'Remove trailing comma. Add field name, IN operator, and brackets. lngLen = Len(strWhere) - 1 If lngLen > 0 Then strWhere = "[MnthsZ] IN (" & Left$(strWhere, lngLen) & ")" lngLen = Len(strDescrip) - 2 If lngLen > 0 Then strDescrip = "Categories: " & Left$(strDescrip, lngLen) End If End If 'Report will not filter if open, so close it. For Access 97, see note 3. If CurrentProject.AllReports(strDoc).IsLoaded Then DoCmd.Close acReport, strDoc End If 'Omit the last argument for Access 2000 and earlier. See note 4. DoCmd.OpenReport strDoc, acViewPreview, WhereCondition:=strWhere, OpenArgs:=strDescrip Exit_Handler: Exit Sub Err_Handler: If Err.Number <> 2501 Then 'Ignore "Report cancelled" error. MsgBox "Error " & Err.Number & " - " & Err.Description, , "cmdPreview_Click" End If Resume Exit_Handler End Sub تظهر لي رسالة خطأ عند تنفيذ الكود دائما السبب هو ان حقل التصفية [MnthsZ] لدي هو حقل ناشئ عن استعلام والذي يظهر الشهر والعام ('mm yyyy') ، عند محاولتي لتغيير صيغة الحقل الى ('mmyyyy') بدون فراغ عمل معي الكود جيدا . السؤال هو كيف يمكنني تنفيذ الكود اعلاه عن طريق جعل نمط الشهر بالصيغة ('mm yyyy') ؟؟

في انتظار ردود الاعضاء

ربما هذا المرفق باضافة جدول حركي افضل قارن بين المثالين وارشدني ايهما افضل Shifts2.rar

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

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

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

الف الف شكر اخي محمد ايمن هو المطلوب بعينه

السلام عليكم ورحمة الله وبركاته اخوتي الافاضل لدي قاعدة بيانات اريد رسالة تنبهني عندما ادخل اسم العميل مرتين في نفس التاريخ اليكم المرفق : RepeatedName.rar

عفوا بعد البحث وجدت طريقة لذلك بتغيير OldFile = CurrentDb.Name الى مسار واسم قاعدة بيانات الجداول . لكن سؤال كيف يمكنني ان اردت ؟ الارتباط بالنسخة المحفوظة ؟