ابو جودي

تمام الان جرب الكود الاتى يا باش مهندس @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

هات المرفق ليتم التعديل المناسب

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

انا فعلا الان امسيت جوعان

اتفضل ان شاء الله كون قدرت افهم طلبك Nouveauie.zip

ومن اجل هذا ان كان هناك مرفقا لاخذ الاجابة الوافية

شوف رقم يوزر الادمن او اسمه واعمل الزر اصلا مخفى وعند فتح النموذج if adminSN=1 then me.cmdX.Visible = True ' OR By Name if adminUN="Admin" then me.cmdX.Visible = True

بسيطه انت بس اجعل مصدر بيانات التقرير هو الاستعلام Qcdc

جزاكم الله خيرا اساتذتى الكرام

جزاكم الله خيرا اساتذتى الكرام