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

4- كما ارجو ان اعرف طريقه سهله للبحث فيها عن السجلات من تاريخهم او من اسم المرسل اليه او المرسل !

أهلا وسهلا بك أختي 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 باسم الجدول الذي فيه الرقم..

أرجو أن أكون وفقت في التوضيح..