أبو هادي

السلام عليكم مشكلة كبيرة في جمع الوقت تحياتي .

السلام عليكم تم إضافة إرسال الرسائل كإيميلات كذلك تم عمل استعلام لحذف الرسائل التي مضى عليها أكثر من 15 يوم . من هنا تحياتي .

السلام عليكم تم إضافة إرسال الرسائل كإيميلات كذلك تم عمل استعلام لحذف الرسائل التي مضى عليها أكثر من 15 يوم . تحياتي . الملفات المرفقة POPUP-97.rar ( 134.83k ) عدد مرات التحميل: 400

السلام عليكم لقد انتهيت الآن من إضافة إرسال الرسائل كإيملات وسوف أقوم غدا إن شاء الله بتجربة المثال ثم رفعه للمنتدى . تحياتي .

السلام عليكم بعد إذن أخي السيد عبدالعال .. أرى أن ما أوضحه أخي السيد صحيح من الناحية النظرية ولكن العملية أي التطبيق فأعتقد (غير متأكد) أنه لن يتم بالكيفية المذكورة . أرى أن يضاف صندوق نص في تذييل الصفحة أو التقرير للمجموع وليكن أسمه SumOfSalaesValue ويكون مصدر التحكم فيه كالتالي : = Sum(SalesValue) بعد ذلك نستطيع أن نطبق ما قاله أخي السيد كالتالي : = SalesValue / SumOfSalesValue تحياتي .

السلام عليكم ناتج Time يتأثر بالإعدادات الإقليمية ، فلو غيرت في الإعدادات سوف يتبدل التنسيق لكن دالة Format تجبر الناتج بالتنسيق الذي تنشده ومهما كانت الإعدادات الإقليمية . تحياتي .

السلام عليكم جرب استخدام دالة Format كما التالي : 1 - نظام 12 ساعة Me.LblClockView.Caption = Format(Now(), "hh:nn:ss am/pm") 2 - نظام 24 ساعة Me.LblClockView.Caption = Format(Now(), "hh:nn:ss") تحياتي .

السلام عليكم الأخ مندل .. هل ما أوضحته حل بديل أم إضافة أم ماذا ؟ لو كلفت نفسك قليلا وأنزلت نسخة من المثال واطلعت عليها قبل أن تكتب مشاركتك الجميلة كان أفضل علما أن خاصية الإنزال مجانية ولا تحتاج لشرائها من المتجر :d ، عموما شكرا لك وهي معلومة جديدة بالنسبة لي . تحياتي .

السلام عليكم شكرا لك أخي السيد عبدالعال على تفاعلك . لقد ذكرت حصولك على أسماء الأجهزة ولم توضح حالة الإرسال ، هل نجحت معك أم لا ؟ لدي اقتراح واعتقد أن الجميع سوف يوافقني عليه ألا وهو : إضافة إرسال الرسالة بالإيميل ، حيث استحسنت الفكرة بعد أن رأيت أحد الأمثلة في موضوع للأخ Daniello . بانتظار رأيكم . تحياتي .

السلام عليكم لقد تم تنقيح المثال كثييييييييييييييييرا . وتم إضافة الإستعلامات وتمت تسمية الجداول على نسق ملفات النظام ، حيث يمكن إخفاؤها وإظهارها مع ملفات النظام تماما . تحياتي . FindDuplicates.rar

السلام عليكم شكرا لك أخي محمد على تثبيت الموضوع . سأبدأ أنا :d لقد اكتشفت نقصا وهو عدم اظهار الإستعلامات ، وسوف أقوم الليلة إن شاء الله بإضافتها . تحياتي .

السلام عليكم أشكرك أخي محمد على هذا التفاعل وعلى تثبيت الموضوع . وللعلم هذا أول موضوع يثبت لي منذ عرفت النت :d ما عدا مشروع القرآن الكريم . ردا للملاحظات التي تفضلت بها : 1 – اعتقدت أني تخلصت من مشكلة الحصول على أسماء الأجهزة وإذا بها لا زالت موجودة ، الحقيقة أني احترت معها . 2 – رسائل التحديث يمكن إيقافها عن طريق خيارات الأكسس : Tools Option Edit/Find Confirm ثم إزالة علامة الصح من : Action queries 3 – مع محاولاتي العديدة لم أستطع الوصول إلى أسماء المستخدمين ولكني استنتجها من أسماء الأجهزة ، فلذلك أوصي بإتباع التوصيات التي وضحتها سابقا . تحياتي .

السلام عليكم كما يمكن عن طريق هذا الحدث مع المعذرة لأخي محمد : Private Sub Form_Current() If Me.NewRecord Then Me.AllowEdits = True Else Me.AllowEdits = False Me.AllowDeletions = False End If End Sub تحياتي .

السلام عليكم إضافة إلى أخي محمد : يمكن وضع شرط صحة Validation Rule في حقل الجدول أو في صندوق النص : Len([t1])<=120 أو عن طريق الكود للحدث التالي : Private Sub t1_Change() If Len(Me.t1.Text) > 120 Then Beep SendKeys "{BS}" End If End Sub تحياتي .

السلام عليكم تم بحمد الله . ويحتاج الآن إلى تجاربكم وإبداء ملاحظاتكم . ولقد التزمت بما ألزمت به نفسي سابقا بإبقاء أوائل السجلات المكررة حسب ادخالها . ملاحظة : يكفي استيراد النموذج فقط لبرامجكم . تحياتي . الملف المرفق ( عدد مرات التنزيل: 14 ) FindDuplicates.rar

السلام عليكم يوجد جزء من إجراء GetIndexes يمكن اختصاره من : rst!FieldType = IIf(idxLoop.Primary, IIf(InStr(1, idxLoop.Fields, ";") > 0, "", _ FieldType(tdf(Mid(idxLoop.Fields, 2)).Type)), _ FieldType(tdf(Mid(idxLoop.Fields, 2)).Type)) إلى : rst!FieldType = FieldType(tdf(Mid(idxLoop.Fields, 2)).Type) تحياتي .

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

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

السلام عليكم تبادل رسائل عبر الشبكات ، مثال قديم تم تطويره كثيرا ولا يزال يحتاج المزيد . الآن يعمل فقط مع شبكات الويندوز وتم تعطيل النوفل . من ميزاته الآن أنه يرسل الرسالة إلى المرسل إليه بثلاث وسائل برا وبحرا وجوا  بإرسال واحد حيث أنه يقوم بالتالي : 1 - إرسال الرسالة إلى جهاز المرسل إليه . 2 – إرسال الرسالة إليه كمستخدم على أي جهاز آخر على الشبكة نفسها طبعا . 3 – إرسال الرسالة إلى قاعدة بيانات مرتبطة مع البرنامج بحيث يضمن عدم فقدان أي رسالة حتى وإن لم يكن موجودا على الشبكة وقتها وذلك باستعراض الرسائل لاحقا ولكن تحديدا من جهازه فقط ولا يمكنه ذلك من جهاز آخر حفاظا على السرية . وهناك ثلاث خيارات للإرسال : 1 – إرسال الرسالة لمستخدم أو عدة مستخدمين . 2 – إرسال الرسالة لمجموعة أو عدة مجموعات مع تعطيل أي عضو/مستخدم ضمن المجموعات مؤقتا دون الحاجة إلى حذفه . 3- إرسال الرسالة إلى الجميع على الشبكة . وهناك ميزات أخرى : 1 - يمكن معرفة كل الأجهزة/الطرفيات الداخلة على الشبكة . 2 – استطاعة كل مستخدم حذف رسائله الخاصة . 3 – إضافة أي جهاز جديد والمستخدم آليا إلى قائمة المستخدمين والأجهزة . 4 – ترتيب قائمة المستخدمين والأجهزة تصاعديا وتنازليا والبحث فيها بشكل سهل . 5 – الاحتفاظ بالرسائل المرسلة . 6 – تعيين رسالة أصلية/أولية default من بين الرسائل يتطلب إرسالها باستمرار . وهناك نقص لم أعمله حتى الآن وهو حذف الرسائل العامة حيث يتطلب من المسئول التدخل يدويا بحذفها وإلا تجمعت دون حاجة لها . توصيات لا بد منها ليعمل البرنامج بشكل كامل وواف : 1 – يفضل أن تسمى الأجهزة باسم المستخدم مع إضافة –PC وأن يكتب في وصف الجهاز اسم المستخدم ودائرته وذلك كالتالي : لو كان اسم المستخدم Ali مثلا : يقترح اسم الجهاز أن يكون : Ali-PC ووصفه : Ali, Management المثال على هذه الوصلة : تبادل الرسائل للشبكات عبر الأكسس تحياتي .

السلام عليكم تبادل رسائل عبر الشبكات ، مثال قديم تم تطويره كثيرا ولا يزال يحتاج المزيد . الآن يعمل فقط مع شبكات الويندوز وتم تعطيل النوفل . من ميزاته الآن أنه يرسل الرسالة إلى المرسل إليه بثلاث وسائل برا وبحرا وجوا :d بإرسال واحد حيث أنه يقوم بالتالي : 1 - إرسال الرسالة إلى جهاز المرسل إليه . 2 – إرسال الرسالة إليه كمستخدم على أي جهاز آخر على الشبكة نفسها طبعا . 3 – إرسال الرسالة إلى قاعدة بيانات مرتبطة مع البرنامج بحيث يضمن عدم فقدان أي رسالة حتى وإن لم يكن موجودا على الشبكة وقتها وذلك باستعراض الرسائل لاحقا ولكن تحديدا من جهازه فقط ولا يمكنه ذلك من جهاز آخر حفاظا على السرية . وهناك ثلاث خيارات للإرسال : 1 – إرسال الرسالة لمستخدم أو عدة مستخدمين . 2 – إرسال الرسالة لمجموعة أو عدة مجموعات مع تعطيل أي عضو/مستخدم ضمن المجموعات مؤقتا دون الحاجة إلى حذفه . 3- إرسال الرسالة إلى الجميع على الشبكة . وهناك ميزات أخرى : 1 - يمكن معرفة كل الأجهزة/الطرفيات الداخلة على الشبكة . 2 – استطاعة كل مستخدم حذف رسائله الخاصة . 3 – إضافة أي جهاز جديد والمستخدم آليا إلى قائمة المستخدمين والأجهزة . 4 – ترتيب قائمة المستخدمين والأجهزة تصاعديا وتنازليا والبحث فيها بشكل سهل . 5 – الاحتفاظ بالرسائل المرسلة . 6 – تعيين رسالة أصلية/أولية default من بين الرسائل يتطلب إرسالها باستمرار . وهناك نقص لم أعمله حتى الآن وهو حذف الرسائل العامة حيث يتطلب من المسئول التدخل يدويا بحذفها وإلا تجمعت دون حاجة لها . توصيات لا بد منها ليعمل البرنامج بشكل كامل وواف : 1 – يفضل أن تسمى الأجهزة باسم المستخدم مع إضافة –PC وأن يكتب في وصف الجهاز اسم المستخدم ودائرته وذلك كالتالي : لو كان اسم المستخدم Ali مثلا : يقترح اسم الجهاز أن يكون : Ali-PC ووصفه : Ali, Management 2 - يجب وضع قاعدة البيانات POPUP-History.mdb على الخادم/السيرفر وإعادة ربطها بالملف الرئيس . تحياتي . الملف المرفق ( عدد مرات التنزيل: 22 ) POPUP.rar تم إضافة مرفق آخر في المشاركة التالية .

السلام عليكم هذا اقتراح لعرض الأوقات بشكل مبسط . مع تعديل في الجدول حيث تم حذف حقول المجاميع حيث لا داعي لحفظها كما أضيف مفتاح أساسي . تحياتي . جمع_الوقت.rar

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

السلام عليكم أخي فهد .. لقد جربت المثال مرة أخرى ورأيت أن هناك فرق بين استخدام = و Like حيث اشتغل الكود مع عامل = ولكنه لم يعمل مع عامل Like !!!! . ومع ذلك أضفت لك دالة ReStr الموجودة بمشروع القرآن الكريم . جرب الآن واخبرنا بالنتيجة . تحياتي . توضيح.rar

السلام عليكم هذا آخر رد للأخ مهند مخاطبا الأخ فهد بعد أن عرض اقتراحي الأخير : وقد اقتضى رده دفعي على كتابة هذه الملاحظات : 1 – دالة changesearch() لا تحتوي على دالة Trim() والأصح أن لا تحتويها . 2 – العلة ليست في أداة/عامل Like ولو استبدل الأخ فهد أداة = بأداة Like فسيعمل الكود ولكنك للآن لم تدرك الحل بعد . 3 – لقد قارنت بين أداة Like و (الأسلوب)!!! بدلا من المقارنة بين أداة Like و أداة = معللا أن أداة Like أسرع ونحن نقبل منك إذا دعمته بدليل إن أمكن . 4 – يوجد بالدالة الثانية دالة InStr() وكان بالإمكان استخدام أداة Like إلا إذا كانت InStr() أسرع ؟ ، آمل التوضيح . 5 – لو أردنا أن ندخل في مقارنات ونناقش الأسلوب والسرعة فالدالة التي بموضوع القرآن الكريم أسرع بثلاث مرات ولن أقول لك لماذا ، حاول أن تعرفها بنفسك . 6 – كذلك الدالة الأولى بها خطأ وسيكتشفه لاحقا الأخ فهد بعد تكرار المحاولات ولن أقول لك ما هو أيضا . 7 – لولا طلب الأخ فهد مني التدخل لما تدخلت لما رأيت منك سابقا من حساسية زائدة من تداخلات الآخرين . 8 – آمل ردي هذا أن لا يمنعك من مواصلة المساهمة في برنامج مشروع القرآن الكريم . تحياتي .

السلام عليكم لقد جربت المثال وهو يعمل بدون مشاكل . يمكنك احتياطا تبديل هذا السطر : If Arabic_word Like changesearch(Arabic1) Then بهذا السطر : If changesearch(Trim(Arabic_word)) = changesearch(Trim(Arabic1)) Then تحياتي .