د.كاف يار

نعم صحيح لم اضع معيار الدرجة تفضل التعديل salary.accdb

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

تفضل هذا التعديل اذا كانت رواتب الدرجات مختلفة فستجد الموضوع اصبح اسهل من قبل Public Function Subsalary(TotalSalary As Double, Levelsalary As Double) As Double Dim SRank As Double, SGrade As Double SRank = DLookup("RankSalary", "Rank", "RankNO=" & TotalSalary) SGrade = DLookup("GradeSalary", "Degree", "GradeNO=" & Levelsalary) Subsalary = SRank + SGrade End Function salary.accdb

ماشاء الله لاقوة إلا بالله اقترح عليك لو تعملها في حلقة تكرارية بحيث يكون الكود بسيط دام ان اسماء الجداول ارقام كذلك يجب وضع VALUES قبل قوس العناصر بشكل عام مشاء الله معلم نمرة و استمارة الله يحفظك

تفضل هذا التعديل نسيت ان احسب مرتبت الراتب و الدرجة هذا التعديل salary.accdb

تفضل التعديل Nz(DSum("[total]", "New_Request", "TCODE= 42 and doctor=" & [doctors] & _ " AND Ddate Between #" & CDate([Forms]![Q_All]![FROM]) & "# And #" & CDate([Forms]![Q_All]![TO]) & "#"), 0) كذلك اذا ما ضبط التنسيق في الأعلا جرب هذا لأنك قد تواجه مشكلة في تنسيق التاريخ حسب تعاملك مع و هذا هو الحل Nz(DSum("[total]", "New_Request", "TCODE= 42 and doctor=" & [doctors] & _ " AND Ddate Between " & Format$(CDate([Forms]![Q_All]![FROM]), "\#mm\/dd\/yyyy hh\:nn\:ss\#") & _ " And " & Format$(CDate([Forms]![Q_All]![TO]), "\#mm\/dd\/yyyy hh\:nn\:ss\#")), 0)

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

تفضل هذا التعديل salary.accdb

قم بإيقاف رسالة الخطأ بإستخدام On Error Resume Next

تفضل التعديل تجربة.accdb

تفضل هذا التعديل كارت الصنف.accdb

تفضل هذا التعديل كارت الصنف.accdb

عناصر التحكم مربع النص - مربع التسمية - الأزرار - ..... الخ

تفضل هذه المشاركة Nouveau Microsoft Access Database.accdb

تفضل هذا التعديل export excelw.accdb

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

تفضل

وهذي مشاركتي معاكم يا اخواني لإستدعاء اسم المستخدم في اي مكان داخل البرنامج ضع في مصدر عنصر التحكم [User_logIn] 😅 User&Password.accdb

تفضل هذا التعديل open.zip

نفس الكود راح يعطيك النتيجة

تفضل التعديل 1678743215_.accdb

استبدل FrmAbilities في Defs بالتالي Public Sub FrmAbilities(frmName As String) Dim SF As Control, strsbfrm As String With MyUser ContinueCode = True Forms(frmName).AllowAdditions = IIf(DLookup("A", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False) Forms(frmName).AllowEdits = IIf(DLookup("E", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False) Forms(frmName).AllowDeletions = IIf(DLookup("D", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False) For Each SF In Forms(frmName).Controls If SF.ControlType = acSubform Then strsbfrm = SF.SourceObject If Not IsNull(DLookup("FRM", "FRMS", "FRM = '" & strsbfrm & "'")) Then If .GetAbility(strsbfrm, OpenForm) Then SF.Form.AllowAdditions = .GetAbility(strsbfrm, Add) SF.Form.AllowEdits = .GetAbility(strsbfrm, Edit) SF.Form.AllowDeletions = .GetAbility(strsbfrm, del) Else SF.SourceObject = "" SF.Visible = False End If Else SF.Form.AllowAdditions = Forms(frmName).AllowAdditions SF.Form.AllowEdits = Forms(frmName).AllowEdits SF.Form.AllowDeletions = Forms(frmName).AllowDeletions End If End If Next End With End Sub

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

كود التشفير يعمل بدون مشكلات لكن تأكد من أن جميع الأجهزة لديك يتم تخفيض الأمان بها و تمكين وحدات الماكرو انت تريد الغاء التشفير Function decode(A, b As String) As String On Error Resume Next Dim r, i As Integer, S, u As String u = getcode(A, b) i = Val(mID(u, 1, 1)) + 1 u = mID(u, i + 1, Len(u) - i) If Len(u) Mod 3 <> 0 Then u = mID(u, 1, Len(u) - 1) S = "" For r = 1 To Len(u) - 2 Step 3 S = S + Chr(Val(mID(u, r, 3))) Next decode = S End Function ان اردت ذلك فلن تكون بياناتك مشفرة فإن حصل دخول غير مشروع ستكون البيانات مكشوفة

ممتاز هل توجد رسالة أو رقم خطأ ؟