Shivan Kurdi - شڤان کوردی

هل تريد ان ترسل الفاتورة بصيغة pdf هل انا فهمتك بصحيح ؟

اخي العزيز اذا ترفق قاعدة بيانات صغيرة الحجم وبه بيانات قليلة الجماعة راح يساعدك اكثر لانه سيفهم منك اكثر ما تريد تحياتي

اتفضل استخدم هذا الكود قبل التحديث او عند هخروج من المربع النصي Private Sub Text0_BeforeUpdate(Cancel As Integer) If Len(Text0) <> 5 Then MsgBox "يجب ان تكتب خمسة ارقام فقط لا اقل ولا اكثر" Cancel = -1 End If End Sub غير تيكست 0 ب اسم مربع نصي عندك تحياتي

هل تريد هكذا اتفضل تلوين السجلات.rar

شكرا لك على مساعدتك وماكان عندي لابتوب لكي اعمله المطلوب مره‌ اخرى شكرا لك

للامانه‌ العلميه‌ الكود ليس لي بل لاستاذتنا ( زهرة عبدالله ) في منتدى فريق العربي للبرمجة استخدم هذا الكود مع كود مذبورد او احد من الاقراص الصلبة مثل قرص سي وهذه الموضوع راح تفيدك ويعطيك الجواب على اسألتك

اليك هذا تلوين السجلات.rar

الكود غيير كالاتي Private Sub Form_Current() If DSum("[رياضيات]", "اسماء") = 0 Then [رياضيات].ColumnHidden = True Else [رياضيات].ColumnHidden = False End If End Sub

سؤال : هل تريد بعد اخفاءه اذا كان اكبر من صفر بيرجع مثل القبل ؟ او تريد في اي حالة بيرجع مثل القبل

Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothing جرب ان تغيره

Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") MsgBox obj_Drive.SerialNumber Set obj_FSO = Nothing Set obj_Drive = Nothing

استخدم هذا الكود Dim Mablax As Integer Private Sub Check15_AfterUpdate() If Me.Check15 = True Then Mablax = Mablax + 200 Me.Amount = Mablax Else Mablax = Mablax - 200 Me.Amount = Mablax End If End Sub Private Sub Check17_AfterUpdate() If Me.Check17 = True Then Mablax = Mablax + 250 Me.Amount = Mablax Else Mablax = Mablax - 250 Me.Amount = Mablax End If End Sub Private Sub Check19_AfterUpdate() If Me.Check19 = True Then Mablax = Mablax + 300 Me.Amount = Mablax Else Mablax = Mablax - 300 Me.Amount = Mablax End If End Sub اتفضل قاعدة بياناتك بعد تعديل حساب قيمة بترول السيارة.rar

ما افتهمت من قصدك ! ممكن توضح اكثر ماتريد بالضبط ؟

اليك هذا الرابط لعل تستفيد منه

عندك كم الوان .. هل عدد الالوان اللي عندك بيكون يساوي مع عدد الارقام ؟

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

Private Sub Form_Current() If DSum("[رياضيات]", "اسماء") = 0 Then [رياضيات].ColumnWidth = 0 End If End Sub تحياتي

عفوا الان غير الكود كالاتي Dim MeMaxRec As Integer DoCmd.OpenForm "FORMS2", acNormal MeMaxRec = DMax("[costmor_no]", "tabol_costmor") Forms!FORMS2!costmor_no = MeMaxRec Forms!FORMS2!costmor_name = DLookup("[costmor_name]", "tabol_costmor", "[costmor_no]=" & MeMaxRec) Forms!FORMS2!addres_costm = DLookup("[addres_costm]", "tabol_costmor", "[costmor_no]=" & MeMaxRec) Forms!FORMS2!tel_costmor = DLookup("[tel_costmor]", "tabol_costmor", "[costmor_no]=" & MeMaxRec) DoCmd.Close acForm, "FORMS1", acSaveYes اتفضل مع القاعدة test.rar

الكود في خلف زر الخروج في نموذج الخروج سيكون كالاتي DoCmd.OpenForm "FORMS2", acNormal Forms!FORMS2!costmor_no = DMax("[costmor_no]", "tabol_costmor") Forms!FORMS2!costmor_name = DLookup("[costmor_name]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no) Forms!FORMS2!addres_costm = DLookup("[addres_costm]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no) Forms!FORMS2!tel_costmor = DLookup("[tel_costmor]", "tabol_costmor", "[costmor_no]=" & Me.costmor_no) DoCmd.Close acForm, "FORMS1", acSaveYes

استأذن من استاذنا @ابوخليل على المداخلة نعم تقدر تعمل اولا حدد النص بعدين اضغط كليك يمين عليه اختار ستايلس اختر ابلاي ستايلس راح يظهر لك هذه الشاشة شوف الصورة في يسارك فيها مربع عليه مكتوبة حرفين AA اضغط عليه راح يظهر الستايلات عندك وتكدر تستخدم اي واحد تريد تحياتي

اضافتا الى ما قال استاذنا @تومي محمد تقدر تكتب علامة النجمة بواسطة دكمة شيفت مع رقم 8 ( Shift + 8 ) اللي فوق الحروف تحياتي

تمام بانتظارك

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

لا داعي للشكر احنا في الخدمة ان شاء الله

اتفضل شوف الصورة مع استخدام جملة الشرطية اتفضل مع ملفك بعد عمل عليها تلوين السجلات.rar تحياتي