rudwan

اذا لم يتضح الجواب أعد الطلب مرة أخرى

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

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

ضع في قاعدة التحقق من الصحة شرط عدم ادخال قيمة خالية أي Not Null

لو زدت من الشرح زادت فرصتنا في فهم المطلوب تحياتي

اذا كنت تريد فقط معرفة البيانات الخاصة بتعديل حقل معين و ليس كل الحقول , احذف الكود الخاص بالبحث عن جميع الكونترول ليقتصر الكود على الجملة التالية بفرض أن الحقل المطلوب هو Amount Dim m As Integer Dim ctl As Control Dim g, k, s As String Dim z As Date k = MyUser.UserName s = CStr(Now()) If Me.Amount.OldValue <> Me.Amount Then g = "INSERT INTO Modifications ( RecordID, TableName, FieldName, OldValue, NewValue,ModifiedBy, ModifiedDate) values(" & Me.Direct_ID & " , " & Chr$(34) & "employee" & Chr$(34) & " , " & Chr$(39) & ctl.ControlName & Chr$(39) & " , " & Chr$(39) & ctl.OldValue & Chr$(39) & " , " & Chr$(39) & ctl & Chr$(39) & " , " & Chr$(39) & k & Chr$(39) & " , " & Chr$(39) & s & Chr$(39) & ")" DoCmd.SetWarnings False DoCmd.RunSQL g End If

هل تقصد تريد مجموع حقل Y في حقل نصي في النموذج ؟

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

السلام عليكم هذا مثال جيد على كيفية فتح نافذة الملفات و تحديد اسم المسار تستطيع الاستفادة منه افتح النموذج "frmFileDialog" اضغط زر "Open File Dialog at current Cursor location" يفتح لك نافذة الملفات , بعد اختيار الملف تجد مسار الملف كاملا في النص الأسفل منه "Filename selected from File Dialog::" احفظ هذا المسار في حقل نصي من حقول جدول المسارات عندك لاستخدامه فيما بعد A2KCallBackBrowseVer4.zip

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

يمكن تحديد المعايير في التقرير كما في هذا التعديل Leaving.zip

السلام عليكم هذا المثال يقوم باستيراد ملف csv مع تحديد نوع التتنسيق CSVtoFixed2k.rar

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

اعمل استعلام و أحضر فيه حقل الرواتب Salary و اضف له الحقلين التاليين كما يلي حقل القيمة الصحيحة MyNumber : Fix([Salary]) حقل المنازل العشرية DecimalPlaces:[Salary]-[MyNumber]

حوشنالك حل , يمكن يناسبك هذا حل مبدئي , و ان كان هناك تعديل مطلوب فلامانع و نظرا لأن التقرير أعمدته ستكون كثيرة جدا , فقد تم تحديده بعدد شهر واحد , و هو هنا شهر يوليو 2006 نتائج التقرير تعرض الموظفين الذين اجازاتهم محصورة مابين هذين التاريخين فقط أي من 01/07/2006 حتى 31/07/2006 مع ملاحظة مايلي : 1- لو هناك موظف اجازته من 15/06/2006 الى 15/07/2006 , فانه ستظهر بيانات اجازته عن 15 يوما الواقعة ضمن شهر يوليو فقط . و ذلك كما أسلفت نظرا لصعوبة العرض لكافة الأشهر , و يمكن ايجاد حل لهذا الشي اذا تم تجاوز اشكالية العرض . 2- يمكن تغيير مدى التاريخ و ذلك بتغيير قيمة الحقلين bs- es في الاستعلام LeavingDet Leaving.zip

الآن بعد أن تقوم بادخال رقم الفاتورة في النموذج الفرعي , سيظهر لك مبلغها ان شاء الله buill1.rar

مثل ماذا ؟

قومي بانشاء علاقة بين الجدولين على مفتاح معين مشترك بينهما

يستنتج من كل هذا أن الأرقام التي تقوم بادخالها هي فعلا أكبر من النطاق المحدد بأقل من 2 , و أنت تدخل أرقاما أكبر من 2 كما ذكرت و هي

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

أكرمك الله أخي شاهر , و ماصدر منك من نبل أخلاق اسأل الله أن يجعلك من الذين قيل فيهم و يشرفني أن تكون أخا لي في طلب للعلم . جعلنا الله منهم جميعا

تفضل , هذا ملفك SalariesProgram.rar

أنظر التقرير reports Loan.zip

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

الكود أعلاه يستخدم في الاستعلام و في النموذج حسب الرغبة مع استبدال الفاصلة المنقوطة بفاصلة عادية Expr1: DateDiff("n",[time_inter],[time_out])