منتصر الانسي

جزاكم الله خير على هذه الردود الجميلة خاصة من أساتذة أمثالكم تحياتي,,,

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

اخي العزيز مرفق لك مثال اجنبي رائع حيث يقوم عند فتح البرنامج باختبار مسار الجداول المرتبطة فإن كانت قاعدة البيانات موجودة فيتم الدخول مباشرة الى البرنامج اما اذا لم يجد قاعدة البيانات فسيظهر لك نموذج لتحديد المسار الجديد للبيانات . تحياتي,,, Link Tables.rar

اخي العزيز اليك مثالك به احدى الطرق تحياتي,,, db1.rar

تكرم عيونك اخي العزيز وان شاء الله بالتفصيل الممل اولا: تتميز like عن = من حيث انها يمكنها التعامل مع معاملات أو إختصارات اكسس (او مهما كان اسمها) وللتوضيح فمثلاُ علامة النجمة "*" يقصد بها اي سلسلة حرفية وعلامة الإستفهام "؟" يقصد بها اي حرف بينما (=) فتتعامل مع النجمة كنجمة وعلامة الاستفهام كعلامة استفهام ثانياُ:في معايير الاستعلام تم استخدام دالة (Replace) والتي تقوم باستبدال اي (حرف أو مقطع) من الجملة بحرف او مقطع اخر حيث ان [forms]![form1]![txtPar] تمثل مسار مربع النص الذي في النموذج والذي يحتوي على الجملة المراد استبدال مقاطع فيها ;" "; يمثل الجزء المراد استبداله وهو المسافة Space "*" ويقصد به المقطع الجديد بعد الاستبدال وعليه ستتحول جملة البحث "مص عي با" الى "مص*عي*با" اما 1 , -1 فهي اختيارية وتأتي إفتراضيا هكذا ويقصد بها من اين يبدأ البحث ولمزيد من المعلومات يمكن الاطلاع على تعليمات اكسس اخيراً:سيكون الشكل النهائي لمعيار الاستعلام Like "*" & Replace([forms]![form1]![txtPar];" ";"*";1;-1) & "*" على شكل Like "*مص*عي*با*" وتعني اي سلسلة احرف او ارقام تحتوي على "مص" و "عي" و "با" ارجو ان اكون قد وضحت والمعذرة على الإطالة تحياتي,,,

اخي العزيز يوجد لك حلين الاول:- ان تجعل نوع الحقل في الجدول من نوع (نص) الثاني:- ان يتم الادخال في الحقل كأرقام ولكن في الاستعلام او في النموذج او التقرير تستخرج النتيجة بالصورة التي تريدها فمثلا اذا كان الحقل باسم MyNum وادخلت فيه الرقم 1550 اكتب الكود التالي في المكان الذي تريده Format([MyNum];"00000") وستكون النتيجة 01550 ولاحظ ان عدد الارقام التي ستظهر تكون مساوية لعدد الأصفار تحياتي,,,

اخي العزيز تفضل المثال المرفق تحياتي,,, db1.rar

بالضبط هذا هو المقصود

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

اخي العزيز الكود الذي وضعته انت يقوم بحذف سجلات جدول SN1 كل مرة تنفذ فيها الكود str_SQL_DEL1 = "DELETE SN1.*FROM SN1;" DoCmd.RunSQL str_SQL_DEL1 ثم تقوم بالحاق السجلات الجديدة الخاصة بالارقام الفاضية للمكان المحدد في النموذج فقط فاذا كنت تريد ان يحتوي الجدول على جميع الارقام الفاضية لجميع السجلات فهذا يتطلب منك تعديل الكود بحذف السطرين المذكورة وعليه فسيتم الحاق الارقام الفاضية لكل سجل تمر فوقه في النموذج تحياتي,,,

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

اخي العزيز لا ادري اذا كنت قد فهمت قصدك ولكن جرب التعديل المرفق تحياتي,,, mmm.rar

اخي العزيز الان يعتمد ترقيم ID التاريخ الهجري MyDatee فلو جربت ادخال تاريخ في ديسمبر 2010 سيتم اضافة الرقم خلال عام 1432 وجرب ادخال تاريخ في ديسمبر 2011 سيتم اضافة الرقم في عام 1433 تحياتي,,,

اخي العزيز تفضل التعديل تحياتي,,, القيمة.rar

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

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

اخي العزيز مرفق لك كتابين بالعربي ارجو ان تستفيد منهما ولا تنسى الدعاء للكاتبين والمرسل تحياتي,,, ADO & DAO.rar

اخي العزيز تفضل مثالك بعد التعديل تحياتي,,, القيمة.rar

اخي العزيز يمكنك اظهار قيمة مربع النص وذلك بالاشارة الى مسار مربع النص في التقرير كما يلي : - اذا افترضنا ان النموذج اسمه Form1 ومربع النص في النموذج اسمه Text1 - اذهب الى مربع النص في التقرير وفي مصدر البيانات لهذا العنصر اكتب الجملة =Forms!Form1!Text1 - ملاحظة هامة لاظهار البيانات يجب فتح التقرير اثناء ما يكون النموذج مفتوح. تحياتي,,,

أخي العزيز مرفق لك مثالك بعد التعديل في الإستعلام مع ملاحظة مايلي : - يمكنك استبدال جملة [ادخل الرقم] بما فيها القوسين بمسار اي مربع نص في اي نموذج (هذا اذا اردت) - يمكنك الاستعلام باي عدد من الارقام (رقم - رقمين - ثلاثة ....الخ) تحياتي,,, db1.rar

أخي العزيز مرفق لك مثالك بعد توضيح طريقتين للحل في الاستعلام الاولى (NewJob1) تعتبر حل معقد قليلا ولكنها تتم في الاستعلام مباشرة أما الأخرى (NewJob2) وهي الافضل والاسهل وذلك عن طريق إنشاء جدول جديد يحتوي على الوظيفتين قبل وبعد ثم وبربط الجدولين بالوظيفة القديمة يمكنك إظهار الوظيفة الجديدة المقابلة لها تحياتي,,, Change v.rar

مشكور أخونا العزيز وجزاك الله الف خير

أخي العزيز يمكنك الإطلاع على المشاركة هنـــا تحياتي,,,

أخي العزيز في أكسس قم بتصميم التقرير بحسب الحجم الذي تريد من حيث الطول والعرض مع مراعاة الهوامش أما من حيث تحديد نوع الورق فهذا مرتبط بالطابعات المعرفة في الجهاز مثلاً : - في الوضع الإفتراضي لويندوز ستجد أن الأحجام المعرفة محصورة بين Letter و A4 وبقية الأحجام الإفتراضية - إذا قمت بتعريف طابعة كبيرة ستلاحظ ظهور أحجام أخرى لم تكن موجودة من سابق - إذا قمت بتعريف طابعة كروت أو بطائق تعريفية ستظهر لك أحجام أخرى جديدة فإذا لم تجد الحجم المحدد ستتم المعاينة والطباعة بالحجم الافتراضي للطابعة الإفتراضية لذا فعند تعريف الطابعة التي تستخدمها في عملك سيظهر لك الحجم الذي تريده للتقرير ولكي تربط تقريرك بهذا الحجم فالمطلوب منك تنفيذ الإجراءات التالية 1- تعريف الطابعة أولاُ (حتى وان لم تكن موجودة فعلاً) 2- من خصائص الطابعة إجعل الحجم وإعداد الصفحة المطلوبة لتقريرك هي الإعدادات الإفتراضية للورق في الطابعة 3- فتح التقرير (في وضع التصميم أو المعاينة) ثم من قائمة (ملف) قم بإختيار (إعداد الصفحة) 4- قم بتحديد الطابعة المخصصة لتكون هي الطابعة الإفتراضية للتقرير كما في الصورة لذا فكما سبق ما عليك يا أخي الا أن تصمم تقريرك بالأبعاد المطلوبة منك وتنفيذ الخطوات كما أوضحت لك أعلاه وأن تعرف طابعتك في أي جهاز ترغب في تشغيل برنامجك فيه لمعاينة تقاريرك بالحجم الذي ترغب به. أرجو المعذرة على الإطالة وسامحني على اي تقصير في الشرح, تحياتي,,,

أخي العزيز كما قال أخونا كابون فالمشكلة هي ان الكود معمول لنموذج محدد ولن يطبق في جميع النماذج إلا بعد تعديل مايناسب النموذج الجديد ويمكن تحديد المواضع التي يجب تعديلها في الكود كما يلي : !CustomerID = Me.CustomerID !EmployeeID = Me.EmployeeID !OrderDate = Date 'etc for other fields هنا يطلب منك تحديد حقول النموذج الرئيسي التي سيتم نسخها ففي النموذج الذي وضع الكود له كان به ثلاثة حقول هي (CustomerID,EmployeeID,OrderDate) لذا يجب تعديلها بما يتناسب مع الوضع الخاص بك ومعنى الجملة (etc for other fields) أي إضافة أي حقول أخرى تريدها أي لا تتقيد بثلاثة حقول فقط lngID = !OrderID هنا عليك تحديد الحقل الذي يعتبر مفتاح رئيسي وتضعه بدلاً عن OrderID If Me.[Orders Subform].Form.RecordsetClone.RecordCount > 0 Then هنا يتم تحديد إسم النموذج الفرعي بدلاً عن Orders Subform strSql = "INSERT INTO [Order Details] ( OrderID, ProductID, Quantity, UnitPrice, Discount ) " & _ "SELECT " & lngID & " As NewID, ProductID, Quantity, UnitPrice, Discount " & _ "FROM [Order Details] WHERE OrderID = " & Me.OrderID & ";" هنا يجب وضع جملة SQL الخاصة بإلحاق السجلات الفرعية وبالطبع إذا ما قمت بتعديل الكود في المواضع المحددة أعلاه بما يتناسب مع برنامجك عندها سيتم تنفيذ الكود بدون مشاكل إن شاء الله تحياتي,,,