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

السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb

اصنع زر سجل جديد وضع فيع هذا ... Me.Requery DoCmd.GoToRecord , , acNewRec

تفضل ملفك .... واعلمنا بالنتيجة ... 1.rar

جرب تغيير الشرط في الكومبوبوكسات كما في الصورة

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

السلام عليكم مشاركه مع اخواتى واساتذتى الافاضل ابو البشر و ابوجودى اولا قمت بازاله القيمه الافتراضيه للترقيم فالنموذج الرئيسى وكذلك تعديل خاصيه ممكن الى نعم ثم وضع كود الترقيم فى حدث عند الفتح Private Sub Form_Open(Cancel As Integer) 'On Error Resume Next DoCmd.GoToRecord , , acNewRec Me.as_a1.SetFocus Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1 Me.Pu_inx8.SetFocus Me.Pu_inx8.Form!as_b2.SetFocus End Sub بالتوفيق 1_1.accdb

السلام عليكم ورحمة الله وبركاته عذراً للمداخلة يبدو الأخ ابو خليل لم ينتبه الى سطر الاول في الكود وأشر فيه الى نماذج بدل تقارير و هو يقصد كتابته كالآتي: Do While Reports.Count > 0 DoCmd.Close acReport, Reports(0).Name Loop

وايدك ياعم محمد 🌹

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

جرب الملف .... 1.rar

تسلم ايدك فعلا

اصنع مثل هذا افضل للمستخدم .....

لا مش فاهم بفول لك ايه الله يرضى عليك انا لا فاهم الارقام ولا عارف ايه الناتج اللى يطلع الله يرضى عليك 1- حط القيم اللى انت عاوزها فى النموذج وفلتر وصدر التقرير وهات النتيجة هنا فى صورة وطبعا دى الغلط 2- اعمل صورة جديدية انت بايدك فى ملف ورد مثلا بالشكل المطلوب بالارقام اللى مفروض تطلع

اتفضل يا سيدى جرب ورد علية بالنتيجة لو تكرمت Test1(4).accdb

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

اعتقد من الوهلة الاولى ... كل ما تحتاجة فقط برنامج للربط بين الحاسوب والموبايل

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

بارك الله فيكم استاذتى الكرام وهو المطلوب جزاكم الله خير

طيب قبل ما ابدأ العمل 1- هل اقوم بعمل الاستعلامات من خلال الاكواد ؟! الميزة : تقليل عدد الاستعلامات والنماذج العيب : مستقبلا ان اردت اى تعديل لابد من فتح التصميم والتعديل برمجيا على الاكواد وجملة الـ SQL الخاصة بالاستعلام وقكها الجميل ستكون كثيرة يعنى لابد من معرفتك التامة لكل جملة كيف سيكون عملها وتأثيرها --------------------------- 2- عمل العدد الكافى للاستعلامات حسب المتطلبات طبقا لمعايير الاختيار من النموذج ؟! الميزة : مستقبلا ان اردتعمل اى تحديث تستطيع تحديد الاستعلام وعمل ما تريد بسهولة العيب : كثرة الاستعلامات فى انتظار ردك للشروع بالعمل

ابشر

نعديل بسيط ...تم اعمل تظليل للصف الذي به البحث عند عمل كليك في اللست بوكس ولا تنسي ..عند عمل دبل كليك علي كل من تكست بوكس او كومبوبكس ..يتم تفريغ كل منهما Test_2.xlsm

اتفضل يا سيدى الفاضل Test1(4).accdb

فورم اكسل متحرك لادخال بيانات وحذفها وفورم ترحيب لِآياتٍ قِرانيَّةٍ 2 الفيديو

اخي شاهد المرفق Test_1.xlsm

تم حل المشكلة أخي @figo82eg 🙂 بدل الدالتين بهذه .. لنوع الملف : =IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Right([Full];Len([Full])-InStrRev([Full];"."));"") لاسم الملف : =IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Left([Full];InStrRev([Full];".")-1);[Full]) ولعيون الحبيب @ابو جودي تم حل قضية الخانات الفاضية أو الأسماء الغير صحيحة 😏 : وعندما تكون فاضية كذلك : إمتداد.accdb

اخي العزيز ...السلام عليكم هناك برنامج حضور وانصراف موظفين للاخ العزيز @عمر ضاحى وهو برنامج جميل جدا ومتعوب عليه.. وسيفيدك جدا ...ابحث عنه في صفحته

تفضل أخي @ra7yl2006 🙂 هذه جملة الإحصاء التي استخدمتها للحصول على الناتج : =DCount("*";"[Gyab_Query]";"[كود الموظف] =" & [Forms]![المرتبات]![كود الموظف] & " And [gMonth] =" & [Forms]![المرتبات]![MonthCbo] & " And [gYear] =" & [Forms]![المرتبات]![yearCbo] & " ") ولكن بعد العديد من التعديلات الضرورية على بنية الجداول والنموذج مع إنشاء استعلام جديد باسم Gyab_Query للحصول على تاريخ وسنة الغياب .. aa.rar

طيب كنت احضر المرفق واذا بالرد وصل من الباش مهندس @Moosak بس ولانى حضرت المرفق وطبعا عملت حساب كل شئ مش راح اشرح اترككم مع التجربـــــة وراح نشوف رد يضاف للمكتبة Extract Filename And Extension.zip

اضف هذا الكود تحت امر عند فتح النموذج الرئيسي لديك .... Set rst = CurrentDb.OpenRecordset("pu_inv8") With rst .AddNew .Fields("as_a1") = Forms!pu_inv8.as_a1.Value .Fields("as_a2") = Forms!pu_inv8.as_a2 .Update End With

أخي الكريم صاحب الموضوع اول خطوة لتعديل الكود فهمه وفهم متغيراته والكود القديم يقوم بنقل قيمة العمود J إلى العمود 19 بعد العمود الأول في شيت البيانات والمطلوب إضافة نفس الكود عند تعديل العمود G ويتم نقله إلى العمود 16 بعد العمود الأول في شيت البيانات لذلك يصبح الكود بعد التعديل Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim ws As Worksheet Set ws = Sheets("البيانات") Dim c, x Application.ScreenUpdating = False If Not Intersect(Target, Range("g8:g1000")) Is Nothing Then c = Target.Offset(, -9) x = Application.Match(c, ws.Columns(1), 0) ws.Cells(x, 1).Offset(, 16) = Target Ebd If If Not Intersect(Target, Range("j8:j1000")) Is Nothing Then c = Target.Offset(, -9) x = Application.Match(c, ws.Columns(1), 0) ws.Cells(x, 1).Offset(, 19) = Target End If Application.ScreenUpdating = True End Sub لاحظ تم تكرار سطور الشرط للعمودين g و j مع تغيير رقم العمود المرحل إليه مرة 19 ومرة 16 بالتوفيق

ياريت ترفق قاعدة البيانات

اولا جزاك الله خير اخي يونس الكود الذي اشرتم اليه على النحو التالي Me.M = DLast("M", "GTTT", (DCount("*", "GTTT") Mod 50)) + 1 Me.R = DLast("R", "GTTT", (DCount("*", "GTTT") Mod 50)) وتفسيره بالنسبة لي ان حقل الترقيم يساوي اخر رقم موجود في الجدول ثم استخدم دالة عد السجلات في نفس الجدول واستخدم دالة القسمة على 50 ثم +1 والحقيقة بالنسبة لي الامر غير مفهوم لان استخدام دالتي العد والقسمة لا دور لها هنا وحتى بعد استبعادهما لم يتاثر الترقيم لان الامر اخر رقم +1 مع العلم ان دالة dlast تعيد اخر رقم وليس اكبر رقم وهذا الامر سوف يسبب وجود ارقام مكررة طالما اننا تركنا الامر لمدخل البيانات الامر الثاني ايضا في السطر التالية حقل r الخاصة بالقيمة الافتراضية استخدمت dlast للحصول على اخر قيمة للحقل والسؤال ماهو دور دالتي dcount & mod الامر يمثل استفسار وليس الهدف منه النقد تحياتي

ضع هذا الكود في حدث زر عند النقر خاص بغلق جميع التقارير المفتوحة Do While Forms.Count > 0 DoCmd.Close acReport, Reports(0).Name Loop

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