بخصوص برنامج الموظفين الاصدار الرابع - المايسترو

[DBA.Oracle]

- تستطيع مراسلة جميع المستخدمين من خلال إرسالة رسالة للمستخدم من داخل البرنامج وتحفظ داخل

قاعدة بيانات البرنامج ، يستطيع رؤيتها المستخدم عند تسجيل دخولة للبرنامج

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

[A L M A I S T R O]

اخى الكريم اهلا بك

الموضوع ببساطة هو كالتالى :

قم بعمل نموذج وضع علية مربعين نص

المربع الاول وظيفتة كتابة اسم المستخدم المرسل اليه

المربع الثانى وظيفتة نص الرسالة

وزر امر وظيفتة الارسال

آليه العمل :

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

العمود الاول : يتم وضع اسم المرسل إلية الرسالة

العمود الثانى : يتم وضع أسم الراسل

العمود الثالث : نص الرسالة

العمود الرابع : حالة الرسالة وتكون True / False

عندما يقوم المستخدم بتسجيل دخولة للبرنامج يقوم البرنامج بالبحث عن اسم العضو الذى قام بتسجيل الدخول فى الجدول الخاص بالرسائل

وإذا وجد اسم العضو موجود بالجدول وامامة رسالة وكانت حالة الرسالة False فعندها يظهر مربع يقول للمستخدم ان لدية رسالة

اعتقد ان الموضوع سهل الان واعذرنى لضيق الوقت

اى سؤال تحت امرك

تحياتى،،،

[DBA.Oracle]

اخي الفاضل / المايسترو

جزاك الله كل خير علي توضيح الفكرة

جاري المحاولة فيها

[zelten]

السلام اخي الكريم ما فهمت ممكن توضح اكثر

[DBA.Oracle]

انشاء صفحة جديدة بها الاعمدة التالية

اسم المرسل اليه - اسم الراسل - نص الرسالة - حالة الرسالة

ونقوم بانشاء فورم شامل النقاط (اسم المرسل اليه - اسم الراسل - نص الرسالة)

وعند الادخال يقوم بالترحيل الي الصفحة المنشأة مسبقا ويضيف الحالة ( غير مقروءة ) مثلا

وعندما يقوم اى مستخدم بتسجيل الدخول يتم عمل بحث فى جدول الرسائل المرحلة بشرطين

الاول ان يكون اسم المرسل اليه هو نفس اسم المستخدم الحالي

الثاني ان تكون الحالة غير مقروءة

واذا وجد صف به الشرطين يقوم بإظهار فورم آخر يعرض الرسالة

هو الشرح سهل والفكرة بسيطة وجميلة لكن عاوزة تركيز اثناء تنفيذها

تم تعديل أبريل 15, 2010 بواسطه DBA.Oracle

[DBA.Oracle]

وعندما يقوم اى مستخدم بتسجيل الدخول يتم عمل بحث فى جدول الرسائل المرحلة بشرطين

الاول ان يكون اسم المرسل اليه هو نفس اسم المستخدم الحالي

الثاني ان تكون الحالة غير مقروءة

واذا وجد صف به الشرطين يقوم بإظهار فورم آخر يعرض الرسالة

الجزء الاول سهل وتم تنفيذه والحمد لله

الجزء الثاني هو المشكلة بالنسبة لي وهي كيف اخبر البرنامج انه عندما يتم فتحه يذهب للبحث داخل جدول الرسائل بـ شرطين سبق ذكرهم

وذلك طبعا بعد انشاء خلية تحتوي علي اسم المستخدم الحالي ليتم مطابقتها مع الشرط الاول

فهل من مساعدة ..؟

[A L M A I S T R O]

عندما يقوم المستخدم بتسجيل الدخول يتم تخزين اسم المستخدم الذى قام بتسجيل الدخول فى خليه ما ولتكن الخلية A1

عندها يتم عمل مقارنة بين اسم المستخدمالموجود فى الخلية A1 وبين اسم المستخدم الموجود بجدول الرسائل اذا تمت المقارنة ونجحت بوجود اسم المستخدم

يتم بعدها عمل مقارنة اخرى على اسم المستخدم الموجود بجدول الرسائل إذا وجد ان المستخدم هذا لم يقم بقراءة الرسالة يقوم البرنامج بعرض مربع إخبارى

بوجود رسالة

اتمنى اكون وصلت وجهة نظرى

وبالخدمة ،،،

[DBA.Oracle]

اخى مايسترو

وجهة نظرك بسيطة ووصلت بالفعل لكن اتحدث عن تنفيذها بالاكواد

كيف يمكن عمل مقارنة بشرطين بالاكواد

برجاء الافادة وشكرا لمساعدتك

[A L M A I S T R O]

لو فرضنا ان اسم المستخدم سيخزن بالشيت المسمى seet1 بالخلية A1

وجدول الرسائل اسمه Seet2 والحقل A1 به اسم المستخدم والحقل B1 به حالة الرسالة

فتكون الجملة الشرطية كالتالى:

If Sheets("seet1").Range("A1") = Sheets("Seet2").Range("A1") And Sheets("Seet2").Range("B1") = False Then

[DBA.Oracle]

اخى الفاضل مايسترو

برجاء المساعدة

Private Sub Workbook_Activate()

For i = 2 To 1000

If Range("active_user") = Sheets("Messages").Cells(i, "c") And Sheets("Messages").Cells(i, "g") = ("New") Then

View_message.Show

End If

Next

End Sub

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

Sheets("Messages").Cells(i, "g") = ("OLD")

فبرجاء مراجعة الكود والتعديل بما تراه مناسبا ولك جزيل الشكر

       For i = 2 To 1000

If Range("active_user") = Sheets("Messages").Cells(i, "c") And Sheets("Messages").Cells(i, "g") = ("New") Then

TextBox1.Value = Sheets("Messages").Cells(i, "b")

TextBox2.Value = Sheets("Messages").Cells(i, "d")

TextBox3.Value = Sheets("Messages").Cells(i, "e")

TextBox4.Value = Sheets("Messages").Cells(i, "f")

Sheets("Messages").Cells(i, "g") = ("OLD")


End If


Next

حيث

b= from

d = to

g = status

new or old

[DBA.Oracle]

up