slamc2000

السلام عليكم ورحمة الله وبركاته أخواني لدي نموذج مرفق أريد ترقيم الموظفين بناءً على إسم الشركة (Company_Name) والحقل المطلوب ظهور الرقم فيه هو (Staff_No)  أي يكون هناك ترقيم متسلسل للموظفين بناءً على إسم الشركة  حاولت أكثر من محاولة لكن دون جدوى .. فأرجو مساعدتي في ذلك المحاولات: Me.Staff_No = Nz(DMax("[Staff_No]", "Staffs_Table", "[Company_Name] = '" & Me.Company_Name & "'"), 0) + 1   Me.Staff_No.Value = DCount("Company_Name", "Staffs_Table", "Company_Name= ' " & Me.Company_Name.Value & " ' ") + 1   http://www.mediafire.com/file/2i79npmb2pn9td5/site.rar/file   توجد أخطاء بالبرنامج بسبب حذف بعض الجداول لتصغير حجم الملف   site.laccdb

رحم الله والديك

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

  السلام عليكم ورحمة الله وبركاته هل ممكن مساعدتي في عملية الجمع المدرجة في الصورة المرفقة كالتالي الجمع الموجود : 50 130 250 المطلوب هو 50 50-80=30 80-120=40 50 30 40 فهل ممكن المساعدة في ذلك اسم الجدول: Vehicle Recipient اسم الحقل: KM_No الدالة المستخدمة حالياً: DSum: DSum(" [KM_No] ","Vehicle Recipient","[ID2]<=" & [ID2] & " ") أرجو الإفادة والمساعدة في ذلك مع الشكر الجزيل   الملف مرفق لأي تعديل https://up.top4top.net/downloadf-12835f2id1-7z.html ولكم كل الشكر والإمتنان    

السلام عليكم ورحمة الله وبركاتههل من الممكن مساعدتي في تعديل تفقيط الأرقام بالدينارحيث إني أفتقد القراءة في الفاصلة العشرية الثالثةوإذا ممكن وجود كلمة And من بعد الدينارولكم مني الشكر والتقدير Option Compare Database Option Explicit Function ConvertCurrencyToEnglish(ByVal MyNumber)   Dim Temp          Dim Dinars, Fils          Dim DecimalPlace, Count          ReDim Place(9) As String          Place(2) = " Thousand "          Place(3) = " Million "          Place(4) = " Billion "          Place(5) = " Trillion "          MyNumber = Trim(Str(MyNumber))          DecimalPlace = InStr(MyNumber, ".")         If DecimalPlace > 0 Then          Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)             Fils = ConvertTens(Temp)             MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))          End If          Count = 1          Do While MyNumber <> ""             Temp = ConvertHundreds(Right(MyNumber, 3))             If Temp <> "" Then Dinars = Temp & Place(Count) & Dinars             If Len(MyNumber) > 3 Then                MyNumber = Left(MyNumber, Len(MyNumber) - 3)             Else                MyNumber = ""             End If             Count = Count + 1          Loop          Select Case Dinars             Case ""                Dinars = "Zero Dinar"             Case "One"                Dinars = "One Dinar"             Case Else                Dinars = Dinars & " Dinars"          End Select          Select Case Fils             Case ""                Fils = " Zero Fils Only"             Case "One"                Fils = " And One Fils Only"             Case Else                Fils = " And " & Fils & " Fils Only"          End Select          ConvertCurrencyToEnglish = Dinars & Fils End Function Private Function ConvertDigit(ByVal MyDigit)         Select Case Val(MyDigit)             Case 1: ConvertDigit = "One"             Case 2: ConvertDigit = "Two"             Case 3: ConvertDigit = "Three"             Case 4: ConvertDigit = "Four"             Case 5: ConvertDigit = "Five"             Case 6: ConvertDigit = "Six"             Case 7: ConvertDigit = "Seven"             Case 8: ConvertDigit = "Eight"             Case 9: ConvertDigit = "Nine"             Case Else: ConvertDigit = ""          End Select End Function Private Function ConvertHundreds(ByVal MyNumber)     Dim Result As String          If Val(MyNumber) = 0 Then Exit Function          MyNumber = Right("000" & MyNumber, 3)          If Left(MyNumber, 1) <> "0" Then             Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "          End If          If Mid(MyNumber, 2, 1) <> "0" Then             Result = Result & ConvertTens(Mid(MyNumber, 2))          Else             Result = Result & ConvertDigit(Mid(MyNumber, 3))          End If          ConvertHundreds = Trim(Result) End Function Private Function ConvertTens(ByVal MyTens)           Dim Result As String          If Val(Left(MyTens, 1)) = 1 Then             Select Case Val(MyTens)                Case 10: Result = "Ten"                Case 11: Result = "Eleven"                Case 12: Result = "Twelve"                Case 13: Result = "Thirteen"                Case 14: Result = "Fourteen"                Case 15: Result = "Fifteen"                Case 16: Result = "Sixteen"                Case 17: Result = "Seventeen"                Case 18: Result = "Eighteen"                Case 19: Result = "Nineteen"                Case Else             End Select          Else                       Select Case Val(Left(MyTens, 1))                Case 2: Result = "Twenty "                Case 3: Result = "Thirty "                Case 4: Result = "Forty "                Case 5: Result = "Fifty "                Case 6: Result = "Sixty "                Case 7: Result = "Seventy "                Case 8: Result = "Eighty "                Case 9: Result = "Ninety "                Case Else             End Select             Result = Result & ConvertDigit(Right(MyTens, 1))          End If          ConvertTens = Result End Function

السلام عليكم ورحمة الله وبركاتههل من الممكن مساعدتي في تعديل تفقيط الأرقام بالدينارحيث إني أفتقد القراءة في الفاصلة العشرية الثالثةوإذا ممكن وجود كلمة And من بعد الدينارولكم مني الشكر والتقدير   Option Compare Database Option Explicit Function ConvertCurrencyToEnglish(ByVal MyNumber) Dim Temp Dim Dinars, Fils Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Fils = ConvertTens(Temp) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dinars = Temp & Place(Count) & Dinars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop select Case Dinars Case "" Dinars = "Zero Dinar" Case "One" Dinars = "One Dinar" Case Else Dinars = Dinars & " Dinars" End select select Case Fils Case "" Fils = " Zero Fils Only" Case "One" Fils = " And One Fils Only" Case Else Fils = " And " & Fils & " Fils Only" End select ConvertCurrencyToEnglish = Dinars & Fils End Function Private Function ConvertDigit(ByVal MyDigit) select Case Val(MyDigit) Case 1: ConvertDigit = "One" Case 2: ConvertDigit = "Two" Case 3: ConvertDigit = "Three" Case 4: ConvertDigit = "Four" Case 5: ConvertDigit = "Five" Case 6: ConvertDigit = "Six" Case 7: ConvertDigit = "Seven" Case 8: ConvertDigit = "Eight" Case 9: ConvertDigit = "Nine" Case Else: ConvertDigit = "" End select End Function Private Function ConvertHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) If Left(MyNumber, 1) <> "0" Then Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred " End If If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & ConvertTens(Mid(MyNumber, 2)) Else Result = Result & ConvertDigit(Mid(MyNumber, 3)) End If ConvertHundreds = Trim(Result) End Function Private Function ConvertTens(ByVal MyTens) Dim Result As String If Val(Left(MyTens, 1)) = 1 Then select Case Val(MyTens) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End select Else select Case Val(Left(MyTens, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End select Result = Result & ConvertDigit(Right(MyTens, 1)) End If ConvertTens = Result End Function

ألف شكر للجميع ضبط معاي هذا الكود بعد المحاولة  IIf(IsNull([Payment_Date]),(Date()-[Account_Receiving_Date]),([Payment_Date]-[Account_Receiving_Date]))

السلام عليكم ورحة الله وبركاته أخواني هل من الممكن عمل كود بالإستعلام على النحو التالي لدي ثلاثة حقول وهي : Account_Receiving_Date Payment_Date الهدف هو في : Account_Pending_Days المطلوب : هو في حال كان حقل Payment_Date فارغة تكون المعادلة كالتالي : Time() – [Account_Receiving_Date] وفي حال تم كتابة التاريخ في حقل  Payment_Date تكون المعادلة كالتالي :  [Account_Receiving_Date] - [Payment_Date] وتكون هذه المعادلة في حقل  Account_Pending_Days هل من الممكن عمل هذا الشرط بالإستعلام أو هناك فكرة أخرى وكيف يتم صياغة هذا الشرط إذا ممكن مع الشكر الجزيل

موقصدي   الأستاذه زهرة تستاهل كل الخير

آسف لم يكن قصدي وضع السالب بل العكس

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

للرفع

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

أرجوا مساعدتي بطباعة الفاتورة التي بالنموذج وليست جميع الفواتير   شكراً أعزائي    

أرجوا المساعدة لطباعة الفاتورة التي بالنموذج وليس جميع الفواتير   شكرا أعزائي