anamo

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اليوم جايبلكم سؤال وأرجو أن تتحملوا أسإلتي الكثيرة... سؤالي هو لدي مربع نص يتم فيه عرض تاريخ آخر اتصال وأقوم أنا بتحديده ومن ثم لدي قائمة منسدلة فيها أرقام معينة حددتها وهي "بعد كم (شهر) أريد أن اتصل مرة أخرى؟؟ " ما أريده هو كيف يمكن جمع هذا الرقم مع التاريخ الذي قمت باختياره في أول مربع نص , ليتم عرض النتيجة فيما بعد ؟؟؟ الملف مرفق للمثال... والسلام عليكم ورحمة الله وبركاته .. Anamo.zip

ممتاز جدا أخي محب العلم.. فعلا المشكلة لم أكن منتبها لها.. وفعلا حل ممتاز جدا.. أرجو من الأخ أبو هادي أن يطور هذا في إصداراته الجديدة لهذا الأداة الرائعة..

أخي محب العلم فعلا ظهرت لدي المشكلة... لقد أرفقت لك الملف الرئيسي للبحث أرجو الاطلاع عليه وإبداء الرأي.. Search_Sort_20071109_NEW.rar

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

صراحة أختي فعلا ليس لدي حل لمشكلتك الآن لكن حاولي أن تشغلي الملف على جهاز آخر وجربي أو حاولي تصليح نسخة الأوفيس لديك ... عسى تنحل معك الأمور..

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

ألف شكر لك أخي أحمد... مثال جيد وفيه معلومات مفيدة جدا... بارك الله فيك..

أختي Green Tea ياريت ترسليلي الملف اللي إنت شغالة عليه حاليا .. يمكن يكون المشكلة من الملف.. ياريت ترسليه وإن شاء الله يصير خير..

ماشاء الله عليك أخي جرجس , برامجك دائما فيها أفكار جديدة.. استمر بتقديم الأفضل بارك الله فيك..

أختي GreenTea الملف عندي شغال 100% لكن قمت بتحويل الملف إلى صيغة 2003 جربي الملف وخبريني بالنتيجة ... FINAL_ANAMO2003.zip

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

وعليكم السلام أخي جهراوي الكويت تفضل أخي الملف المرفق .. إن شاء الله سيحل مشكلتك.. لكن أخي اعلم أن الله يراك في كل ما تفعل ... فأرجو أن تستخدمه بما هو صحيح .. وأرجو من إدارة المنتدى إذا رأت ذلك مخالفا أن تقوم بحذف مشاركتي فوراً.. AccP.zip

تفضلي أختي الملف المرفق وفيه نموذج البحث المطور للأخ أبو هادي... FINAL_ANAMO.zip

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

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

أخي بينك بانثر.. حملت الملف لكن لم أستطع التعديل عليه .. بالنسبة للترقيم التلقائي فالحل الذي لدي هو كالتالي.. في كل جدول من الجدال الأربعة أنشئ خانة جديدة وسمّها مثلا: ManualAutoNumber أنشئ نموذج لكل من الجداول الأربعة الآن ضع الكود التالي في الحدث عند الإغلاق, والحدث عند الحذف, لكل من النماذج الأربعة, مع تغير إسم الجدول في الكود من A,B,C,D If DCount("[ManualAutoNumber]", "A") = 0 Then DoCmd.CancelEvent Else With Me.Recordset .MoveFirst Me.ManualAutoNumber = 1 For i = 2 To Me.RecordsetClone.RecordCount .MoveNext Me.ManualAutoNumber = i Next i End With End If

أختي Green Tea أنا لسا مانسيتك.. وفعلا اليوم دخلت خصيصا للإجابة على أسئلتك .. المهم حملي الملف المرفق وشوفي كل طلباتك.. اطلعي على آخر سجل , لأني كتبت لك بعض الملاحظات عليه.. بالنسبة للبحث.. فهنالك مثال للأخ أبو هادي , قمة في الروعة , وأنا استخدمه في كافة برامجي.. http://www.officena.net/ib/index.php?s=&am...ost&p=65619 وأيضا ستجدينه بالمرفقات.. أما بالنسبة لفتح النموذج مباشرة من سطح المكتب , فما فهمت سؤالك تماما.. لكن على علمي أنك لن تستطيعي فتح النموذج إلا بعد عن طريق ملف الأكسس.. المهم جربي المرفقات وخبريني بالنتيجة.. db2Update_ANAMO.zip Search_Sort_20071109_NEW.rar

أخي بركان , لقد نسيت وضع الكود كاملاً تفضل مرة أخرى .. Private Sub Form_Load() ChangeProperty "AllowBypassKey", 1, False End Sub Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ChangeProperty = False Resume Change_Bye End If End Function

أخي بركان, في المثال الذي وجدته لأحد الأخوة هو كافي, فقط ضع هذا الكود التالي في حدث Load للنموذج الرئيسي .. (الذي يظهر عند تشغيل البرنامج) ChangeProperty "AllowBypassKey", 1, False

أختي Green tea أنا آسف جدا على التأخير.. لكن وقتي ضيق جدا جدا بسبب الامتحانات .. على كل حال وضعت لك ماسألتي في طلبك الأول.. حملي المرفق وجربي الحل.. أما بالنسبة لبقية الأسئلة فأرجو إعطائي بعض الوقت حتى انهي امتحاناتي وإن شاء الله سأرفق لك الحل بأسرع وقت ممكن.. db2_Anamo.rar

أخي Green Tea أرسل ملفك وإن شاء الله سأقوم بالتعديل المطلوب عليه وسأقوم بشرحه ..

أخي علي خسين .. أرجو التأكد من تحميلك للمرفقات.. وإن شاء سأضع لك الحل في أقرب فرصة..

أخي الشقاوي.. يرحى إرسال الملف الذي تم تطبيق الحماية عليه لأقوم بالتعديل المطلوب ليفتح مرة أخرى بالنسبة لأداة الحماية ,,, ففعلا كان فيها بعض الملاحظات.. لكن لم تواجهني مشكلة أنني لم أتمكن من فتح الملف المطبق عليه الحماية نهائيا.. ربما لم أستطع الدخول بشكل مباشر إلى نموذج صلاحيات المستخدمين في حساب الـ Super User لكن كان بإمكاني أن أدخل إلى الملف بشكل عام.. أرجو أن أكون قد فهمت قصدك في عرض مشكلتك..

ألف شكر لك أخي أبو فهد ... جزاك الله كل خير على البرنامج الرائع .. أدعو الله أن يضعه في ميزان حسناتك يارب..

أخي سامي.. ربما كان من الأفضل لو أرفقت مثالا على ما تريد.. حاول جرب وضع هذا الكود في الحدث الذي تريد.. numberfield = Me.Number Dim a a = DLookup("[number]", "names", "[number]='" & Me.Number & "'") If (IsNull(a)) Then MsgBox "هذا الرقم غير موجود", vbCritical, "رسالة تحذيرية" Cancel = True Me.Undo End If حيث في Me.Number استبدل ال Number بإسم الخانة التي وضع فيها الرقم (اسم مربع النص) وفي دالة ال DLookup استبدل ال number بإسم مصدر الحقل للرقم الذي وضع واستبدل ال names باسم الجدول الذي فيه الرقم.. أرجو أن أكون وفقت في التوضيح..