بحار الاكسس

السلام عليكم اتفضل التعديل الجديد اجماليات.rar

التزام بالقائمة = نعم

اظهار قيمة مصدر الصف فقط = نعم

السلام عليكم استاذ فارس القيسي الى حضرتك نموذج صغير به ما تريده ان شاء الله دمج.rar

السلام عليكم استاذ فارس أرجو التوضيح اكثر مع احطاء مثال لحالة فى البرنامج مثال 0002 + 00010 = 00012 هل حضرتك تعنى ذلك

السلام عليكم أستاذ وسيم الحمادة الى حضرتك التعديل اجماليات.rar

السلام عليكم أستاذ بسام ارفق الملف مضغوط واكتب المعيار الذى تريده مثل اكبر من 20 يعطى لون اخضر واقل من 20 يعطى لون اصفر

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

لو البرنامج به صور فى الشاشات الغيها واضغط البرنامج من manage & compare and repaire قبل الضغط ثم اضغط الملف وحاول ارسله بالتوفيق

بالتوفيق أستاذ طارق

انا وصلت الجدول marjatable بجدول taslim_vip وعمل استعلام بس لازم يجب ان تكون به بيانات للربط وجرب الاستعلام 1471.rar

من رائ ان بهذة الطريقة الى حضرتك عايز تفعلها هيكون حجم البرنامج كبير اوى مع كثرة المفات المدمجة اليه ومن راي ايضا ان تضع مكتب الفيديوهات على ال D:/ مثلا وتستدعى الفيديوهات عن طريق hyperlink subaddress للحفاظ على سرعة البرنامج ومن له راى من السادة الاعضاء فليفيدنا

تنشاء folder وضع فى مكتبة الفيديوهات ومن خلال form ممكن عن طريق خاصية hyperlink subaddress

ممكن التوضيح اكثر حيث اننى رايت العلاقات حضرتك موصل الجدولين راس بطرف فى taslim_vip مع جدول istimara_taslimvip

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

اتفضل على الاستتعلام (بحث بكود المخبز) bk2016.rar

DoCmd.OpenReport "report name", acViewPreview DoCmd.RunCommand acCmdExportRTF

انا جمعت السنوات والاشهر والايام فى النموذج Database4.rar

لفتح الاكسل هذا الكود Dim oApp As Object Set oApp = CreateObject("Excel.Application") oApp.Visible = True لفتح الوورد هذا الكود Dim oApp As Object Set oApp = CreateObject("Word.Application") oApp.Visible = True

دقيقة واحدة

كلك زوق استاذ محمد انا شخصيا استفت من حضرتك

هذا الكود لمنع النسخ ارجو ان يفيدك ضعه فى الشاشة الافتتاحية فى خاصية عن الفتح Option Compare Database Private Sub Form_Open(Cancel As Integer) If CurrentProject.Path = "D:" Then If CurrentProject.Name = "اسم البرنامج.mdb" Then Else MsgBox "تم تغير اسم البرنامج يجب ان يكون بالاسم الاصلى " & vbCrLf _ & "لذا سيتم اغلاق البرنامج حتى يتم تصحيح البرنامج" DoCmd.Quit End If Else MsgBox "تم تغيير مسار البرنامج " & vbCrLf _ & "لذا سيتم اغلاق البرنامج حتى يتم تصحيح البرنامج" DoCmd.Quit End If End Sub

()date=

اجراء اخر سهل التنسيق الشرطى [text4]>20 ثم اختار اللون المراد اظهاره عن تحقيق الشرط

If Text4.Value > 20 Then item.ForeColor = 656565 Me.Refresh ممكن تغير forecolor ألى backcolor