نجوم المشاركات

الاكسيس والموبايل استحالة التوافق بينهما مهما حاولت فلا تتعب نفسك ابحث عن لغة اخرى

اسف انا لسه واخد بالى انه سؤال يشبه التحدى انا قولت دعوة للتطوير ويل مع بعض نطوره واتعلم منكم اكتر lمرفق تعديل للتنسيق اعتقد ظبط شوية ونطوره برضه مع بعض Gemini API.rar

Gemini API.accdb

اصل انا هلغى زرار ابديت وهخلى الكود عند النقر المزدوج

😂

طبعا لازم يعمل كده واكتر من كده المفروض يشد قى شعرة ويصرخ والله مع الرسالة كمان لان سيادتك مش مركزة اصلا 😡 حدث التركيز يا دكتور = TextBox_GotFocus([Form],[TestnameN]) لكن الحدث للنقر المزدوج هو اللى يكون بالشكل ده لما نكون عاوزين الليست بوكس متعدد القيم يا دكتور =OpenListBoxForm([Form],[TestnameN],True) ولكن الحدث للنقر المزدوج هو اللى يكون بالشكل الافتراضى ده لما نكون عاوزين الليست بوكس قيم مفردة فقط وليست متعددة يا دكتور =OpenListBoxForm([Form],[TestnameN]) يا ريت نركز شوبة انا عامل لك افكار اقسم طلعت عينى مش هتبقى انت وهى ومراتى والعيال

اه حاجة ع الهامش كده يا دكتور @safaa salem5 بطلى تاكلى الحروف زى حلاتى انتى كتبتى Macroscopic Examintion : كلتى حرف a Macroscopic Examination : وطبعا الافضل تكون Macroscopic Examinations :

في حدث عند التركيز ، جرب الكود التالي :- If Me.TextBox.Value = 0 Then Me.TextBox.Value = "" End If

ايه الجمال والروعة دي.. الله يزيدكم من علمه وفضله

جميل ما شاء الله 👍🏻🙂 واصل إبداعاتك 😉👌

هو مفيش مفاجات ولا حاجه بس واضح انك كنت موضب الطريقه التالته قبل ماتقرأ طلبى اللى هوا دا ( محتاجه يكون فى اتاحه لبعض الحقول(مش كلهم) انها تقبل انى اضيف فيها اكتر من اختيار كل اختيار يكون فى سطر @ابو جودي بمعنى تانى بعض الحقول لا يمكن ان تقبل سوى قيمه واحده والبعض الاخر يمكن ان يقبل قيمه او اكتر من قيمه

https://nouariabdelkabir.github.io/Almotassafih/

حبيبتي صفاء ❤️🌹🌹 بعد اذن استاذي @ابو جودي اظن احتمال اصبة هالمره 😇 من اي فورم لو كان من مفرع لتفريع الفورم او فور جديد من فورم واحد فقط List Box يوجد شرح بسيط داخل المرفق على طريقة استاذ @Moosak بموضوع MyMsgbox 😇 بس اضافة فورم مخفي docmd.openform,,,,,,hide 😇 من او ما يشتغل البرنامج بسبب الاستعلام يبحث عت الحقل البحث Like "*" ويكون خالص هل هو طلب حبيبتي صفاء @safaa salem5❤️ Moosak List_Box Menu Anyway.rar

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

طب وعلشان يبقى لى جنية مش ربع جنيه بس 😡 الطريقة الثالثة والاخير كما ينبغى انا عن نفسى لو دا شغلى حيبقى كده الفيم الافتراضية اللى عمالين نعملها DLookUp كل شوية لكل حقل اللى بصراحة انا مش عارف معناها ايه ولكن ايه العذاب ده هى حبة سطور فى موديول وخلصت الحكاية ' Procedure to load default values from lookup table into text boxes for any form Public Sub LoadDefaultValues(frm As Form) Dim ctl As Control Dim defaultValue As String For Each ctl In frm.Controls ' Check if the control is a text box and has the specific tag If ctl.ControlType = acTextBox And ctl.Tag = "GetTestFixedData" Then ' Set the default value if it exists defaultValue = Nz(DLookup("fixeddefault", "fixed_tbl", "[Reportname] = '" & ctl.Name & "'"), "") If defaultValue <> "" Then ctl.defaultValue = """" & defaultValue & """" Else ctl.defaultValue = "" End If End If Next ctl ' Repaint and process events for the entire form Call RepaintAndProcessEvents(frm) End Sub اعملى بقه 100 تموذج وفى كل نموذج حطى الـ 80 مربع نص باسمائهم صح وبس فى حدث التحميل Call LoadDefaultValues(Me) وهو شاطر وابن حلال هيفهمك لوحده وبسرعة ويحقق لك احلامك بس بشرط هنجيلة كمان شوية --- طيب طالما ان النماذج ممكن تكون كثيرة وكذلك مربعات النص لنتائح التحاليل انا وفرت كل شوية كتابة كود فى حدث التركيز لكل مربع نص لانه عذاب ووجع قلب اه والله زيمبئولك كده بجد الا اذا وقتك فاضى بئه وعاوزة تضيعيه ومعاه عمرك فى كتر الكتابة كل الحكاية انا فى الدالة دة OpenListBoxForm استخدمت السطر ده defaultValue = Nz(DLookup("fixedname", "fixed_tbl", "[Reportname] = '" & FormName.ActiveControl.Name & "'"), "") ده بيعمل ايه والمفروض انا التزم بأيه علشان يشتغل معايا صح ده بيروح قبل ما يفتح نموذج الليست بوكس ع الجدول fixed_tbl وتبعا لاسم مربع النص اللى انا هاعمل عليع دوبل كليك يجيبلك قيمة fixedname لما يكون الحقل Reportname = اسم مربع النص الحالى ولو تفتكرى قلتلك " بس بشرط هنجيلة كمان شوية " وهنا نيجى للنقطة المهمة جدا جدا جدا دى القيمة اللى فى الجدول fixed_tbl فى حقل fixeddefault واللى هتكون بداخل مربع النص اللى انا هأفتح منه الليست بوكس لازم يكون اسم مربع النص بنفس اسم القيمة اللى فى Reportname فى نفس الجدول ده " وهو ده الشرط المهم " طبعا الشغل اللى فات ده كله بناء على تحليل الالية والنتائج والافكار اللى انا شوفتها فى تصميمك المرفق اذا انا فهمت وحللت صح او طبعا سيادتك ما تفاجئينا كالعادة طبعا بعد تقديم الحل انك تقصدى شئ تانى او فى شئ خفى فى تصميمك ولم تذكيرة او لم تطلبى كل طلباتك والمتعلقة بالسؤال والموضوع مرة واحدة المرفق بعد كل التعديلات ومسح كل الزيادات ووجع القلب اللى كان وتضيع الوقت والعمر فى تكرار اكواد كثيرة تم اعادة تنقيحه وهيكلتة اذا وافق رغباتك يبفى الحمد الله فضل ونعمه 🤲👌 اذا فى مفاجئات كالعادة يبقى لنا الله الطريقة الثالثة.accdb

السلام عليكم ورحمة الله وبركاته طالت الغيبة واشتقنا للتواصل مع الأحبة لا أوحش الله منكم وبعد كنت قد وضعت تصميم بسيط للعبة لتعليم بعض أطفالي - وهم كثر 😄 - الحروف الهجائية ، الحقيقة انها لم تكتمل ولكن ما تم به بعض الافكار البسيطة لعلها تفيد أحدا يبحث عنها ، وكذلك اثبات أن الأكسس يمكن أن يقدم ما لم نكن نتوقع ان يفعله الملف مفتوح المصدر وهو كبير بعض الشىء (الملف لا يتعدي 2 ميجا ولكن المرفقات هي التي زادت من وزن المرفق 😄) لذي رفعته علي سرفر آخر وهذا الرابط https://drive.google.com/file/d/1fbPcL35us2nZ6pDsWXoql09yFR6mp5mr/view?usp=sharing وددت لو وضعت فديوهات متحركة ولكن لا أملك الوقت لهذا - أرجو أن ينال هذا المرفق الغير مكتمل إعجابكم ملاحظة يجب أن تكون المرفقات بنفس المجلد بنفس الترتيب الموضح بالمرفق المضغوط وبعد لا تنسوني من دعواتكم الطيبات

اقرء التعليمات الخاصة بالبرنامج قبل البدء الشرح وافى

اتفضل استاذنا الفاضل وجدت هذا البرنامج على النت وهو جميل جدا جدول الحصص الأسبوعي.zip

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

مش بيسجل غير نتيجه واحده

لما بكتب القيمه دى بيدينى الرساله دى