نجوم المشاركات
Popular Content
Showing content with the highest reputation on 04/16/21 in مشاركات
-
اذا لم يعمل الزر استبدل الكود الموجود خلفه بهذا : DoCmd.RunSQL "UPDATE ta2, qry1 SET ta2.[تاريخ الانتهاء] = [qry1].[تاريخ الانتهاء], ta2.[رقم الفترة] = [qry1].[رقم الفترة] " & vbCrLf & _ "WHERE (((ta2.[no])=Int([qry1].[no])))" الامر هنا مباشر بدون وسيط3 points
-
قبل تشغيل الزر خذ جولة على الجدول والاستعلام للتأكد من البيانات نقل المعلومات2.rar3 points
-
تفضل ... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE b14 SET b14.hno = DCount(""*"",""b14"",""ID <="" & [ID]);" DoCmd.SetWarnings True2 points
-
الحل انك تعمل وحدة نمطية عامة تحمل قيمة الحقل ID بكذا تستطيع مناداتها من اي مكان من البرنامج تفضل المثال بعد التعديل Downloads.rar2 points
-
هذا يلغي الرسائل Private Sub Form_Error(DataErr As Integer, Response As Integer) Response = acDataErrContinue End Sub2 points
-
تفضل هذه المعادلة لكود المندوب =IFERROR(INDEX(المناديب2!$A:$A,MATCH($A2,المناديب2!$B:$B,0)),"") وهذه المعادلة لكود السيارة =IFERROR(INDEX(' السيارات3'!$A:$A,MATCH($C2,' السيارات3'!$C:$C,0)),"") حركه السيارات.xlsx1 point
-
تمام تمام عليك أستاذنا القدير .. بالفعل هذا المطلوب .. مع شكري وتقدير لأستاذنا محمد البرناوي على إفادته،، سأطبق على البرنامج الأساس وبإذن الله تزين الأمور،، بارك الله فيكم ورعاكم ووفقكم يا كرام..1 point
-
في الخلية B3 من الصفجة (اجمالي يومي) اكتب هذه المعادلة( كما في الصورة) ثم اسحب يساراً 6 اعمدة و نزولا حتى الصف 89 الملف مرفق Hasan.xlsx
1 point -
السلام عليكم ان سمحتو لي احبتي بالمداخلة هذه محاولة باستخدام استعلام التحديث يمكن تؤدي الغرض نقل المعلومات2.rar1 point
-
جرب هذا الكود Option Explicit Private Sub CommandButton1_Click() Dim My_Format$ Dim I As Byte My_Format = "#,##0.00" With Sheets("TEST") For I = 1 To 4 Me.Controls("TextBox" & I) = _ Format(.Range("A3").Offset(I - 1), My_Format) Next End With End Sub1 point
-
اخي الكريم الية العمل في البرنامج غير مفهومة لي .... انظر للاضافة هناك رقم فاتورة وليس لها تاريخ في سجل الاضافة ..... هل انت تدخل البيانات دفعة واحدة وتريد الاستبدال ايضا دفعة واحدة أم انك تخل اليوم بيانات وغدا بيانات اخرى وتريد الاستبدال عند عرض هذه البيانات ....
1 point -
ممكن ترفق الجدول المعدل التي تحوي تلك الاضافات1 point
-
تفضل حسب فهي للموضوع .... نقل المعلومات1.accdb1 point
-
رقم الفترة حتى الصفر يتم استبداله ام لا ....1 point
-
تفضل جرب TEST20212021.xlsm1 point
-
يمكنك عمل هذا بهاذا الكود Sub DAT() Dim x, lr lr = Range("d" & Rows.Count).End(xlUp).Row For x = 2 To lr Range("g" & x) = Format(DateAdd("m", 0, (Range("d" & x))), "m") Next End Sub1 point
-
حاول ترفع القاعدة لو فارغه او ترسلها على الايميل1 point
-
تفضل التعديل ارجو ان يكون طلبك OFFICE_POLICE-1.rar1 point
-
وانت بالف خير واعاده الله عليكم بالصحة والسلامة وقبول الاعمال وانا بالخدمة1 point
-
تفضل- هذا الفيديو به طلبك1 point
-
تفضل هذا التعديل Microsoft Access قاعدة بيانات جديد (2).accdb1 point
-
- يترك البعض عده صفوف فى بداية ورقة العمل يخصصها لكتابة اسم الشركة او معد التقرير او عنوان التقرير إلا ان الاكسل قد خصص امر" اعدادات الصفحة بقائمة ملف " لعرض تلك المعلومات بشكل افضل و متكرر فى صفحات الطباعة و بتنسيقات مناسبة بينما يترك ورقة العمل للبيانات و العلاقات بينها1 point
