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

وعليكم السلام ورحمة الله تعالى وبركاته ..تفضل اخي تم اضافة كود الفاتورة للصفحات الاربعة AA.xlsm

الكود يعمل فقط على مربع النص الخاص بالتخصص انظر الصورة في الرد السابق لي ..... عموما تفضل ملفك بعد التعديل عليه ........ Database1601.accdb

السلام عليكم ورحمة الله ..استخدم الكود التالى Private Sub CommandButton1_Click() Dim x As Double, y As Double, p x = Me.TextBox1.Value Select Case x Case 1000 To 4999 p = 0.3 Case 5000 To 6999 p = 0.2 Case 7000 To 9999 p = 0.1 Case Is >= 10000 p = 0.05 End Select y = x * p Me.TextBox2.Value = y End Sub

هل هذه الصورة المطلوبة ...... اذا كان نعم .... فلا انصح به ... لانك تحتاج تغيير بعذ الاستعلامات المرتبطة بتلك النماذج .... لكن على كل حال انا اجريت تعديل واحد فقط على نموذج البلديات ... اذا انت مصر على المطلوب تتبع التعديل وعدل في كل الاكواد بنفس الطريقة ..... Handicap Bar Menu .rar

اخي خير اخترها افضل اجابة حتى نعرف انه تم الاجابة على السؤال .....

طيب اجعل الموشر في خانة البحث ثم اسحب الباركود بالماسح وانظر ....... Database1.accdb

تفضل التعديل تسجيل وقت الفتح - Copy.mdb

حسنا تتجاهل اجابتي لم تقل اذا كانت تعمل معك ام لا . انتظر المساعدة من شخص اخر .

في هذه الحالة العملية متعلقة بجهاز قارئ الاكواد عند قراءة الكود يقوم بتعبئة البيانات اتوماتيكيا في الفورم . حقيقة لا اعتقد ان احد يمكن ان ينجح في مساعدتك بهذا الامر لان ليس لدى احد هذا الجهاز ليقوم باختبار اي حل قد لا يعمل معك .

مجرد تخمين بناء على كلامك ..احدف هذه الاسطر في نهاية الكود Me.txt_product.Value = "" Me.txt_price_sale.Value = "" Me.txt_price_pru.Value = ""

السلام عليكم استغرب كثيرا عندما يكون الشخص لديه اكثر من كمبيوتر يشبك على البرنامج لا يقوم بالتحويل الى sql server صدقوني العملية سهلة جدا ومجانية وافضل الف مرة من الشبك على مشاركة قاعدة البيانات اظن ان عدم التحويل يعود لسبب نفسي وهو عدم الرغبة في خوض تجربة جديدة او الخوف من الفشل او عدم الرغبة في مواجهة المشاكل

وعليكم السلام ورحمة الله وبركاته 🙂 بدل القائمة المتعددة أيش رايك لو تعمل 3 حقول من نوع (صح/خطأ) للمقاسات الثلاثة وبهذا بيسهل عليك التعامل معها ..؟ إلا إذا كان عدد المقاسات يزيد وينقص ..

وعليكم السلام ورحمة الله وبركاته اتبع الخطوات التالية اخي https://streamable.com/yuhc88

طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي .... Dim ctl As Control, strText As Variant, strName As String Me.ScaleMode = 1 For Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox And ctl.name = "Text4" Then strName = ctl.name If Nz(ctl.Tag, "") = "" Then ctl.Tag = ctl.FontSize End If ctl.FontSize = ctl.Tag Me.FontSize = ctl.FontSize strText = ctl.Value If Len(strText) > 0 Then Do Until TextWidth(strText) < ctl.Width ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26) ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop End If End If Next ctl ثم انظر النتيجة ......................

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

تفضل من ملف File خيارات

بعد إذنك أخي الكريم أعد النظر في الملف، بعد تعديل التحديث للملف ليصبح تلقائي... أو يمكنك التحديث من مفتاح F9

وعليكم السلام ..تفضل أخي الكريم =IF(SUM(I4:I10)<=100;SUM(I4:I10);"خطأ") الملف هنا بعد التحديث التلقائي. ملف تصورى.xlsx