بوعبد الله محفوظ

السلام عليكم ورحمة الله تعالى وبركاته مشكورييييييييييييييييين جزيل الشكر على الاهتمام أخونا الغالي والحبيب أنا جودي آآآآآآآآآآآآآآآآسف على إتعابك معنا الكود يشتغل تمام بارك الله فيك لكن أنا أيضا أريد أن أتعلم الطريقة مع Findfirst وعندما أجربها بشرط واحد تعمل بشكل جيد Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly) rs.FindFirst "Department= '" & Me.cboDepartment & "'" If rs!UserName <> Me.txtUserName Then MsgBox "íÑÌì ÇáÜÊÃßÏ ãä ÅÓã ÇáãÓÊÎÏã", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÑÓÇáÉ ÊäÈå" Me.txtUserName.SetFocus Exit Sub End If If rs!Password <> Me.txtPassword Then MsgBox "íÑÌì ÇáÜÊÃßÏ ãä ßáãÉ ÇáÓÑ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÑÓÇáÉ ÊäÈå" Me.txtPassword.SetFocus Exit Sub End If لكن عندما أضيف الشرط الثاني تبدأ المشاكل في الظهور آآآآآآآآآآآآآآآآآآآآآآسف على الإزعاج مجدد

السلام عليكم ورحمة الله تعالى وبركاته عندي شاشة الدخول بهذا الشكل وأريد عند الدخول أن يتم التحق من أن أسم المستخدم موجود في الوحدة المختارة ويوافق كلمة السر لذا استعملت FindFirst لكن للأسف لم ينجح الأمر معي هل من حل بارك الله فيكم findfirst.zip

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

نعم لقد جربتها رغم ذلك يعيد فتح النموذج " ManagementLogin "

مشكوووووووووور أخونا الوزير بقي عندي إشكال واحد وهو إذا تم فتح النموذج "ManagementLogin" يقوم بفتح "Navigation" ويذهب مباشرة إلى المراقبة حيث أنه يتم إرفاق قيمة "إسم المستخدم" إلى النموذج "Navigation" فلو جربت وضع الكود بعد الإغلاق DoCmd.Close acForm, "ManagementLogin" DoCmd.OpenForm "Navigation" Forms![Navigation]![txtSaveUser] = Me.cboUser Forms![Navigation]!navbtnControl.SetFocus SendKeys "{Enter}" تأتني الرسالة ولو أضفته قبل الإغلاق يعيد النموذج "ManagementLogin" فتح نفسه هل من حل بارك الله فيك

السلام عليكم ورحمة الله تعالى وبركاته أخونا الوزير إذا ممكن تطلع هذا الملف الحل الذي قدمته لي ينفع من داخل النموذج أما إذا تم فتحه من نموذج آخر لا يعمل ما أريده هو التالي إذا تم فتح النموذج "ManagementLogin" يقوم بفتح "Navigation" ويذهب مباشرة إلى المراقبة إذا تم فتح النموذج "AdminLogin" يقوم بفتح "Navigation" ويذهب مباشرة إلى المسؤول بارك الله فيك وآآآآآآآآآآآآآآآسف على كثرة السؤال waz-Navigation.zip

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

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

مشكوووووور أخونا الحبيب على اهتمامك المشكلة التي بقيت لدي هي منعه من الدخول فكما لاحظت يتم ظهور الرسالة التحذيرية لكن رغم ذلك يمكنه الولوج إلى "المراقبة" وأنا أريد أن أمنعه من ذلك شرفتنا بدخولك سيدي الكريم أبو خليل لقد جربته لكن للأسف لم ينجح معي

السلام عليكم ورحمة الله تعالى وبركاته عندي في النموذج مربع نص اسمه "txtSaveOpérateur" أريد في حال كان مربع نص يحوي قيمة وتم الضغط على زر المراقبة لا يتم الدخول ويبق حيث هو لقد أضفت الكود التالي Private Sub navbtnControl_Click() If Len(Trim(Me.txtSaveOpérateur) & vbNullString) <> 0 Then MsgBox "لا تملك صلاحيات الدخول ، يرجى الإتصال بالمسؤول", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "دخول غير مصرح !" Me.Undo Cancel = True End If End Sub لكن للأسف لم أنجح بارك الله فيكم وفي علمكم Navigation1.zip

السلام عليكم ورحمة الله تعالى وبركاته عند فتح النموذج يفتح مباشرة على العمال وأنا أريده أن يفتح مباشرة على المسؤول بارك الله فيكم وفي علمكم Navigation.zip

السلام عليكم ورحمة الله تعالى وبركاته أحببت أن أستعين ب Navigation Tab ليكون عملي منظم وكنت أعتقد ان التعامل معه في غاية اليسر لكن للأسف ومع محاولات كثير ومع سيل الأخطاء التي واجهتني أصبت بالإحباط خاصة وأن النموذج الذي أريد إضافته يشتغل 100 % فبمجرد فتح النموذج OpérateurForm تظهر رسائل تطالبك بإدخال القيم من أمثلة ذلك وإن كان التعامل معه كأي نموذج آخر ويتطلب التعديل على الكود فما فائدته إذن نظرا لكبر حجم الملف لم أستطع أرفاقه مباشرة https://1drv.ms/u/s!Ak95wpRhTBw9gtZ57UFYW0RZbUc5lw بارك الله فيكم وفي علمكم

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

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

السلام عليكم ورحمة الله تعالى وبركاته عند في النموذج frmOpérateurNewPass مربع نص txtNewPass غير مرتبط وأريد حفظ قيمته في الجدول tblOpérateur جربت هذا الكود لكن لم ينفع NOpérateur = Me.cboUser.Value NewPass = Me.txtNewPass.Value Dim db As DAO.Database Set db = CurrentDb sql = "INSERT INTO tblOpérateur ([Password]) VALUES ('" & NewPass & "') WHERE tblOpérateur.Opérateur =" & NOpérateur & ";" CurrentDb.Execute (sql) رسالة الخطأ التي جننتني 392 كلمة السر 0000 هل من حل بارك الله فيكم RealisationReintegration 9.zip

السلام عليكم ورحمة الله تعالى وبركاته عندي في النموذج Realisation مربع تحرير وسرد Machine أريد عند الإختيار منه تظهر الصورة في النموذج قمت بإضافة هذا الكود Private Sub cboMachine_AfterUpdate() Me.ImaMachine.Picture = Me.cboMachine.Column(1) End Sub لكن دائما تأتني الرسالة مع العلم أني أريد أن تكون الصورة مضمنة داخل الأكسس وليس من ملف خارجي هل من حل بارك الله فيكم RealisationRe 72.zip

شكرا جزيلا أستاذنا رمهان هو المطلوب بعينه بارك الله فيك أستاذنا صالح حمادي يؤتي فضله من يشاء جعل الله هذا العمل في ميزان حسناتك

مشكور جزيل الشكر أستاذنا الحبيب صالح حمادي بخصوص التعديلات التي قمت بها آآآآآآآآآآآآآآآآآآآآآآسف لتوريطك معنا إجابة عن سؤالك الأخير " يبقى سؤال وحيد أخي: و هو هل تريد أن تبقى خاصية enable للحقل Operateur دائما false أم أنك تريد تغييرها في بعض الشروط. " نعم أريد أن تبقى خاصية Enable للحقل operateur دائما False أو إذا أمكن أن لا تظهر إلا القيمة التي تم الدخول بها يعني إذا تم الدخول ب 392 لا تظهر إلا 392 وتختفي باقي القيم صادتفني مشكلة عند حفظ المعلومات و الانتقال إلى سجل جديد تذهب قيمة operateur وتصبح ?Name# هل من حل بارك الله فيك

جزاك الله كل خير

RealisationReintegration - 8.zip

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

مشكوووووووووووور أستاذتا عبد الفتاح كيرة على اهتمامك أنا أتبع طريقة الكود وهي ناجحة عندي في ملف أكسس آخر لكن في هذا الملف الفورم يفتح لكن قيمة مربع التحرير والسرد تبقى فارغة لا أدري لماذا أخونا الكريم alwazeer إذا قمت بتغير مريع التحرير والسرد إلى مربع نص 1- لا أستطيع الحفظ 2- عند الانتقال إلى سجل جديد تذهب قيمة مربع النص كما أن النموذج الفرعي يعتمد على مربع التحرير والسرد من أجل الفلتر أفيدونا بارك الله فيكم

السلام عليكم ورحمة الله تعالى وبركاته أريد فتح نموذج انطلاقا من قيمة كمبو بوكس في نموذج آخر مع تعطيل الكمبو بوكس في النموذج الجديد عند فتح البرنامج تظهر الصورة التالي بعد ذلك اريد فتح النموذج Realisation بشرطين الأول : أن تظهر نفس القيمة التي أخترتها في Opérateur code في نموذج الدخول في الكمبو بوكس Opérateur في النموذج Realisation الثاني : أن تتحول الخاصية Enable إلى Disable الخاصة بالكمبو بوكس Opérateur في الفورم Realisation المشكلة عندي أن النموذج يفتح لكن قيمة الكمبو بوكس Opérateur تبقى فارغة ملاحظة 392 كلمة السر 0000 124 كلمة السر 1111 188 كلمة السر 2222 بارك الله فيكم وفي علمكم RealisationReintegration - 7.zip

السلام عليكم ورحمة الله تعالى وبركاته عندي في فورم frmOpérateur قمت بإضافة زر btnAddPicture وفي حدث كليك |أدرجت الكود التالي Private Sub btnAddPicture_Click() DoCmd.GoToControl "btnAddPicture" DoCmd.RunCommand acCmdManageAttachments End Sub لكن تاتني هذه الرسالة رغم اني استعمل نفس الكود في ملف اكسس آخر وهو يشتغل عادي ملاحظة:لم أستطع رفع المرفق رغم ان حجمه 654 كيلو بايت

إلى حد الآن هذا كل ما لدي بارك الله فيك