• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

slamc2000

اعضاء جدد
  • عدد المشاركات

    18
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن slamc2000

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر

أحدث الزائرين لملفلك الشخصي

516 زياره للملف الشخصي
  1. السلام عليكم ورحمة الله وبركاتههل من الممكن مساعدتي في تعديل تفقيط الأرقام بالدينارحيث إني أفتقد القراءة في الفاصلة العشرية الثالثةوإذا ممكن وجود كلمة 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
  2. السلام عليكم ورحمة الله وبركاتههل من الممكن مساعدتي في تعديل تفقيط الأرقام بالدينارحيث إني أفتقد القراءة في الفاصلة العشرية الثالثةوإذا ممكن وجود كلمة 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
  3. ألف شكر للجميع ضبط معاي هذا الكود بعد المحاولة  IIf(IsNull([Payment_Date]),(Date()-[Account_Receiving_Date]),([Payment_Date]-[Account_Receiving_Date]))
  4. السلام عليكم ورحة الله وبركاته أخواني هل من الممكن عمل كود بالإستعلام على النحو التالي لدي ثلاثة حقول وهي : Account_Receiving_Date Payment_Date الهدف هو في : Account_Pending_Days المطلوب : هو في حال كان حقل Payment_Date فارغة تكون المعادلة كالتالي : Time() – [Account_Receiving_Date] وفي حال تم كتابة التاريخ في حقل  Payment_Date تكون المعادلة كالتالي :  [Account_Receiving_Date] - [Payment_Date] وتكون هذه المعادلة في حقل  Account_Pending_Days هل من الممكن عمل هذا الشرط بالإستعلام أو هناك فكرة أخرى وكيف يتم صياغة هذا الشرط إذا ممكن مع الشكر الجزيل
  5. موقصدي   الأستاذه زهرة تستاهل كل الخير
  6. آسف لم يكن قصدي وضع السالب بل العكس
  7. السلام عليكم الأخت زهراء   مشكورة وما قصرتي رحم الله والديك    في ميزان حساناتك إن شاء الله   إجابة شافية   لكن قد خطأة في تقييم الرد على الموضع   ولم أعرف كيفية التعديل   آسف على هذا العمل   فالشكر قليل في حقك    وفقك الله لكل خير
  8. أخي تسلم وفق الله لكل خير   أخي حاولت تطبيق المثال لكن لم أنجح   هل من الممكن تطبيق المثال على فاتورة واحدة  لكي أفهم أكثر وأحاول تطبيقها على باقي الفواتير   شكرا أخي
  9. أرجوا مساعدتي بطباعة الفاتورة التي بالنموذج وليست جميع الفواتير   شكراً أعزائي    
  10. أرجوا المساعدة لطباعة الفاتورة التي بالنموذج وليس جميع الفواتير   شكرا أعزائي  
  11. وينكم يا شباب   أرجوا المساعدة
  12. السلام عليكم البرنامج جميل جداً بس لو تعدل عليه مبيعات آجله ودفع بالشيكات وحسابات الزبائن والموردين وطباعة اتلتقرير من تاريخ والمصروفات   يعطيك ألف عافية
  13. السلام عليكم أرجوا أن لا أثقل عليكم بطلبي هذا  وأرجوا المساعدة منكم وفقكم الله لكل خير   أرجوا مساعدتي لعمل كشف حساب للعميل والمدفوعات وتحرير سند القبض لينقص من حساب العميل وطباعة كشف الحساب .. وقد أوضحت ذلك في (نموذج1)   عند طباعة الفاتورة ... تطبع جميع الفواتير : والمطلوب طباعة الفاتورة التي بالنموذج فقط وهذه المشكلة موجود معي في جميع الفواتير والسندات   فاتورة المبيعات - المشتريات - سند قبض - سند صرف - سند دفع   أرجو مساعدتي للحصول على كشف حساب مفصل وطباعته كما هو مبين في (نموذج1)   ولكم ألف شكر    وفقكم الله لكل مايرضيه من خير وصلاح