slamc2000

السلام عليكم ورحمة الله وبركاتههل من الممكن مساعدتي في تعديل تفقيط الأرقام بالدينارحيث إني أفتقد القراءة في الفاصلة العشرية الثالثةوإذا ممكن وجود كلمة 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 هل من الممكن عمل هذا الشرط بالإستعلام أو هناك فكرة أخرى وكيف يتم صياغة هذا الشرط إذا ممكن مع الشكر الجزيل

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

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

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

للرفع

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

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

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

للرفع

وينكم يا شباب   أرجوا المساعدة

السلام عليكم البرنامج جميل جداً بس لو تعدل عليه مبيعات آجله ودفع بالشيكات وحسابات الزبائن والموردين وطباعة اتلتقرير من تاريخ والمصروفات   يعطيك ألف عافية

السلام عليكم أرجوا أن لا أثقل عليكم بطلبي هذا  وأرجوا المساعدة منكم وفقكم الله لكل خير   أرجوا مساعدتي لعمل كشف حساب للعميل والمدفوعات وتحرير سند القبض لينقص من حساب العميل وطباعة كشف الحساب .. وقد أوضحت ذلك في (نموذج1)   عند طباعة الفاتورة ... تطبع جميع الفواتير : والمطلوب طباعة الفاتورة التي بالنموذج فقط وهذه المشكلة موجود معي في جميع الفواتير والسندات   فاتورة المبيعات - المشتريات - سند قبض - سند صرف - سند دفع   أرجو مساعدتي للحصول على كشف حساب مفصل وطباعته كما هو مبين في (نموذج1)   ولكم ألف شكر    وفقكم الله لكل مايرضيه من خير وصلاح