looodi

2 minutes ago, محمدنجار said:

::: Reject تعني رفض ... نعم ممكن . كما تشائين .

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

53 minutes ago, محمدنجار said:

::: Approvable  تعني عرض الشيء للموافقه عليه .... اما  Approved تعني تمت الموافقة  ... Deny تعني رفض .

نعم انا اقصدapprovable

اريد ان اعمل لها تعديل الى رجيكت

لاتوجد مشكله بذالك

3 hours ago, محمدنجار said:

 

::: بسبب هذا قلت لك حملي البرنامج

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

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

approvabl تقصد بها عدم قبول ؟

اذا تقصد كذالك مارايك ان اجعلها reject?

اتوقع كذا تكون واضحه

13 minutes ago, محمدنجار said:

::: حملي القاعده رجاءا على googl drive ليتم التعديل عليها وبعدها يتم الشرح. عموما المشكلة الاساسية كانت في العلاقات.

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

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

هل في تعديل اخر  اخي؟

8 minutes ago, محمدنجار said:

::: اعتذر البارحة لم احصل على الوقت ... الان اصبح على ما يرام تفضلي .

Refer_UP.rar

اشكرك جداً ولكن

اريد ان اعمل التعديل على قاعدتي التي لدي الاساية هل بأمكانك ان توضح لي ماعملت ؟؟

اهلا وسهلاً اخي

على حسب معرفتي من المنتدى وكان لدري سؤال مشابة لما طلبت

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

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

ادرجت زر وسميته بأسم login

ادخل هذا الكود في حدث للزر

Private Sub login_Click()
    Dim MyPass As String
        MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "رقم الباسورد" Then
            MsgBox "successfully registered"
            DoCmd.OpenForm "اسم الجدول المراد ان يكون عليه اليوزر "
        Else
            MsgBox "Make Sure that username and password are correct"
    End If

End Sub

15 hours ago, محمدنجار said:

::: البرنامج لم افهمه بشكل جيد فهو متداخل بعض الشيء ولكني سانظر اليه مساءا واتيك بالحل ...

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

up

4 hours ago, ابوخليل said:

وعليكم السلام

مما فهمت المطلوب اعادة ترقيم

اعادة الترقيم في الجداول غير مهم  ما دامت ستظهر في النهاية  في التقارير مرتبة

في التقرير خاصية للحقل ( غير المنضم) يمكن من خلالها  الترقيم مرتبا

في النماذج اقصد عندما نقوم بتعئة البيانات كامله ونحذف حقل معين يكون الترتيب ناقص اي بمعنى لو حدذف بيانات الموظف رقم 2 من النموذج اصبح الترقيم للموظفين 1345678

يبدا من 1

2 hours ago, Shivan Rekany said:

اتفضل اليكي هذا الرابط به ما طلبت

وكما قال استاذنا @ابوخليل ما يحتاج ان تعمل اعادة ترقيم مادا هناك حل اخر عند خروج التقارير

اتفضلي اليكي رابط اخرى بها ما قال عنه استاذنا ابو خليل وبها ايضا مثال على ذلك

 

 

شكرا اخي سوف اقوم بالاطلاع عليه

up

29 minutes ago, محمدنجار said:

::: هذا يعني انه يطالب بعلاقة مع الجدول Users .

::: تفضلي تم اضافة التعديلات ...

Referral2_UP.rar

لقد قمت بالتجربة الان  الحالات المنتظرة معلقه يعني مهما اضيف واعمل (شو)اظهار الحالات يظهر لي الحاله الاولى وانا لكن الحالات المعلقة المفروض تظهر كلها هو يكتب لي عدد الحالات 5 ولما اظهر الجدول هذا يظهر لي حاله واحده فقط

هنا العلاقه وماازال الخطا يظهر لي عندما اقوم بالحفظ

الان اذا قمت باضافة حاله واقوم بالحفظ ينقلني الى النموذج الثاني ولما انظر عدد الحالات المنتظرة يظهر لي0

مع انني قمت باضافة حاله وحفظتها

واقوم بالضغط على حفظ في النموذج الثاني يذهب الى الاول ومن ثم اضغط حفظ يذهب للثاني ويظهر لي الحالات في الانتظار

يعني بالاختصار اذا قمت باضافه حاله لابد من اضغط حفظ من الاول يذهب للثاني ثم حفظ يذهب للاول ومن ثم حفظ يذهب للثاني ويظهر ؟؟

هل بالامكان ان اعمل زر يكون فيه تحديث ؟

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

اخواني اريد طريقه عندما اقوم بحذف السجل رقم 2

يكون ترتيب السجلات 1345

اريد طريق بحيث عندما احذف سجل معين الارقام التسلسليه تترتب

ضبط معي الكود

4 hours ago, محمدنجار said:

::: تفضلي تم التعديل على البرنامج وحسب الطلب ... بالتوفيق

Referral_UP.rar

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

3 hours ago, محمدنجار said:

::: تفضلي تم التعديل على البرنامج وحسب الطلب ... بالتوفيق

Referral_UP.rar

هل ممكن ان تشرح لي ماقمت بفعله

3 hours ago, محمدنجار said:

::: تفضلي تم التعديل على البرنامج وحسب الطلب ... بالتوفيق

Referral_UP.rar

ااخي لما رخلت النموذج الثاني واريد ان اعمل ابروف ظهر لي هذا الخطا

انت كتبت في الكود approvable

??

اتوقع انه المفروض يكون approved

صح؟

Private Sub Approved_BeforeUpdate(Cancel As Integer)
If Me.Approved= True Then
MsgBox "you Approved this case"
End If
End Sub

?
 

7 minutes ago, محمدنجار said:

::: يمكن رفعه على Google Drive

https://drive.google.com/open?id=0B0g1QXjLFM5MekQ0UXNoeWxPSGs

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

7 minutes ago, محمدنجار said:

::: ارفقي المثال لو سمحت ..

1 minute ago, محمدنجار said:

::: المخدزن ؟! ...... لم افهم

انت شرحت لي عمل عداد يقوم باستقبال طلبات التحويل وعملت وكان شغال معاي ولكن الان عملت تست لم يضبط ولا يوجد ارتباط بين النموجين في البيانات مع العلم عملت استعلام يضم جدولين

ارجوك ساعدني

انا لدي نموذجين النموذج الاول اقوم بتدخيل بيانات واحفظها

عندما اقوم بالضغط على رز حفظ

في النموذج الثاني يظهر لي عددل 1 من البيانات لم يتم قبولها 

On ‎5‎/‎15‎/‎2017 at 11:31 AM, محمدنجار said:

::: الم تسمعي بخاصية Enabled و خاصية Edit  اللتان تتحكمان في نمكين التعدبل والاضافة من عدمه .... ؟

::: عموما نقوم بتحديد حقل او اكثر في النموذج ومن خصائص نغير خاصية Enabled او (تمكين) من Yes الى  No .... بالتوفيق.

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

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

انا قمت باضافة فقط الكود الذي كتبته

21 minutes ago, jjafferr said:

اذا ممكن اشوف الحدث بالكامل لوسمحتي

Private Sub login_Click()
    Dim MyPass As String
        MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010"  Then
            MsgBox "successfully registered"
            DoCmd.OpenForm "tbl_new"
        Else
            MsgBox "Make Sure that username and password are correct"
    End If

End Sub

1 hour ago, jjafferr said:

اذن يجب تطابق الاسم والرقم

MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010" and MyPass = "Admin" Then

 

جعفر

 

يطهر لي خطا هنا باللون الاصفر    If Me.psswrd = "1010" and MyPass = "Admin" Then

up

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

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

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