looodi

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

نعم انا اقصدapprovable اريد ان اعمل لها تعديل الى رجيكت لاتوجد مشكله بذالك

اخي الان اراجع الداتا بدر الي سوال الان كلمه approvabl تقصد بها عدم قبول ؟ اذا تقصد كذالك مارايك ان اجعلها reject? اتوقع كذا تكون واضحه

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

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

اهلا وسهلاً اخي على حسب معرفتي من المنتدى وكان لدري سؤال مشابة لما طلبت قمت بعمل اولا تقوم بعمل جدول يحتوي على الحقول التي تريد ان تكون لها صلاحيه مثلا ادمن ووموظف والخ ثم قمت بعمل نموذج وادرجت به تكست بوكس واحدة لليوزة والاخرى للباسورد ادرجت زر وسميته بأسم 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

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

up

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

up

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

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

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

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

هل ممكن ان تشرح لي ماقمت بفعله ااخي لما رخلت النموذج الثاني واريد ان اعمل ابروف ظهر لي هذا الخطا انت كتبت في الكود approvable ?? اتوقع انه المفروض يكون approved صح؟ Private Sub Approved_BeforeUpdate(Cancel As Integer) If Me.Approved= True Then MsgBox "you Approved this case" End If End Sub ?

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

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

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

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

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

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

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

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

up

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