looodi

مازالت المشكلة اخي

السلام عليكم ورحمة الله وبركاتة

ارجو مساعدتي في حل الخطاء في الكود

شاكرة لكم مقدما

Private Sub login_Click()
If Me.psswrd = DLookup( "psswrd" , "useres" , "user_name"='" & Me.user_name & "'") Then
MsgBox "successfully registered"
DoCmd.Close acForm, "login"
Else
MsgBox "Make Sure that username and password are correct"
End If
End Sub
 

يعطيك الف عافية

سوف اقوم بشرح طبيعة العمل

المستخدمين 2 الموظف وصاحب المشروع

الموظف وظيفتة استقبال طلبات النقل من شركة الى اخرى

اولا يقوم  بدخول حسابه كموظف لكي يتم تعبئة بيانات النقل ومن ثم يقوم باختيار المدينة والشركة المنقول منها

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

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

اذا اختار قبول يظهر له مربع مقبول من قبل اي قسم وارا كان مرفوض لابد من ارسال سبب الرفض للشخص المنقول

والشخص عندما يقوم بتقديم طلب نقل يستلم رقم طلب لكي يتم تتبعه من وقت الى اخر قبل ام لا

هذا تصوري كاملاً للمشروع

الف الف مبروك استاذي

السلام عليكم ورحمة الله وبركاتة

بدر الي عمل مشروعالسؤال الاول

 يحتوي على 3 مستخدمين هل بأمكان عمل يوزر لكل مستخدم (رقم سري واسم مستخدم)

السؤال الثاني قمت بتقسيم العمل وجعلت الشاشه الاولى تحتوي على صلاحية الدخول هل موظف ام دكتور ام موظف موعد

الشاشه الثانيه جعلت بها اختيار اسم الدولة واسم المستوصف

الشاشه الثالثه

وضعت بها معلومات عامه للمريض +امكانية اضافة مرفق  وارسال ايميل

الشاشه الرابعه

وضعت بها جدول يجتوي على جميع الحالات التي قمنا بتدخيلها بالشاشه الثالثه ولكن هنا فيه نقطه قبول ام رفض

ارجو افادتي هل تقسيمي للموضوع جيد

وهل استطيع عمل الشاشه الرابعه ام تحتاج الى كود برمجي ؟

14 اللي شافو الموضوع ولا احد ساعدني؟

السلام عليكم ورحمة الله وبركاته

ارجو منكم مساعردتي في العلاقه بين هذا الجدولين

الجدول الاول الملفات التي تم فتحها  

رقم التسلسل

اسم المقدم بالطلب

الموظف المرسل اليه

تاريخ الارسال

رقم الملف

الجدول الثاني الملفات المروضة  

رقم الطلب

اسم الطالب

تاريخ الطلب

السجل المدني

رقم الاتصال

سبب الرفض

النتيجه

شاكره لكم

السلام عليكم ورحمة الله وبركاتة

لاحظت لما سلمت البروجكت نقطه  قفل الهاردسك لما ثببته  القاعده على جهاز وفتح البروجكتت ظهر لهم المربع المطلوب كتابه رقم التسجيل

لما اضع الرقم واعمل تسجيل لايقووم بالدخول

فقط اقوم بوضع الرقم و اغلق المربع هذا واعمل تمكين للأكسس ويدخل ؟  ارجو افادتي

On ‎12‎/‎19‎/‎2016 at 9:57 AM, Shivan Rekany said:

ممكن تشرح اكثر كيف يغير الاماكن هل بيروح للاسفل او الى جهة الايمن او اي ....

او ارفق الملف

او التقط صورة قبل تكبير

و بعد تكبير

مع تحياتي

لما اكبر النموذج الزر الاول يذهب لليمين .. مايبقى مكانة

السلام عليكم ورحمة الله وبركاتة

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

السلام عليكم ورحمة الله وبركاتة

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

وليس من رقم 1

علماً انني قمت سابقا بتعبئة بيانات ومن ثم قمت بحذفها  والان يبدا من رقم 8 كيف ارجع اخليه يبدا من رقم 1

شكرا لكم

السلام عليكم ورحمه الله وبركاته

ارجو منكم  مساعدتي في  شرح حماية مشروعي من النسخ والتعديل قبل تسليم مشروعي  غداً

1 hour ago, Shivan Rekany said:

في البداية انا عملت استعلام باسم query2 وخليت في حقل تاريخ انتهاء العقد هذا

<=date()

يعني يظهر استعلام من تاريخ الحقل انتهاء العقد اصغر او يساوي اليوم

وبعدين عملت نموذج باسم asmend وخليت مصادره استعلام query2

و في نموذج الرئيسي عند يفتح كتبت هذا الكود

dim xx as integer
'متغير باسم ئكس ئكس وخليتها رقم
xx = nz(dcount("[employee_name]" , "query2"))
'ئكس ئكس يساوي نول زير يعنس اذا كان خالي خليها صفر وتعدا من حقل امبلوي نيم من كواريري 2
if xx > 0 then
'اذا ئكس ئكس  كان اكبر من الصفر بعدين
beep
'صوت
if msgbox("عندك" & " ( " & xx & " ) " & "موظف المنتهي عقده  ، هل تريد تتابعها" , vbyesno + vbmsgboxright, "تنبيه" ) = vbyes then
' بعدين فتحت شرط اخر برسالة وبها زرين نعم و لا و خليت اسم الرسالة تنبيه و خليت الرسالة بيكون من اليد اليمنى وقفلت قوس الرسالة و واذا كان تضغط على زر الرسالة نعم بعدين
docmd.openform "asmend" m acnormal
' فتح نموذج "asmend" بطريقة نورمال
else
' واذا كان لا تضغط على زر نعم ما كتبت شي يعني لا تعمل اي شيء
end if
'قفل ايف الاول
end if
'قفل ايف الثاني

مع تحياتي

شفان ريكاني

PSDB - Copy.rar

تسلم يعطيك الف عافية

17 hours ago, Shivan Rekany said:

اتفضل 

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

راح يظهر الرسالة وبيقولك ان انتهى عقد ل (  ) اشخاص هل تريد تتابع

اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم

واذا تقول لا ما راح يير شي

شو ووافيني بالنتيجة

اذا هذا كان طلبك خلي اشرح لك العمل

مع تحياتي

شفان ريكاني

PSDB - Copy.rar

يعطيك الف عافيه هذا اللي ابيه ولكن شفت بيانات اضافيه

هل انت اضفت المرفق attach fil name

وضحي لي كيف تم عمله

16 minutes ago, Shivan Rekany said:

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

لكن لا تزعل اليوم بالعصر ان شاء الله راح اسوي كما تريد

اكن قل لي اي جدول هو للموظفين

مع تحياتي 

شفان ريكاني

نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول  موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee

18 hours ago, Shivan Rekany said:

شوف استعلام 2

ونموذج asmend

في البداية فتح نموذج الرئيسية

اتمنى ان تنال اعجابك

مع تقدير

شفان ريكاني

PSDB - Copy.rar

اخي انت قمت بوضع بيانات الاجاززة ولم تقوم بوضع بيانات الموظفين التي فيها تاريخ نهايه العقد

• اخي انت قمت بوضع بيانات جدول annul
• لم تقوم بوضع بيانات الموظفين في نموذج العقد المنتهي ؟

هل ممكن ان تشرح لي كيف عملت المجلد وووضعت المسار؟

15 hours ago, Shivan Rekany said:

 

اخي العزيز
وافيني بالنتيجه‌
هل وصلت لما تريد

مع تحيات

شفان ريكاني

لم اصل الى حل هل ممكن ان توضح لي ماذا اعمل قمت بحذف الأستعلام الان ولكن اين اضع الكود البرمجي لكي يظهر لي تنبيه بانتهاء عقد أي موظف

15 hours ago, Shivan Rekany said:

 

اخي العزيز
وافيني بالنتيجه‌
هل وصلت لما تريد

مع تحيات

شفان ريكاني

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

اخي المرفق لايعمل لدي هل ممكن ان ترفقه مره اخرى واسف على الاطاله والازعاج

يعطيك الف عافيه اخي ولكن عندي سؤال الان انت عملت نموذج واستعلام هل اربطهم بالصفحة الرئيسية ؟

قمت بانشاء استعلام واضفت فيه اسم الموظف وتاريخ انهاء العقد وعملت اضافة الامر هذا

عدد الايام المتاحه: dtediff("d" ; dte() ; [مدة انتهاء العقد])

وظهر هذا الخطا

1 hour ago, looodi said:

 

ارجو الرد اخي شفان

8 minutes ago, Shivan Rekany said:

عفوا اخي حاولت ان انزل البرامج لكن ما اكدرت

ممكن ترسللي علبريدي الخاص

shivan_rekany212@yahoo.com

او علفيس

https://www.facebook.com/Shivan1988

شفان ريكاني

تم الارسال

تفضل

https://www.4shared.com/file/Wur7WexAba/PSDB_-_Copy.html

اخي SHIVN

لما كنت اضيف المرفق ظهر لي ان حجمه كبير ياليت ترح لي اين اضع الكود

تشرح**

السلام عليكم ورحمة الله وبركاتة اتمى منكم توضيح لي طريقه تقوم علة تنبيه قبل نهايه عقد الموظف

علماً ان عقد الموظف لمدة سنة