qathi

بارك الله فيك ..

هذا ملف الخاص بصلاحيات المستخدمين المشهور قمت بعمل بعض الاضافات وتطوير بما يتناسب معي حيث يمكن أستخدام كود الاستدعاء الصلاحيات اما المختصر المعمول بدالة دي لوكب في مديول UsersAbility Call Privilege(Me) ' يوضع عند فتح النموذج أو الكود السابق الطويل والمعقد متبقي حل مشكلة واحدة فقط .. وهي بعد الدخول الى الشاشة الرئيسية ومن زر تعديل كلمة السر المربوط بنموذج ( UsersChangePassword_F ) وبعد الضغط على موافق يتم ايقاف برنامج اكسس ارجوا المساعدة بحلها اسم: qathi باسورد: 0 اسم: alli باسورد: 9 مرفق الملف: تطوير صلاحيات المستخدمين.rar

ماشاء الله والابداع جزاك الله خير .. @ابا جودى

ماشاء الله أخي @مسفر دخلت عالم برمجة مشغلات الصوت شيء رائع جدا .. بارك الله فيك ..

ياسلام أستاذنا الكبير @jjafferr هذا حل أحترافي ورائع .. بل أكثر من ما كنت أتوقعة متبقي طريقة أضافة وتحرير القيم .. بالطريقة التقليدية كما بالصورة أو أي طريقة أفضل مريحة .. حتى يستطيع المستخدم النهائي بعد تحول القاعدة الى accde بأمكانه تحرير واضافة قيم القائمة

لا بد لي من رد .. وان تأخر .. كل الحب والاحترام والتقدير لك أستاذنا وأخينا @AlwaZeeR على بذلك من وقتك وعطائك لنا حفظك الله من كل مكروه واسعدك الله بالخير بفي النياء والاخرة

مبارك عليك الترقية

ياحيا بأستاذنا الكبير والغالي علينا @jjafferr أشكرك على مرورك الطيب وكذلك أشكر الأخ @qassim-t لكن سأحول الشرح باتفصيل بقدر الأمكان.. استخدم القوائم List1 و List2 و List3 و List4 و List5 في نموذج SandExpense_F في ادخال المصروفات بشكل اسرع بدل الكتابة يدويا فمثلا عند اختيار نوع السند سند صرف موظف فان قائمة List1 تظهر وبقية القوائم تختفي، وبعد اختيار اسم الموضف ادخل المبلغ، ثم ومن قائمة List1 بالنقر على نوع الصرف يتم ادراجة في حقل note2 بالنموذج الفرعي اما بالنسبة لقائمة List0 عبارة عن ديكور الملف الذي ارفقته يعمل بشكل طبيعي .. لكن المشكلة كما اخبرني الاستاذ الغالي رمهان بارك الله فيه في موضوع سابق عند تحويل الملف الى صيغة accde فانه لا يمكن تخزين قيم جديدة او تعديلها في تلك القوائم .. وقد جربت بالفعل هذا الامر لذلك ما أريدة مثلاً: أن يتم ربط قائمة List1 بحقل EmployeeN في جدول SandNote_T وكذك الحال القوائم الاخرى ببقية الحقول، بأي طريقة مناسبة، حتى يمكن تخزين قيم جديدة او تعديلها عبر النموذج بعد تحويل القاعدة الى accde ارجوا أن يكون شرحي مفهوم هذا ملف وضعت قيم للمالك والموضف حتى تصلكم الفكرة Ex2.rar

للرفع .. هل نص الطلب غير واضح..

اخواني الكرام ارجوا المساعدة في .. طريقة تخزين قيم الحقول التي في جدول SandNote_T وربطها بقوائم List1 و List2 و List3 و List4 و List5 في نموذج SandExpense_F بحيث يتم ادراج تلك القيم في النموذج الفرعي مرفق ملف Ex.rar

أخي @محمد صلاح1 نفس ما أعانية قمت بمحاولة تعديل نظام صلاحيات العبادي الذي قام بتطويرة اخي الغالي والعزيز عليا @ابا جودى وقد أرفقت مثال على الخاص لا با جودي لعله يقوم بتعديل وما زلت انتظر اذا تريد المثال غير مكتمل ..الذي احاول فية فأليك: اضغط هنا أتمنى المساعدة من قبل الخبراء

أخي @ابا جودى أنظر الى ردك أعتقد أنك الذي طلبت قبل أن أفتح واجرب ملف أخي @AlwaZeeR هذا كلامك لكن على العموم .. شكرا لك أخي ابا جود على أهتمامك ..

أخي @AlwaZeeR قبل أي شيء لا أعرف ما أقول لك .. لكن أسأل الله أن يسعدك وأن يرزقك الخير كله في الدنيا والاخرة .. بارك الله فيك على مجهود الرائع جدا أعتذر لك عن تاخر ردي .. واسمح لي لأني حاولت تعديل الكود فغيرت بدل التاكد من وجود نفس رقم المورد الى اسم المورد ..فتم الامر لكن أذا كان رقم المورد غير موجود في دليل الهاتف فأنه ينقل البيانات ولا يظهر رسالة نجاح العملية أليك الكود للتأكد قد ربما أني أخطاءت في تعديلة Private Sub AddContacts_Click() ' On Error Resume Next SaveA If MsgBox(" هـل تـريـد نسخ بيانات المورد الى دلـيـل الـهـاتـف ؟", vbYesNo + vbQuestion, "تأكيـــد نـقـل الـسـجـل") = vbYes Then Dim Lst As String Dim Mlst As String Mlst = Nz(DLast("SupplierName", "Contacts_T", "SupplierName='" & [SupplierName] & "'"), 0) Lst = Nz(DLast("SupplierID", "Contacts_T"), 0) + 1 If IsDplcateRec Then MsgBox _ " اسم المورد موجود في دليل الهاتف وهو : ( " & [Mlst] & " )" CurrentDb.Execute _ "INSERT INTO Contacts_T" & _ "(SupplierID, SupplierName,SuPhoneTh1,sharTxt,SuTpye,SuAdress,SuPhoneTh2,NaPhoneTh2,SupplierNameA,NaMobile,SuEmail,notes,SuPhone,NaPhone,SuMobile) " _ & "VALUES (" & Lst & ", '" & SupplierName & "'" & ", '" & SuPhoneTh1 & "'" & _ ", '" & sharTxt & "'" & ", '" & SuTpye & "'" & ", '" & SuAdress & "'" & ", '" & _ SuPhoneTh2 & "'" & ", '" & NaPhoneTh2 & "'" & ", '" & SupplierNameA & "'" & ", '" & NaMobile & "'" & ", '" & SuEmail & _ "'" & ", '" & notes & "'" & ", '" & SuPhone & "'" & ", '" & NaPhone & "'" & ", '" & SuMobile & "'" & ")" MsgBox _ "تم اضافة سجل جديد برقم : ( " & [Lst] & " )" Me.Requery End If End If End Sub Private Function IsDplcateRec() As Boolean IsDplcateRec = False If IsNull(DLookup("SupplierName", "Contacts_T", "SupplierName='" & [SupplierName] & "'")) = False Then IsDplcateRec = True Else CurrentDb.Execute _ "INSERT INTO Contacts_T SELECT * FROM [SuppliersT]" End If End Function فما حل هذا الامر ؟؟ شاكراً لك تحملك وسعة صدرك ... مرفق الملف: Pro2N.rar

أخي @ابا جودى أقصد برقم المورد الحقل SupplierID في كلى الجدولين

أخي @ابا جودى أشكرك على سرعة ردك .. المطلوب بعد كتابة البيانات في نموذج Suppliers_F وعندالضغط على زر نسخ لدليل الهاتف يتم عمل نسخ للسجل الحالي من جدول SuppliersT الى جدول Contacts_T فاذا وجد الكود أن رقم المورد موجود في الجدول Contacts_T يقوم بتغيير رقم السجل المراد نقلة بزيادة رقم واحد بعد اخر سجل أرجو أن يكون الكود سهل في تركيبته حتى يسهل فهمة وتعديلة أرجوا أنه تم الايضاح ساقوم بالتجربة ووافيك بعدها بالنتيجة ..

أخواني الافاضل أتمنى المساعدة في التالي: عند نقل السجل من جدول الى أخر.. اذا كان رقم المورد موجود في الجدول الاخر يتم تغيرة تلقائيا بزيادة رقم عن رقم اخر سجل في الجدول الاخير قام الاخ العزيز AlwaZeeR بالمساعدة وزودني بالكود .. يقوم باضافة السجل جديد وزيادة رقم .. ولكن به مشكلة .. أنه لا ينسخ بيانات السجل المنقول الى جدول الهدف مرفق الملف للتعديل : Pro2.rar

للرفع ....

للرفع .. هل يوجد من يساعد في تنفيذ الطلب في المثال التالي Pro1.accdb

أخي الوزير @AlwaZeeR أرجو تطبيق عملك في ملفي التالي فيه محاولتي Database1.rar

للرفع ..

أخي الوزير @AlwaZeeR أشكرك على جهدك وعملك الرائع يعمل بشكل جيد أذا كان حقل منفرد فقط لكن لا أعرف بخصوص أدراج أكثر من حقل يبدو أنه لم يفلح معي .. هذا مثال أتمنى منك التعديل علية Database1.rar

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

ألتزاماً بقوانين المنتدى وحتى لا اطلب في الموضوع السابق أحتاج عند نقل السجل من جدول الى أخر.. اذا كان رقم المورد موجود في الجدول الاخر يتم تغيرة تلقائيا بزيادة رقم عن رقم اخر سجل في الجدول الاخير مع العلم الكود التالي للتاكد من وجود نفس الرقم من جدول الاخير If DCount("SuID", "[Contacts_T]", "[SuID]= " & Me.SupplierID) > 0 Then المطلوب كود على طريقتين كل واحد مستقل عن الاخر: الاولى: يحدث الزيادة في الجدول الاخير وليس في الاول والثانية: في الجدول الاول والثاني

للرفع ..

الله ينور عليك أخي @مسفر بالفعل نجح الأمر معي