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

انا لم اجرب بعد 2 اقترح اضافة صندوق نص و كود استبدال نجمة "*" بسطر جديد يسحب النص الى نص بسطر جديد للتنسيق

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

ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه

ان شاء الله نعم انا مجيب اعتذر على التأخير انا على سفر هناك طريقة ثانية لاختصار واختزال كل اوامر الـتركيز >>--->> GotFocus() بس لما حضرتك تاكدى على الاول ان هى دى النتيحة اللى انتى عاوزاها صح يا افندم الطريقة الاولى.accdb

هل من مجيب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اشرايك تغير حركة صندوق الحوار مع التنسيق الى حركة تحريك مؤشر النص نفس الذكاء الاصطناعي Form 1 Fomr 2 Action = Len (Text) For 1 To Action IF Len (Text) = 20 then او نهاية عدد الحروف او نهاية السطر انتقل الى سطر جديد Next لتنفيذ حركة الذكاء الاصطناعي والاسهل اذا كان سجلات كود تحويل النص الى ارقام وغير تنسيق الحقل الى رقم وليس كلمة مرور "*" غير نص الى أخضر ونص لون اسود مر عليك تلوين الاحرف بالكلمة والخلفية سوداء بس ياخذ من Len(text) +1 ============================ ,والاسهل استبدال الرقام ب "_" فقط تمرير حركة المشر النص تستخدم Integer تركيز للاحرف بس في متشابه الاحرف دور على حل =================================== $ اذا نجحت تحتاج الى اعلان ومجاني للتعريف وعرض لشركات والعملاء وفائدة ضم الذكاء الاصطناعي بالمشروعات وتطويره (تسويق)مع مشاريعك كخدمات واضافة $ جعل الجواب امر تنفيذ لعملية واجابات للعملاء والخدمات ذكاء مخصص للعملاء الشركة والتسويق افضل من غير واجهة برنامج اكسس تطلب من ذكاء الاصطناعي تحليل التقارير 😂 تضخم المشروع ولكن الرد سكرتير اذا طلب كلمة المرور او اوامر فتح القاعدة😂

وهذي مشاركتي وفكرتي الصغيورة مع الإخوة 🙂🌷 قائمة منسدلة واحدة لجميع الحقول .. وجمعت الكود كله في موديول واحد .. طريقة التطبيق سهلة جدا .. 1- نسخ القائمة المنسدلة في النموذج المطلوب مع الأوامر اللي في حدث بعد التحديث ،، 2- تحديد جميع الحقول المستهدفة وكتابة الدالة الموضحة في حدث عند النقر المزدوج .. الدالة الخاصة بجميع الحقول : الدالة الخاصة بالقائمة المنسدلة المتخبية على الزاوية : 😁 الأكواد اللي في الموديول : المرفق : Drop List For Many Fields (Moosak).accdb

وعليكم السلام ورحمه الله وبركاته هتعمل نموذج فيه كمبوبوكس لتحديد نوع الطابعه نفترض اسمه cmbPrintType وتخلى مصدر الصف بتاعه الطابعات من جدول الطابعات بتاعك وتعمل زار للطباعه نفترض أنه btnPrint وتخلي ده الكود بتاعه Private Sub btnPrint_Click() Dim printType As String ' تحقق من أن هناك قيمة مختارة في مربع التحرير والسرد If IsNull(Me.cmbPrintType) Then MsgBox "الرجاء اختيار نوع الطباعة.", vbExclamation Exit Sub End If ' احصل على نوع الطباعة المختار printType = Me.cmbPrintType.Column(1) ' طباعة التقرير بناءً على نوع الطباعة Select Case printType Case "طباعة حرارى" DoCmd.OpenReport "ThermalPrintReport", acViewPreview ' استبدل "ThermalPrintReport" باسم تقرير الطباعة الحرارية Case "طباعة A5" DoCmd.OpenReport "A5PrintReport", acViewPreview ' استبدل "A5PrintReport" باسم تقرير طباعة A5 Case Else MsgBox "نوع الطباعة غير معروف.", vbExclamation End Select End Sub

أخي العزيز (تامر عجور) لقدطلبت الاتي: (السلام عليكم عايز شرح للكود ده) أنا شرحت الكود برمجياً فأنت لم ترفع القاعدة على المنتدى لأعرف ما هي المتغيرات التي أقوم بشرحها و لا إلى ماذا ترمز ولم تطلب معرفة ما الذي يفعله الكود؟ فأنا لا أعرف ماهي هذه المتغيرات aa bb xx y v ولا إلا ماذا تشير من فضلك قم برفع ملف الاكسس على المنتدى كمرفق فسيقوم الجميع بشرحه و ماذا يعنى هذا الكود وماذا يفعل وشكرا لك

تفضلي استاذة @safaa salem5 . المرفق حسب طلبك . DDTest602-2.rar

تفضلي استاذة @safaa salem5المرفق بعد التعديل . ووافيني بالرد . DDTest602-1.rar

تفضلي استاذة @safaa salem5 حسب مافهمت هذه تجربتي .ووافيني بالرد . DDTest602.rar