ابو جودي

علشان تقدر تتعامل بسهولة شوف الشرح المصور

ماشاء الله شرح مبسط ومنسق ولا اروع طيب احيانا بيكون فى استعلام داخل استعلام لكن فى الحقول وليس فى المعيار هل يمكن التطرق اليه

-- الوقت والتاريخ تاريخ آخر يوم فى الشهر المحدد LastDayInMonth(01/01/2022) Public Function LastDayInMonth(ByVal AnyDate As Date) As Date LastDayInMonth = DateSerial(Year(AnyDate), Month(AnyDate) + 1, 0) End Function ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- عدد ايام الشهر المحددد NumofDays(01/01/2022) Public Function NumofDays(ByVal AnyDate As Date) NumofDays = Day(DateSerial(Year(AnyDate), Month(AnyDate) + 1, 0)) End Function

اتفضل

اتفضل يتم وضع النص المراد الظهور له فى كل صفخة فى الـ PageFooterSection Database11.accdb

اعتقد الحل موجود بإجابة الباش مهندس @Eng.Qassim فى المرفق الذى رفعه بمشاركته Select Case State Case Is = "موقف": Me.S1 = "0" Case Is = "غياب": Me.S1 = Me.الراتب - (Me.الراتب * 0.2) Case Is = "مباشر": Me.S1 = Me.الراتب End Select

بارك الله فى عمرك استاذى الجليل

شهادة اعتز بها جزاكم الله خيرا بس تعديل بسيط لو كان مربع السرد comType بلا قيم Dim MyWher As String Dim A As String Dim x() As String A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]") x = Split(A, "|") Select Case Nz(comType, "") Case Is = "": MyWher = "" Case Is = "click": MyWher = x(0) Case Is = "Engagement": MyWher = x(1) Case Is = "impressions": MyWher = x(2) Case Is = "IGTV": MyWher = x(3) End Select If MyWher = "" Then TargetPlas.Value = "": Exit Sub TargetPlas.Value = MyWher * txtCost.Value

انا اريد الاخرى لتعم الفائدة يمكن افضل من فكرتى ونتعلم منها احسك تقول ايش هاد الرخم مشكلته انحلت ومازال رخم بس اوعاك تأتى بفكرة قديمة لى من المنتدى

جزاكم الله خيرا الكرام اسال الله تعالى القبول وان يجعلنى عند حسن ظنكم بى

تمام الان جرب الكود الاتى يا باش مهندس @Eng.Qassim Dim A As String Dim x() As String A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]") x = Split(A, "|") 'MyWher = x(0) 'Debug.Print MyWher Select Case Nz(comType, "") Case Is = "": MyWher = "" Case Is = "click": MyWher = x(0) Case Is = "Engagement": MyWher = x(1) Case Is = "impressions": MyWher = x(2) Case Is = "IGTV": MyWher = x(3) End Select TargetPlas.Value = MyWher * txtCost.Value المرفق ACC_2.accdb

نعم قمت بعمل متغير باسم MyErfMsg وبعدين تقتح التطبيق الاتى اكتب به ما تريد كتابته باللغة العربية ثم قم بتحويله ونسخه واسناد ما تم نسخه الى المتغير Converter Arabic and Unicode (v. 3).accdb

فى هذا الكود x(0) = p1 x(1) = p2 x(2) = p3 x(3) = p4 x(4) = p5 x(5) = p6 x(6) = p7 x(7) = p8 x(8) = p9 Dim MyWher As String Dim A As String Dim x() As String A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]") x = Split(A, "|") 'MyWher = x(0) 'Debug.Print MyWher Select Case Nz(comType, "") Case Is = "": MyWher = "" Case Is = "click": MyWher = x(0) Case Is = "Engagement": MyWher = x(1) Case Is = "impressions": MyWher = x(2) Case Is = "IGTV": MyWher = x(3) End Select Dim Myx As String Myx = "2.5" TargetPlas.Value = MyWher * Myx

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

مش فاهمك على فكرة انت عارف انا فهمى تقييل ع العموم المرفق النهائى بدون المشكل وبدون اى زيادات التجارب اللى كانت ع الاكواد Converter Arabic and Unicode (v. 3).accdb

اتفضل تجربة Dim MyWher As String Dim A As String Dim x() As String A = DLookup("[p1] & '|' & [p2] & '|' & [p3] & '|' & [p4] & '|' & [p5] & '|' & [p6] & '|' & [p7] & '|' & [p7]& '|' & [p9]", "[PlatPrice]") x = Split(A, "|") 'MyWher = x(0) 'Debug.Print MyWher Select Case Nz(comType, "") Case Is = "": MyWher = "" Case Is = "click": MyWher = x(0) Case Is = "Engagement": MyWher = x(1) Case Is = "impressions": MyWher = x(2) Case Is = "IGTV": MyWher = x(3) End Select Dim Myx As String Myx = "2.5" TargetPlas.Value = MyWher * Myx غير قيمة Myx كما تريد

القيمة (x) فين مكانها ؟! من اين تأتى بهذه القيمة

ايوووووون الله يفتح عليك صح والله نسيت

يا اخى الله يرضى عليك تعالى نمشى خطوة بعد خطوة فى المطلوب تنفيذه هو حضرتك مكسل تكتب ؟! لو الموضوع كبير خلينا نمشى خطوة خطوة

النماذج غير منضمة اصلا ولا فى اى مصدر بيانات لاى نموذج ولا لأى مربع نص

اولا جزاكم الله خيرا استاذى الجليل الباش مهندس @Eng.Qassim انا ما خطر ببالى بصراحة انى اتعامل مع مربع النص من خلال ControlSource لانه غير منضم اصلا لذلك اتعاملت معه كقيمة value والغريبة انه بالشق الايمن يعمل بدون مشاكل طيب ايه الحكمة والسبب مش فاهم

تجربة بلا فائدة ايضا قمت بعمل الكود الاتى فى الموديول Sub ClearTXTControls(f As Form) On Error GoTo Err_BlankTXTControls Dim i As Integer Dim ctl As Control For i = 0 To f.Count - 1 Set ctl = f(i) If Left$(ctl.Name, 3) = "txt" Then ctl = Null End If Next i Exit_BlankTXTControls: Exit Sub Err_BlankTXTControls: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_BlankTXTControls End Sub وقمت باستدعاءه على زر الحذف الاول Call ClearTXTControls(Me!frmToUnicode.Form) وتمت العملية بنجاح ولكن عند استدعاءه على زر الحذف الثانى Call ClearTXTControls(Me!frmToArabic.Form) لم يتم حذف القيمة الموجودة بمربع النص الثانى ...... نفس المشكلة

ايش المطلوب ؟؟؟؟ المطلوب شايف الصورة لما اضغط على زر الامر اللى سوبت لكم عليه سهم يتم حذف قيم مربعات النص اللى على جهة اليساااااااااار المربع اللى به التكويد unicode واللى اسفله اللى به كلمة اوفيسنا اصور لكم افضل صورة متحركة

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

السلام عليكم ورحمة الله وبركاته انا عندى مشكلة مش فاهم سببها بصراحة على زر الامر BtnDel كما هو موضح بالصورة مع العلم بأن نفس الكود مستخدم بنفس الالية مع زر الامر BtnDelUnicode بدون اى مشاكل المرفق Converter Arabic and Unicode (v. 3).accdb