jjafferr

انا اعتذر عن مواصلة هذا الموضوع جعفر

انا اعطيتك نصيحتي ، وانت صاحب البرنامج ، فاعمل ما تراه مناسبا ، والله سبحانه وتعالى أسأل ان يوفقك جعفر

1. أخي sofiane ، بعد 3 ايام و 40 مشاركة ولم تتوصل لما تريد!! 2. 3و4. جميع مشاركاتك كانت عن نموذج Admin!! 4. اولا: انت عملت اللازم كما هو واضح في الصورة الاخيرة ، والحمدلله وثانيا: هذه الطريقة غير صحيحة في العمل ، فيجب على Admin ان يسجل اسم المستخدم ويعطيه الصلاحيات ، وإلا فكما قلت انت ، الكل "يدخل يخربط"!! بالاضافة لما قلت اعلاه ، انا اعطيتك نصيحة وكل الذي تسأل عنه الآن ليس سوى القشرة ، فاعمل برنامجك من اول وجديد على اساس انك تعمل على مدينة واحدة فقط ، فالظاهر انه صار تغيير في طريقة عمل البرنامج ، بدل ان يخدم 8 مدن مرة واحدة ، فهو سيكون نسخة لكل مدينة ، وستضطر عند التعديل (لو البرنامج بطريقتك الحالية) الى ان تعدل على 8 برامج مختلفة ، لأن اسماء الجداول مختلفة ووووو ، بينما لو اخذت نصيحتي وعملت البرنامج من جديد على اساس مدينة واحدة ، لرأيت ان هذا الموضوع لم يكن له حاجة اصلا 2. نعم هذا الموضوع هو مجرد القشرة ، جعفر

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

وعليكم السلام اخي طارق رجاء اعطنا مثال على النتيجة ، او مثالين. جعفر

أخي sofiane رجاء فتح موضوع جديد للسؤال الجديد ، فأنت بهذه الطريقة تخالف قوانين المنتدى بوضع أكثر من سؤال في الموضوع. مخالف ، يُقفل. جعفر

سؤال الموضوع كان: وقد اجبتك على جميع الاسئلة المتعلقة بهذا الخصوص عن طريق نموذجك Admin ، وبهذا يُعتبر الموضوع هذا منتهي اما اي شيء آخر تريد ان تضيف/تغير ، فالامر راجع لك وبالطريقة التي تعتقد انها مناسبة جميع اسئلتك تدور حول مدينة واحدة ، ولكن برنامجك فيه 8 مدن ، وهذا الذي عقّد لك الموضوع ، وخصوصا ان لكل مدينة برنامجها الخاص بها ومستخدميها ، نصيحتي ، انسى شيء اسمه مدينة ، واعمل برنامجك لمدينة واحدة فقط ، وجدول واحد ، وسترى ان جميع اسئلتك تستطيع الاجابة عليها ، وببساطة. والسلام خير ختام جعفر

جوابك هو: ادخل في البرنامج ، افتح النموذج Admin في وضع التصميم ، وافتح قفل الحقلين اسم المستخدم وكلمة السر ، الآن اغلق البرنامج (ولا اقصد النموذج Admin ، وانما البرنامج) ، 1. افتح البرنامج من جديد ، ادخل اسم المستخدم a وكلمة سره هي a ، افتح نموذج Admin ، ادخل اسم مستخدم جديد ، وليكن a10 وكلمة السر a10 ، الآن لا يمكن للـ Admin a ان يعطي هذا المستخدم الجديد صلاحية أي مدينة غير CBR . 2. اغلق البرنامج وافتحه من جديد ، ادخل اسم المستخدم a10 وكلمة سره هي a10 ، افتح نموذج Admin ، سترى انه لا يستطيع الدخول الى هذا النموذج ويـ "يدخل يخربط" ، جرب واخبرني النتيجة ، لأننا ندور في نفس الحلقة من هذه الاسئلة عدة مشاركات. جعفر

سيدي الفاضل في التقرير ، في قسم التفصيل ، وعلى حدث التنسيق ، اكمل هذا الكود: if forms!اسم النموذج!Ehdaa=-1 then myFont_Color=rgb(255,255,255) else myFont_Color=rgb(0,0,0) endif الآن تكتب اسماء الحقول التي لا تريدها ان تُظهر بياناتها me.field1.forecolor=myFont_Color me.اسم الحقل الثاني الذي في التقرير.forecolor=myFont_Color me.field3.forecolor=myFont_Color me.field4.forecolor=myFont_Color .... . ولكن تأكذ انه في حدث النقر على الزر في النموذج لفتح التقرير ، تأكد من حفظ البيانات قبل سطر فتح التقرير ، وتستطيع ان تكتب: refresh او docmd.runcommand.accmdsaverecord وبعدها يأتي امر فتح التقرير docmd.openreport ... جعفر

السلام عليكم اذا فهمت طلبك صح: 1و2و3و4و جزء من 5. انت تريد ان يُدخل Admin المدينة ، اسم المستخدم من النموذج دون الدخول الى الجدول "اريده اتوماتيك ليس يدوي" ، نعم تستطيع ذلك ، ولكنك انت الذي اقفلت هذين الحقلين (فما عليك إلا ان تفتحهم ، ويكون بإمكانك ادخال اسم المستخدم الجديد وكلمة سره من النموذج وعمل علامة الصح على المدينة) : . 5 الجزء الثاني (هناك اعضاء تابعه له لا يريد منها الدخول). اذا لا يريد منهم دخول البرنامج ، فلماذا يُدخل اسمائهم في البرنامج؟ جعفر

وعليكم السلام لازلت تستطيع استعمال الكود ، ولكن بطريقة مختلفة قليلا ، وهي ان تجعل لون خط الحقل في التقرير = لون خلفية الحقل = ابيض مثلا ، وعليه لن ترى البيانات الموجودة وفكرة أخي عبدالله هي الاسهل والافضل لك جعفر

وعليكم السلام يجب ان نصطاد رسالة الخطأ ، ونضيفها الى بقية القائمة ، ليصبح آخر الكود هكذا: Exit_cmd_Open_desktob_Click: Exit Sub err_cmd_Open_desktob_Click: If Err.Number = 3021 Then RC = 0 Resume Next ElseIf Err.Number = 13 Then Resume Exit_cmd_Open_desktob_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . جعفر 713.محتويات فولدر خارجى.accdb.zip

1 و 2 و 3 هذا اللي يعمله البرنامج الآن (الظاهر انك ما استعملت البرنامج!!) : a هو admin للمدينة CBR ، ومعاه المستخدمين a1 و a2 و a3 . وهذا دخول a في البرنامج . وعند فتحه لنموذج Admin ، يرى هؤلاء المستخدمين الذين من مدينته فقط ، ويستطيع ان يضيف مستخدمين لمدينته فقط ، ولا يرى احد من المدن الاخرى ، ولا يستطيع ان يضيف مستخدمين لمدن اخرى: . 4. ولم افهم قصدك في هذه النقطة ، حيث المستخدمين عندهم جدول واحد فقط يضمهم جميعا جعفر

وعليكم السلام وحيا الله من جانا انا ما عملت مثل ما تريد ، ولكن ، جرب ، انت مو خسران ، انا غيّرت لون الخط الى لون الخلفية ، فالبيانات ما تقدر تشوفها ، إلا اذا كنت في الحقل . . خلي هذا الكود على حدث النقر على الحقل Ehdaa Private Sub Ehdaa_Click() On Error Resume Next Dim ctrl As Control If Me.Ehdaa = -1 Then Font_Color = RGB(255, 255, 153) Else Font_Color = RGB(0, 0, 0) End If For Each ctrl In Me.Controls If ctrl.BackColor = RGB(255, 255, 153) Then 'MsgBox ctrl.Name & vbCrLf & ctrl.Value ctrl.ForeColor = Font_Color End If Next End Sub . جعفر 712.ProgSals.mdb.zip

اخي صفوان ، اخبرتك مرتين ، لا تكتب لي موضوع تعبير ، وانما اكتب لي كل نقطة برقم ، او فاصلة ، لأني ما اعرف وين يبدأ كلامك عن نقطة معينة ، ووين يتوقف وانا اعتذر عن المواصلة بهذه الطريقة

الـ Admin للمدينة لما يعمل صلاحية لأي شخص في مدينته ، فلن يستطيع ان يعملها لأي مدينة اخرى

جرب المستخدم a ، وكلمة السر a ، هو لمدينة معينة ، جرب المستخدم b ، وكلمة السر b، هو لمدينة اخرى ،

حياك الله

انا لا اعرف اذا انت حذفت شيء من البرنامج ، وعملت فيه خلل!! ولكن ، اليك هذه الصور من البرنامج الذي ارفقته انا في مشاركتي اعلاه: . . . . يعني شغال تمام جعفر

1. انت قلت تريد ان تكون عندك صلاحية النظر في جميع المدن ، فكتبت اسمك Sofiane ، يعني لما انت تدخل في البرنامج باسمك وكلمة السر ، ثم تفتح النموذج Admin ، سترى جميع المدن. اما بالنسبة لباقي اللي انت كتبته ، فوالله لم افهم شيء من جملتك/تعبيرك ، والله ، وطلبت منك رجاء ، رجاء جعفر

نعم هذا الرابط لتفعيل/إلغاء الشفت من برنامج خارجي وهذا الرابط لتفعيل/إلغاء الشفت من داخل البرنامج ، ويحتاج البرنامج الى اعادة تشغيل جعفر

ما فهمت قصدك ابدا رجاء اكتب الملاحظات كأرقام 1 و 2 ... ، ورجاء اعطني مثال عن اللي تتكلم عنه. جعفر

وعليكم السلام في نموذج Login ، نريد ان نحتفظ باسم المستخدم في متغير . وفي النموذج Form01 كلما اردت ان تفتح النموذج admin ، فيجب ان تنادي الوحدة النمطية لكي تفتحه لك باسم المستخدم الصحيح ، او Sofiane . وهذه هي الوحدة النمطية التي تعمل مصدر بيانات للنموذج admin ، وتفتحه: Option Compare Database Public Current_User As String Public frm_RecordSource As String ' Public Function Get_User() Get_User = Current_User End Function Function Get_City() As String Get_City = Current_City End Function Function Current_City() As String On Error GoTo err_Current_City Dim x() As String City = DLookup("[COM] & '|' & [CBR] & '|' & [GPL] & '|' & [Branches] & '|' & [Centres Bitumes] & '|' & [Centre de Formation] & '|' & [Direction Générale] & '|' & [UDM] & '|' & [admin]", "users", "[username]='" & Current_User & "'") x = Split(City, "|") 'which city If x(0) = True Then Current_City = "COM" ElseIf x(1) = True Then Current_City = "CBR" ElseIf x(2) = True Then Current_City = "GPL" ElseIf x(3) = True Then Current_City = "Branches" ElseIf x(4) = True Then Current_City = "Centres Bitumes" ElseIf x(5) = True Then Current_City = "Centre de Formation" ElseIf x(6) = True Then Current_City = "Direction Générale" ElseIf x(7) = True Then Current_City = "UDM" ElseIf x(8) = True Then Current_City = "Admin" End If 'Mr sofiane is exempted If Current_User = "sofiane" Then Current_City = "" frm_RecordSource = "SELECT * FROM users" Else frm_RecordSource = "SELECT username, password, admin, [" & Current_City & "] FROM users Where [" & Current_City & "]= True" End If 'Debug.Print frm_RecordSource Exit_Current_City: DoCmd.OpenForm "admin" Forms!admin.RecordSource = frm_RecordSource Exit Function err_Current_City: If Err.Number = 94 And Current_User = "sofiane" Then Current_City = "" frm_RecordSource = "SELECT * FROM users" Resume Exit_Current_City Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر 709.Database4.mdb.zip

لأنه وكما قلت سابقا: بمعنى انه هناك طريقة عمل لكل شيء في حياتنا وفي الاكسس ، والحساب في ذيل الصفحة (نتيجة جمع التقارير الفرعية) ليس من ضمنها اول ما نستسلم لهذا القانون ، فهنا نبدأ المشوار بالبحث عن الطرق البديلة لتحقيق ما نريد جعفر

وعليكم السلام رجاء مراجعة الموضوع السابق جعفر