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

slamc2000
اعضاء جدد-
عدد المشاركات
22 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
0 عاديعن slamc2000
-
الرتبة
عضو جديد
معلومات الملف الشخصي
- الجنس ذكر
أحدث الزائرين لملفلك الشخصي
1,269 زياره للملف الشخصي
-
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
-
رحم الله والديك
-
slamc2000 أعطى سمعة إيجابية لــ إجابة على سؤال: ادراج الصور في النماذج و التقارير
-
أخي الفهرى نعم هذا بالضبط ما أريده فقط ألف شكر لك رحم الله والديك وجزاك الله ألف خير
-
السلام عليكم ورحمة الله وبركاته هل ممكن مساعدتي في عملية الجمع المدرجة في الصورة المرفقة كالتالي الجمع الموجود : 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
-
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
-
ألف شكر للجميع ضبط معاي هذا الكود بعد المحاولة 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 هل من الممكن عمل هذا الشرط بالإستعلام أو هناك فكرة أخرى وكيف يتم صياغة هذا الشرط إذا ممكن مع الشكر الجزيل
-
slamc2000 أعطى سمعة إيجابية لــ إجابة على سؤال: طباعة الفاتورة التي بالنموذج
-
موقصدي الأستاذه زهرة تستاهل كل الخير
-
آسف لم يكن قصدي وضع السالب بل العكس
-
slamc2000 أعطى سمعة إيجابية لــ إجابة على سؤال: طباعة الفاتورة التي بالنموذج
-
السلام عليكم الأخت زهراء مشكورة وما قصرتي رحم الله والديك في ميزان حساناتك إن شاء الله إجابة شافية لكن قد خطأة في تقييم الرد على الموضع ولم أعرف كيفية التعديل آسف على هذا العمل فالشكر قليل في حقك وفقك الله لكل خير
-
slamc2000 أعطى سمعة إيجابية لــ إجابة على سؤال: طباعة الفاتورة التي بالنموذج
-
للرفع
-
أخي تسلم وفق الله لكل خير أخي حاولت تطبيق المثال لكن لم أنجح هل من الممكن تطبيق المثال على فاتورة واحدة لكي أفهم أكثر وأحاول تطبيقها على باقي الفواتير شكرا أخي
-
أرجوا مساعدتي بطباعة الفاتورة التي بالنموذج وليست جميع الفواتير شكراً أعزائي
-
أرجوا المساعدة لطباعة الفاتورة التي بالنموذج وليس جميع الفواتير شكرا أعزائي