عبدالله كاظم

الله يسلمك أخوي طارق جرب الملف التالي قد تجد فيه ضالتك حاولت أن أشرح المودل لاختبار الصلاحية للمستخدم * للتوضيح لست من كتب اكواد المودل اسم المستخدم admin كلمة المرور 123 UsersAndPermissions.zip

شوف هذا الموضوع : تعريب برنامج المستخدمين وتوزيع الصلاحيات

وعليكم السلام ورحمة الله وبركاته ممكن الطريقة الأولى : ممكن نستخدم متغير عام ونسند له قيمة الباسورد بعد ما نتأكد من انها تتطابق مع الموجود في جدول tblPassord وبعدها نستخدم هذا المتغير في شرط عند فتح النموذج المراد الطريقة الثانية: ننشأ جدول لتخزين الباسورد عندما يسجل أحد ما الدخول ونتأكد انها متطابقة مع الموجودين في جدول tblPassord ونستفيد منه عند بداية فتح النماذج الأخر. وإذا أحد الخبراء عند حل أفضل ممكن نستفيد جرب ملفك بعد التعديل وان شاء الله يكون مفيد Multi-Users.zip

وعليكم السلام ورحمة الله وبركاته جرب هذا الكود Me.No = DLookup("[No]", "supplier", "[SupplierName]= 'الخماسية'") أو اذا تبي تاخذ قيمة الشرط من مربع نص جرب هذا الكود Me.No = DLookup("[No]", "supplier", "[SupplierName]= '" & Me.Text1 & "'") هذا اذا كان الشرط نص، أما إذا كان الشرط رقم فالكود رايكون بهذا الشكل Me.Text1 = DLookup("[SupplierName]", "supplier", "[No] = " & Me.No) أو Me.Text1 = DLookup("[SupplierName]", "supplier", "[No] = 2020")

لاحظت انك بتستخدم دالة (GoodPartOfName) 6 مرات حق كل سجل في الاستعلام (استعلام1) حق تستخلص اسم ولي الأمر واتوقع هذا اللي بيعمل البطئ عملت function في module1 اسمها getFaterFukkName Function getFaterFukkName(sFullName As String) As String Dim newData As Long Dim stNameLong stNameLong = Len(sFullName) newData = Len(sFullName) - InStr(1, sFullName, " ") getFaterFukkName = Right(sFullName, newData) End Function واستبدلتها باللي كانت موجودة في مسبقا في الاستعلام عملت نسخة من النموذج (frm_search3) وسميتها (frmSearchTest) ، حق احافظ على شغلك في النموذج الجديد شوي خففت الزحمة في حدث On Change حطيت الكود التالي : Me.SubSearchMe.Requery وان شاء الله يكون هذا هو الحل حق البطئ المصروفات2.zip

وعليكم السلام ورحمة الله وبركاته راجع الملف في المرفقات .. ان شاء الله يكون هذا المطلوب بس اقتراح .. ليش ما تكون كل البيانات في نفس النموذج وتعدل الخصائص حق بيانات الزوجة، ولما تضغط الزرار تختفي بيانات الزوج وتظهر بيانات الزوجة او تستخدم Tap Control بالعربي عنصر تحكم علامة جدولة بحيث تكون بيانات الزوج في Tap 1د وبيانات الزوجة في Tap 2 وهكذا 20_2.zip

بعد كود فتح نموذج "سكرك" نضع الكود التالي Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض بحيث يصير الكود بالشكل التالي DoCmd.OpenForm "سكرك", , , , NewRecord Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض اتمنى يكون هذا هو المطلوب