essam rabea

أ.emam1424 مش عارف انا فهمت صح ولا لأ .. جرب وولفنى بالنتيجة Saifi.zip

أ.بوكفوس عبدالسلام برنامجك كى يفتح عندى يحذف جميع الأكواد .. وضعت الطريقة بالمرفق وأكرر بدون الاكواد الخاصة بك .. فقط الموديول مع مربع نص على التقرير لعرض النتيجة يوضع فى source de contrôle للتقرير PAIE CCP(Test).zip

أ.zubair.aid هل هذا المطلوب؟ New Microsoft Access Database (2).accdb

أزبوكفوس عبدالسلام للأسف مشروع VBA لملفك لا يفتح عندى أنشئ وحدة نمطية جديدة وضع فيها هذا الكود Option Compare Database Public Function wsiSpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Mille " Place(3) = " Million " Place(4) = " Milliard " Place(5) = " Billion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "Non DAs" Case "One" Dollars = "Une DA" Case Else Dollars = Dollars & " DAs" End Select Select Case Cents Case "" Cents = " et Non Centimes" Case "One" Cents = " et Une centime" Case Else Cents = " et " & Cents & " Centimes" End Select wsiSpellNumber = Dollars & Cents End Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber) Dim result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then result = GetDigit(Mid(MyNumber, 1, 1)) & " Cent " End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then result = result & GetTens(Mid(MyNumber, 2)) Else result = result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim result As String result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: result = "Dix" Case 11: result = "Onze" Case 12: result = "Douze" Case 13: result = "Treize" Case 14: result = "Quatorze" Case 15: result = "Quinze" Case 16: result = "Seize" Case 17: result = "Dix-sept" Case 18: result = "Dix-huit" Case 19: result = "Dix-neuf" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: result = "Vingt " Case 3: result = "Trente " Case 4: result = "Quarante " Case 5: result = "Cinquante " Case 6: result = "Soixante " Case 7: result = "Soixante-dix " Case 8: result = "Quatre-vingts " Case 9: result = "Quatre vingt dix " Case Else End Select result = result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Une" Case 2: GetDigit = "Deux" Case 3: GetDigit = "Trois" Case 4: GetDigit = "Quatre" Case 5: GetDigit = "Cinq" Case 6: GetDigit = "Six" Case 7: GetDigit = "Sept" Case 8: GetDigit = "Huit" Case 9: GetDigit = "Neuve" Case Else: GetDigit = "" End Select End Function أنشئ مربع نص جديد فى المكان الذى تريد ظهور التفيط فيه على التقرير واجعل مصدر التحكم له =wsiSpellNumber(Sum([المبلغ الشهري])) علما بأنى ضعيف جدا فى اللغة الفرنسية فحاول التعديل على المسميات الموجودة فى الوحدة النمطية حاول ووافنى بالنتيجة بالتوفيق

أخى @abo3aesha_2014 هذا ليس تعسفا منى حاشَ لله ولكن هذه قواعد المنتدى التى نحترمها ونقدرها https://www.officena.net/Tips/Questions.htm ممنوعات : تعرض المشاركة للالغاء الفوري 1. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق ، كما يمنع منعا باتا ذكر أكثر من سؤال فى نفس الموضوع ، و هذا لكي يسهل البحث و الحصول علي المعلومة علي من بعدك. و إذا كان الموضوع استكمالا لموضوع موجود مسبقا فى الأرشيف فيرجي وضع رابط الموضوع الذي تريد استكماله أو الإضافة عليه لتسهل علي الجميع الوصول الي الموضوع المشابه. 4. ممنوع طرح أكثر من سؤال فى موضوع واحد ليسهل البحث عن المواضيع لاحقا.

أ.abo3aesha_2014 برجاء فتح موضوع جديد حيث أنك غيرت فى مضمون سؤالك الأول

إحذف DoCmd.Close من حدث الضغط على الزر اجعل لـ Form1 ما يلى Pop Up = yes Modal = no إجعل لـ Orders_F ما يلى Pop Up = yes Modal = yes جرب عسى أن يكون المطلوب

شوف كدة ظبط ولا فيه مشاكل new mohamed TEST(2).zip

بس إجابة ساحقة ماحقه .. ولم نوفك حقك حبيبى جعفر

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

اولا انا معمتلش حاجة قبل كدة فى Spare Parts Movment ثانيا نموذج frm_subItems بيتفتح من خلال نموذج frm_Items مش لوحده

أ.mohamed elalfy عسى أن يكون المطلوب new mohamed TEST(1).zip

عذرا .. انا الآن فى العمل إنتظرنى مساءا وسأوافيك بالحل إن شاء الله

هو فين الفورم اللى عاوز تعدل عليه ..

قلى اساعدك بأيه وبعدين انت aya 565560 ولا mohamed elalfy ولا ramy145236 😊

أ.ashraf_ali هل هذا ما تقصدة ام فهمت خطأ بالتوفيق Test (1).zip

الق نظرة على هذا الموضوع تقريبا نفس المطلوب

كفاك تشويقا أبا جعفر أبشر أبا جودى سيأتيك مطوِّع الأوفيس بالحلول العتيه .. للتقارير الفرعيه

الله الموفق

الوحدة النمطية دى ماليش دعوة بيها .. مش تبعى ومعرفش بتعمل ايه تقريبا انت شغال على أوفبيس 64 بت جرب تكتب PtrSafe بعد Declare

حدد الملف بالماوس دون ان تفتحه .. مجرد تحديد واستمر بالضغط بزر الماوس إضغط Alt من الكيبورد إسحب الملف للأسفل المفروض إنه تم إنشاء الإختصار إعمل للإختصار Cut واذهب لمكان النسخة الثانية واعمله Past

أ.ramy145236 اكتب إسم السلعة وجرب عسى أن يفى بالمطلوب بالتوفيق final.zip

ناخد copy للبرنامج ونروح مكان تشغيل النسخة الثانية ونعمل past shortcut

أ.ramy145236 انا مش عارف كد انا فهمت ولا لأ .. جرب ووافنى بالنتيجة بالتوفيق final.zip