jo_2010

معلمى الفاضل انظر الصور

الخبير المبدع الذى اتابع كل اعمالة واتعلم منها خالص الشكر لسرعة الاستجابة وإضافة Select Case للبرنامج شكرررررررررا

شكرا يا معلمى الفاضل كثر خيرك ساجرب واوافيك بالنتيجة سؤال هل لو تم تحويل النموذج إلى نموذج مفرد بدل من النماذج المستمرة يثاثر البرنامج ام لا

الخبير الفاضل foksh الذى لايبخل بعلمة علي احد اشكرك علي اهتمامك ولكني وجدت نمودج فى منتدانا الغالى من إبداع الخبير الفاضل منتصر الانسى لتوليد الرسالة بسهولة والكود مصمم بقاعدة if هذا هو اصرارى علي استخدام قاعدة If لان النموذج تم تصميمة بقاعدة If تستطيع الاطلاع علي النموذج الخاص بعمل كود الرسالة من إبداعات منتصر الانسي

الخبير الفاضل شكرا لابداعك المتجددة لي طلب بسيط ممكن لو تكرمت تستبدل قاعدة If بقاعدة Select Case حتى نتمكن من عمل امر لكل زر فى الرسالة مثلا لو حددنا ٣ ازرار نعم ولا وإلغاء الامر نعم فتح نموذج محدد لا لفتح تقرير محدد الغاء الأمر لغلق الرسالة لانى قمت بتجربة هذا الموضوع نعم يفتح النموذج تمام لا يفتح التقرير تمام الغاء الأمر حاولت بكل الطرق Undo Exit Sub لكنة يكرر الأمر السابق وهو فتح التقرير لذلك ارجوك تحويل قاعدة If إل cselect case لك خالص الشكر

قمت بمسح السطر واعطى الاتى انظر الصورة

الخبير المبدع شكرا على ابداعك بس حضرتك انا كنت عاوز تعطيل فقط على الكود وهو بنفس الشكل بدون متغيرات كنت كيبت الكلام دة قبل كدة مفيش اى تعديل علي الكود المرسل بدون إضافة Dim result as بدون متغيرات لان الرسالة دى بيتم توليدها من برنامج وجدتي علي الموقع ولا أستطيع التعديل علية انا بكتب عنوان الرسالة ومستواها وعدد الازرار وهو بينتج الكود اريد التعديل علي الكود كما هو هل هذا ممكن البرنامج موجود فى هذا الرابط

انظر الصور

استاذى الفاضل قمت بتغيير Undo الى Exit Sub واعطى نفس النتيجة السابقة وهو تنفيذ اخر امر فتح التقرير اليك القاعدة للتعديل JO.accdb

قمت بتجربة النموذج المرسل من حضرتك يعمل بكفاءة مع الايصالات التى تنتهى ب ٥٥ وعندما كتبت ١٠٠٠ أصبحت القيمة ٥٦٠٠٠ وهذا رائع وقمت بإدخال رقم الإيصال ه أرقام ٥٦٠٠١ ورقم آخر ٠٠٩ أعطى نتيجة رائعة ولكن حاولت تجربة إذا تخطينا ٥٦ بدل رقمين أصبحت ٣ أرقام مثال١٠١٠٠٥ أدخلت رقم إيصال بالكامل ١٠١٠١٩ وسجل جديد كتبت ١٢٢ لم يحتفظ ١٠١ وعاد الي ٥٦ أصبح الإيصال ٥٦١٢٢ بدل ١٠١١٢٢ وهو الرقم الصحيح كيفية حل هذا الوضع هذا الخطأ يظهر لى كثيرا كتبت إيصال ٢٣٠ المفروض ٥٦٢٣٠ قبل منة كان في إيصال ٥٦٢٥٠ يعطى خطا كما بالصورة

معلمى الفاضل الدفتر الحالى ينتهى ٥٥ فقولت اثبتهم واكتب ٣ أرقام فقط بدل ما اكتب كل رقم الايصال ٥ أرقام ممكن الدفتر اللي بمنتهى ٥٥ يخلص بعد شهر مش سنة ونجيب دفتر جديد ينتهى ٥٦ انا كنت عامل فى المرفق المرسل ٢ حقل واحد اكتب اخر رقمين كافتراضى والثاني ٣ ارقام متغير وحقل ثالث يضم الحقلين وبعدين قولت بدل ٣ حقول أعرض الأمر علي أصحاب الخبرة لجعل الثلاثة حقول حقل واحد لكم الشكر جميعا

السادة الخبراء الافاضل If MsgBox("ماذا تريد ان تفعل اضغط Yes لفتح النموذج NO لفتح التقرير Cancel للتراجع " & vbCrLf & "" & vbCrLf & "الحمدلله", vbYesNoCancel + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "الله المستعان") = vbYes Then DoCmd.OpenForm "22" ElseIf vbNo Then DoCmd.OpenReport "33", acViewPreview ElseIf vbCancel Then Undo Else End If كتبت الكود بهذا الشكل ويعمل بصورة جيدة ولكن عند الضغط علىcancel يقوم بتنفيذ الامر السابق وهو فتح التقرير اريد عند الضفط على cancel غلق الرسالة اريد التعديل على هذا الكود بقاعدة if دون استخدام sselect Case

الخبير المبدع kkhalifa1960 شكرا على ابداعك ولكن عندما توقف على السجل ظهرت لى 55 كتبت 1000 55 تحولت الى 56 شئ جميل عند كتابة سجل جديد ظهرت 55 ولم تظهر 56 اريد ان تصبح 56 قيمة افتراضية لاضافة باقى ارقام الايصال ___56 وهكذا كما صادفتنى مشكلة اخرى عندما تحول الرقم من 55 الى 56 وكتبت رقم ايصال جديد 56015 مثلا واردت تعديل 15 لتصبح 18 مثلا عند التوقف بالمؤشر على الحقل للتعديل اجد 56 عادت 55 كما كانت اعتذز على ازعاج حضرتك بطلبى

استاذى الفاضل مش عاوز اى ترقيم انا بكتب رقم الابصال 55426 وكل الايصالات التى تاتى بعد هذا الرقم بيكون فيها اخر رقمبن 55 ثابيتن عاوز بدل مااكتب خمسة ارقام اكتب 3 ويكون الرقمن الاخرين ثابتين انظر حقل NEW قى القاعدة الجديدة المرسلة الموضوع لا علاقة لة بالترقيم تسهيل الغمل بدل كتابة رقم الايصال بالكامل خمسة ارقام نختصرة الى ثلاثة ارقام متغييرين ثابتين 362 55 lab2.accdb

معلمى الفاضل اولا شكرا لابداعك ثانيا سامحنى لو معرفتش اعبر عن طلبى كنت اريد عمل خانة واحدة لكتاية رقم الايصال مثال "55"000;;_ كقناع ادخال ولكن المشكلة فى ال 55 كيف يتم تغيرها لتصبح 56 وعند تغييرها سوف تتغير كل الارقام السابقة الايصالات القديمة مع العلم ان السكرتارية تعمل على دفتر ايصالات واحد لكل العيادات متال الايصال التخصص 55256 باطنى 55257 جراحة 55258 نسا 55259 معمل هذا يخصنى 55260 عظام 55261 غيار 55262 معمل هذا يخصنى ارقام غير مسلسة اتمنى تكون طلبى واضح

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

الخبراء الافاضل كل عام وانتم بخير عيد سعيد على كل المنتدى عندى جدول بة الكتير من المرضى وكل مريض لة ايصال مكون من 5 ارقام مثال 55033 55041 مع الغلم ان الايصالات غير مرتبة او متسلسة ولكن الثابت هو اخر رقمين 55 اريدها ان تصبح هكذا _ _ _ 55 حتى اكتب ثلاثة ارقام فقظ وماذا افعل عندما اصل الى رقم 55999 هل تتغير55 الى 56 تلقائيا ام سيتم تغيرها يدويا ارجو المساعدة بمثال بسيط لو تكرمتم حتى اقوم بتطبيقة على برنامجى لكم الشكر اريد طريقة افضل من الموجودة بالمرفق الكتابة فى خانة واحدة بدل من تقسيم الرقم Lab.rar

استاذى الفاضل اللى اتغير حجم الابقونة ولكن الخط صغيركما هو

انا عاملها ١٢٥ لان التكبير إلى ١٥٠ بيخفى ايقونات الديسك توب اعتقد انى لازم القلب الريزليوشن بتاع الشاشة بدل 1900×1080

المطلوب فى الصورة

شكرا ايها الخبير المبدع جزاك الله بكل الخير وزادك من علمه

الخبير الفاضل ومعلمى الجليل شكرا لاجل تعبك ولكنى اريد الاسم قبل التاريخ انظر الصورة

معلمى الفاضل شكرا لا بداعك منقطع النظير لى 3 طلبات اخبرة Case 102 Me.Refresh sPDF = sFolder & "\Report_" & Me.PCode & "_" & _ Format(Date, "yyyy-mm-dd") & ".pdf" DoCmd.OpenReport "Y_N_Report", acViewPreview, , _ "[PCode]=" & Me.PCode, , _ sSubReport DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False DoCmd.Close acReport, "Y_N_Report" 1_تعديل الكود دة بحيث يتم تصدير التقرير باسم المريض تم التاريخ مثال الاسم ثم التاريخ بدون كلمة Report 21/1/2026 _ احمد محمد على 2_كما ارجو فتح التقارير فى وضع مختفى 3_وفتح التقرير كPDF بعد التصدير

معلمى الفاضل