sm44ms

هل ممكن حسب حقل التاريخ الفعال المنهتي مثال لدي حقل اسم المادة وحقل تاريخ الانتهاء وحقل عدد المواد المنتهية وحقل عدد المواد الفعالة اريد جمع التواريخ المنتهي في حقل المواد النتهية وجمع التواريخ الفعاله في حقل المواد الفعال ويكون في فورم غير مرتبط بالجدول وجزاكم الله خيرا

جزاك الله خير وصباحكم طيب

الاخ خليفه سوال من اين اختار افضل اجابة او كيف طريقة استخداهما

مشكوووووورين

انا اتكلم على مشاركة الاخ الاستاذ خليفه ابا تعديل عليها شوف المرفق واكتب 52.50 DD437.accdb

شوف المشكلة وين انا جربت الوحدات النمطية الثنتين

الف شكر تمت التجربة جزاكم الله خير

افضل التعديل على الودحة الي ارسلتها انا جزاك الله خير

فيه خطا ء بسيط لو تشوفه جزاك الله خير يوجد خطاء في ترتيب القيمة بالاضافة الى ذلك لايوجد قيمة الفلس وشكرا

سوف اجرب وارد لك بارك الله فيك والف شكر مقدما

الرجاء تحويل الوحدة النمطية كما هي من الانجليزي الى العربية بالدرهم وجزاكم الله خير Function ConvertCurrencyToArbaic(ByVal MyNumber) Dim Temp Dim AED, Cents 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) Cents = ConvertTens(Temp) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then AED = Temp & Place(Count) & AED If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case AED ''يمكنك وضع أي عملة تريدها بدلا من الدولار طبعا بالنجليزي Case "" AED = "No AED" Case "One" AED = "One AED" Case Else AED = AED & " AED" End Select Select Case Cents Case "" Cents = "" Case "One" Cents = " And One Cent" Case Else Cents = " And " & Cents & " Cents" End Select ConvertCurrencyToArbaic = AED & Cents 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

ما فية حل

مرفق الصوره

الظاهر انك ما فهمتني

عبارة عن ازرار زر اصدار البطاقات تظهر ازرار اخرى فيها في الجهة اليسرى

ياسيدي murady واضح الطلب اذا ضغطت على شاشة اصدار البطاقات تظهر قائمة اخرى بجانبها فيها قوائم اصدر تجديد بدل فاقد بدل تالف وهكذا

السلام عليكم ورحمة الله عندي واجهة برنامج ريسية فيها قوائم ريسية وقوائم فرعية مثال اذا ضغطت على القائمة الريسية تظهر قائمة فرعية اخرى حسب الصور وجزاكم الله خيرا

جربته وممتاز ولكن الخيار له مصدر بيانات في الجدول عندي ------ والذي سويته انت بدون مصدر للبيانات Select Case Nz(OP) Case 1 txtTest = "فعال" Case 2 txtTest = "مستقل" End Select الي اريده Case1 مصدر بياناته FAAL Case2 مصدر بياناته MOSTQEEL اذا يستوي الا جزاك الله خير واذا لم يستوي خلاص بكتفي بهذا وشكرا

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

طلب بسيط جزاكم الله خير حسب الرسمه

شكرا لكم جمعيا ما قصرتوا بارك الله فيكم الحين التقييم لكم كيف اختار الاجابة الافضل

الاخ الفاضل خليفة هذا الكود انت اعطيتني اياه وشغال 100%100 Private Sub Form_Timer() On Error Resume Next If [TT] = "استقالة" Then If [TT].ForeColor = vbYellow Then [TT].ForeColor = vbBlack [TT].BackColor = vbBlack Else [TT].ForeColor = vbYellow [TT].BackColor = vbBlack End If Else [TT].ForeColor = vbBlack [TT].BackColor = vbWhite End If End Sub عندي حقل بنفس النموذج ( اسمه فعال ) ابا اطبق الكود لانع مايستوي لانه عند عداد الوقت ولايستوي اكثر من كود الطريق ممكن جزاك الله خير شي مهم من وين تختار افضل الاجابه او تصنيف للموظف

عاجز عن الشكر بارك الله فيك صرح يقدم كل جديد ربي يوفقكم

لو ابا اغير اللون بدل الازرق الى اي لون اخر كيف

الف شكر الف شكر هذا هووووووووووووووووووووووووووووووووووووووووووووووووو بارك الله فيك