slamco2000

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

السلام عليكم ورحمة الله وبركاته أخواني لدي نموذج مرفق أريد ترقيم الموظفين بناءً على إسم الشركة (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.rar

مشكور الغالي ما قصرت تصبحون على خير

لا أعرف كيف أشكركم أخي جعر وأخي أبو ياسين فلكم الشكر الجزيل ورحم الله والديكم أكواد الأزرار من الأخ جعفر إستعملتهم وطبعاً راحت كل المشاكل ولله الحمد كود الصور ممتاز .. طبعاً أزال المشكلة التي لدي .. أصبحت هناك مشكلة صغيرة فقط .. وأستطيع أستمر بهذه المشكلة أيضاً .. إلا إذا كان لها حل فهذا شيء ممتاز مربع النص الذي يظهر ... يظهر مرتين ومكتوب به .. 13 Type mismatch تضغط أوكي مرتين ويذهب هذه هي المشكلة فقط ولكم تحياتي وأنا أعجز عن شكركم

السلام عليكم ورحمة الله وبركاته في النموذج وضعت أزرار للجدول الفرعي للنموذج الرئيسي لكن مشكلتي هو عند الوصول لآخر سجل والضغط على الزر للمتابعة يظهر خطأ للكود ... وهو من المفروض ان يعطي تنبيه لعدم وجود سجلات .. أو التوقف فما هو الحل لتعديل هذا الأمر كود السهم للخلف Private Sub Command42_Click() Forms!Violations_Form_Share!Violations_Table_subform.SetFocus DoCmd.GoToRecord , , acPrevious End Sub كود السهم للأمام Private Sub Command41_Click() Forms!Violations_Form_Share!Violations_Table_subform.SetFocus DoCmd.GoToRecord , , acNext End Sub وتقريباً نفس المشكلة في التقرير حيث يحتوي على صور ... في حال وجود سجلات يعمل بشكل ممتاز .. ولكن في حال عدم وجود سجلات وعمل بحث أو معاينة يكون الخطأ في الكود ... فإذا كان بالإمكان وجود حل لذلك Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me![ImageFrame1].Picture = Me![Picture1] Me![ImageFrame2].Picture = Me![Picture2] Me![ImageFrame3].Picture = Me![Picture3] Me![ImageFrame4].Picture = Me![Picture4] End Sub ولكم مني خالص الشكر والإحترام

وإليك الحل ربما هناك من يستفيد منه ولكن ليس بدالة DSUM الحل عن طريق ماكرو والله ولي التوفيق sub_prev.accdb

أعزائي الملف المرفق للتعديل https://up.top4top.net/downloadf-12835f2id1-7z.html ولكم كل الشكر والإمتنان

أهلين وسهلين أخي عبد اللطيف سلوم المشكلة أنه الملف كبير وحبيت أختصر المووع والصورة واضحة

السلام عليكم ورحمة الله وبركاته هل ممكن مساعدتي في عملية الجمع المدرجة في الصورة المرفقة كالتالي الجمع الموجود : 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] & " ") أرجو الإفادة والمساعدة في ذلك مع الشكر الجزيل

ألف شكر لك أخي ... رحم الله والديك .... هذا هو المطلوب

هل من الممكن أن يكون الترقيم التلقائي بناءً على إسم الشركة في المرفق من نموذج : New_Invoice أريد الترقيم يكون بناءً على الحقل : owner company name ويواصل تسلسل الترقيم بناءً على ذلك هل من حل لهذه المسألة مع الشكر الجزيل 13 - Copy.rar

لا أعلم ما المشكلة لكن الملف يظر لي damage ولا يفتح من الملف المضغوط

أمورك شوي متلخبطة ... إطرح موضوع موضوع علشان يكتمل تصميمك صح ...

الملف لا يفتح ... به مشكلة

تفضل أخي عسى أن تكون هذه غايتك حسابات 2018_5.rar غير فقط DMax("[rs]";"[R1]") وإعملها DLast("[rs]";"[R1]")

مشكلته ايضا قراءة الأرقام بعد الفاصلة العشرية لقراءة العدد : 1.235 إنظر لقراءته : one and 0.235000 أرفق لك تفقيط ممتاز ,,,,, فيه نفس المشكلة لكن أفضل ,,, يمكنكم المعاينة ,,, باللغة الإنجليزية للأسف لم أستطع إرفاق الملف بسبب الحجم ونسختها بالأسفل هذه قراءته : One Dinar And 235/Fils Only للفائدة لعل أحد يستفيد منها وألف شكر لك أخي Function English(ByVal N As Currency) As String Const Thousand = 1000@ Const Million = Thousand * Thousand Const Billion = Thousand * Million Const Trillion = Thousand * Billion If (N = 0@) Then English = "Zero": Exit Function Dim Buf As String: If (N < 0@) Then Buf = "negative " Else Buf = "" Dim Frac As Currency: Frac = Abs(N - Fix(N)) If (N < 0@ Or Frac <> 0@) Then N = Abs(Fix(N)) Dim AtLeastOne As Integer: AtLeastOne = N >= 1 If (N >= Trillion) Then Debug.Print N Buf = Buf & EnglishDigitGroup(Int(N / Trillion)) & " Trillion" N = N - Int(N / Trillion) * Trillion ' Mod overflows If (N >= 1@) Then Buf = Buf & " " End If If (N >= Billion) Then Debug.Print N Buf = Buf & EnglishDigitGroup(Int(N / Billion)) & " Billion" N = N - Int(N / Billion) * Billion ' Mod still overflows If (N >= 1@) Then Buf = Buf & " " End If If (N >= Million) Then Debug.Print N Buf = Buf & EnglishDigitGroup(N \ Million) & " Million" N = N Mod Million If (N >= 1@) Then Buf = Buf & " " End If If (N >= Thousand) Then Debug.Print N Buf = Buf & EnglishDigitGroup(N \ Thousand) & " Thousand" N = N Mod Thousand If (N >= 1@) Then Buf = Buf & " " End If If (N >= 1@) Then Debug.Print N Buf = Buf & EnglishDigitGroup(N) End If If (Frac = 0@) Then Buf = Buf & " Dinar Only" ElseIf (Int(Frac * 100@) = Frac * 100@) Then If AtLeastOne Then Buf = Buf & " And " Buf = Buf & Format$(Frac * 100@, "00") & "/100" Else If AtLeastOne Then Buf = Buf & " Dinar And " Buf = Buf & Format$(Frac * 1000@, "000") & "/Fils Only" End If English = Buf End Function ' Support function to be used only by English() Private Function EnglishDigitGroup(ByVal N As Integer) As String Const Hundred = " Hundred" Const One = "One" Const Two = "Two" Const Three = "Three" Const Four = "Four" Const Five = "Five" Const Six = "Six" Const Seven = "Seven" Const Eight = "Eight" Const Nine = "Nine" Dim Buf As String: Buf = "" Dim Flag As Integer: Flag = False 'Do hundreds Select Case (N \ 100) Case 0: Buf = "": Flag = False Case 1: Buf = One & Hundred: Flag = True Case 2: Buf = Two & Hundred: Flag = True Case 3: Buf = Three & Hundred: Flag = True Case 4: Buf = Four & Hundred: Flag = True Case 5: Buf = Five & Hundred: Flag = True Case 6: Buf = Six & Hundred: Flag = True Case 7: Buf = Seven & Hundred: Flag = True Case 8: Buf = Eight & Hundred: Flag = True Case 9: Buf = Nine & Hundred: Flag = True End Select If (Flag <> False) Then N = N Mod 100 If (N > 0) Then If (Flag <> False) Then Buf = Buf & " " Else EnglishDigitGroup = Buf Exit Function End If 'Do tens (except teens) Select Case (N \ 10) Case 0, 1: Flag = False Case 2: Buf = Buf & "Twenty": Flag = True Case 3: Buf = Buf & "Thirty": Flag = True Case 4: Buf = Buf & "Forty": Flag = True Case 5: Buf = Buf & "Fifty": Flag = True Case 6: Buf = Buf & "Sixty": Flag = True Case 7: Buf = Buf & "Seventy": Flag = True Case 8: Buf = Buf & "Eighty": Flag = True Case 9: Buf = Buf & "Ninety": Flag = True End Select If (Flag <> False) Then N = N Mod 10 If (N > 0) Then If (Flag <> False) Then Buf = Buf & "-" Else EnglishDigitGroup = Buf Exit Function End If 'Do ones and teens Select Case (N) Case 0: ' do nothing Case 1: Buf = Buf & One Case 2: Buf = Buf & Two Case 3: Buf = Buf & Three Case 4: Buf = Buf & Four Case 5: Buf = Buf & Five Case 6: Buf = Buf & Six Case 7: Buf = Buf & Seven Case 8: Buf = Buf & Eight Case 9: Buf = Buf & Nine Case 10: Buf = Buf & "Ten" Case 11: Buf = Buf & "Eleven" Case 12: Buf = Buf & "Twelve" Case 13: Buf = Buf & "Thirteen" Case 14: Buf = Buf & "Fourteen" Case 15: Buf = Buf & "Fifteen" Case 16: Buf = Buf & "Sixteen" Case 17: Buf = Buf & "Seventeen" Case 18: Buf = Buf & "Eighteen" Case 19: Buf = Buf & "Nineteen" End Select EnglishDigitGroup = Buf End Function

شكراً أخي طاهر الوليدي على المجهود المبذول , وفقك الله لكل خير هذا الكود شغال بشكل ممتاز لعملات الريال والجنيه , لأن يقرا رقمين بعد الفاصلة العشرية لو مر عليكم كود يقرا ثلاثة أرقام بعد الفاصلة العشرية باللغة الإنجليزية ... لا تنسونا رحم الله والديكم ألف شكر لكم جميعاً

https://youtu.be/3s9OI-6t8fM الرجاء النظر للفيديو المرفق

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

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

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

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