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

السلام عليكم ويمكن استعمال الملف المرفق بإضافة عمود مساعد E للترقيم التصاعدي لكل المدارس التي لم يتم زيارتها... School.xlsx

السلام عليكم أصدقاء المنتدى الكرام أقدم لكم ملف جاهز لتحويل التاريخ من الميلادى إلى التاريخ الهجرى ...أتمنى أن ينال إعجابكم بارك الله لكم جميعا برنامج تحويل التاريخ.xlsm

عليكم السلام ربما Sub test() Dim a As Variant, lr, i, x, s, k, itm a = Sheets(1).Range("B2:B" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Resize(, 3) With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If a(i, 1) <> 0 Then If Not .exists(a(i, 1)) Then .Add a(i, 1), a(i, 3) Else If a(i, 3) <> "" Then .Item(a(i, 1)) = IIf(.Item(a(i, 1)) <> "", .Item(a(i, 1)) & "+" & a(i, 3), IIf(a(i, 3) <> "", a(i, 3), "")) End If End If Next itm = .items Sheets(2).Cells(2, 1).Resize(.Count, 2) = Application.Transpose(Application.Index(Array(.keys, .items), 0, 0)) End With End Sub

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

بسم الله الرحمن الرحيم هانبدأ ان شاء الله بأول برنامج ..برنامج عمل قوائم الفصول للمدارس البرنامج ده عن طريقه تقدر تعمل قوائم الفصول وتعدل فيها بمنتهى السهولة بمجرد تغيير رقم فصل التلميذ بمجرد عمل القوائم يقوم البرنامج تلقائياً بعمل ايضاً ملف التقييم او ملف الانجاز وكذلك بيانات كتابة السجلات وايضاً عن طريق البرنامج تستطيع تصنيف التلاميذ من حيث دفع المصروفات المدرسية او دفع النصف او عمل الابحاث بضغطة واحدة واي استفسار بخصوص البرنامج اكتب استفسارك في التعليقات ..بيانات الدخول للبرنامج ستجدها بعد فك الضغط عن الملف 729143233_V1.rar

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

حبيبنا ابو حسان اكيد حتكون النتائج غير صحيحة لان الرصيد السابق الذي صنعته في الاستعلامات يعتمد على : تاريخ من + تاريخ الى وانت في تصفيتك تعتمد على حقل : تاريخ من حاول ان تكون التصفية متوافقة مع الاستعلام

أنا حبذت أن يتم إضافتها كملف مضغوط لتقليل حجمها وتكون جميعها في رابط واحد بدل عدة روابط 🙂 .. ولكن يمكنك تعديل ذلك في النسخة الخاصة بك فالبرنامج مفتوح المصدر ☺️🌹

نعم أخي قاسم يمكننا قراءة الجملة هكذا : أضف إلى Insert Into الجدول التالي ... Tbl_DBContent تحديداً الحقلين التاليين .. (Type, sName) والقيم المراد إضافتها بالتتالي values القيم هي : objectName , rs!Name حيث أن objectName هو اسم متغير أخزن فيه نوع العنصر و rs!Name هو اسم العنصر حسب مصدر السجلات --------------------------------------------------------------- و التنسيق الصحيح الذي نضع عليه المتغيرات في الكود هكذا : ;values ( ' " & objectName & " ',' " & rs!Name & " ' ) وضعنا علامة التنصيص المفردة حوالي المتغيرات ( ' ) لأنهما من نوع نص .. ولو كانا من نوع تاريخ نستبدلهما بــ ( # ) .. أما لو كانا من نوع رقم فنحذفهما ولا يوضع شي مكانهما .. تم وضع المتغير بين علامتي التنصيص (" ") والرمز & لأن المتغير (من اسمه فإن قيمته تتغير غير ثابته ) لذلك نخرجه من الجملة ذات القيمة الثابتة بهذه الطريقة: " & objectName & " هذا درس على السريع .. بالتوفيق 🙂

أخي الكريم تم عمل المطلوب باستخدام تنسيق الخلايا أرجو أن يفيدكم نسألكم الدعاء لنا قائمة.xlsx

تفضل أخي الكريم School.xlsx

انا جربت وتظهر البيانات تمام حسب التصفية المشكلة عندك في السنة المالية لان السجل الاخير اللي اضفته لن يظهر حتى تختار السنة المالية 2021 ملحوظة : اعتقد يمكنك التصفية لجميع الازرار من خلال نموذج واستعلام واحد بدلا من ثلاث نماذج وثلاث استعلامات ايضا يابو حسان ارجع لنصيحتي لك اول ما استقبلتك هنا في المنتدى من سنين وكانت حول بناء مشروعك على اكسس فقط واستبعاد اكسل ، اذكر انك اجبتني بان العمر تقدم وعلى حافة الــ ... ولا يوجد وقت لتعلم اكسس .. الآن وقد كسبت خبرة لا باس بها تستطيع بناء مشروعك من جديد ، فجميع المبرمجين يعملون هكذا في مشاريعهم يطورون باستمرار وانا اؤكد لك ان في نهاية تجديدك لمشروعك تكون علقت الشارة الزرقاء على معرفك

السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك الاستفادة من هذا الموضوع https://www.officena.net/ib/topic/82495-برنامج-جاهز-لتحويل-التاريخ-من-ميلادى-إلى-هجرى-والعكس/#comment-525026

وعليكم السلام ورحمة الله وبركاته بارك الله فيك استاذنا الغالى

أهلا بك أخي قاسم 🙂 قمت بعمل تعديلات بسيطة على النموذج المرفق وخرجت بهذه النتيجة : التعديلات التي تمت كالتالي : 1 - أضفت جدول من حقلين : ( نوع العنصر ، واسم العنصر ) 2 - أضفت جملة ال SQL التالية إلى الكود : CurrentDb.Execute "Insert Into Tbl_DBContent(Type, sName) values ('" & objectName & "','" & rs!Name & "');" وظيفتها أن تضيف كل عنصر تأتي به إلى الجدول وتكتب نوعه 🙂 3 - أحضرت الجدول إلى النموذج الرئيسي على شكل نموذج فرعي لعرض البيانات . 4 - زر ( به أمر ماكرو ) لتصدير بيانات الجدول إلى الصغية التي تريدها .. هذا والسلام 🙂 DBObjectsإحضار جميع عناصر قاعدة أخرى.rar

Sub copy_columns_MH() Dim MH As Long, k As Long Dim lr As Integer, erow As Integer, sh1 As Worksheet, sh2 As Worksheet, i As Long Set sh1 = Worksheets("saad") Set sh2 = Worksheets("data") Application.ScreenUpdating = False Range("c10:L10000").ClearContents lr = sh1.Cells(Rows.Count, 3).End(xlUp).Row For i = 11 To lr erow = sh2.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row sh2.Cells(erow, 4) = sh1.Cells(i, 2) sh2.Cells(erow, 5) = sh1.Cells(i, 4) sh2.Cells(erow, 6) = sh1.Cells(i, 5) sh2.Cells(erow, 7) = sh1.Cells(i, 7) sh2.Cells(erow, 8) = sh1.Cells(i, 9) sh2.Cells(erow, 9) = sh1.Cells(i, 10) sh2.Cells(erow, 10) = sh1.Cells(i, 11) sh2.Cells(erow, 11) = sh1.Cells(i, 12) sh2.Cells(erow, 12) = sh1.Cells(i, 15) Next i With Sheets("data") k = 1 For MH = 10 To .Range("D" & .Rows.Count).End(xlUp).Row If .Range("C" & MH) = valeu Then .Range("C" & MH) = k k = k + 1 End If Next MH End With Application.ScreenUpdating = True End Sub AHMAD - MH-3.xlsm

انا عملت على الزر """" رصيد سابق """" الذي انت حذفته في هذا المرفق الآن انظر في الازرار الثلاثة .. اصغر تاريخ في الجدول هو 1/7/2021 على اعتبار ان المعتمد في التاريخ على النموذج هو : من تاريخ T3Q -3.rar

الحمدلله تم توصل الى الحل وكانت الجملة فى المربع فى التقرير ثمن الفاتورة =DLookUp(" [total] ";"Issue_doc";"CustomersID= Forms!paymentcuss!CustomersID") مربع المقدم =DLookUp(" [Credit] ";"Tcus";"CustomersID= Forms!paymentcuss!CustomersID") واشكركم وجزاكم الله خيرا

مشاركة مع اخي موسى .. تفضل هذا يقوم بالمهمة انقر نقرا مزدوجا على الصورة Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Image_DblClick(Cancel As Integer) ShellExecute Me.hwnd, "open", Import_pictures_path, "", "", 1 End Sub ان كان نظامك 64 اضف PtrSafe بعد Declare in and out2.rar

السلام عليكم مشاركة مع اساتذتى العظماء هذه افكارى المتواضعة هذه الاكواد داخل موديول Public clnfrmName As New Collection Public frm As Form Public intCounterOpenForm As Integer Dim xPos As Integer Dim yPos As Integer Dim lngCount As Long Dim lngI As Long Function OpenAForm() Set frm = New Form_frmInvoice frm.Visible = True intCounterOpenForm = intCounterOpenForm + 1 frm.Caption = frm.Name & "(" & intCounterOpenForm & ")" clnfrmName.Add Item:=frm, Key:=CStr(frm.Name & "(" & intCounterOpenForm & ")") xPos = xPos + 300 yPos = yPos + 300 frm.Move xPos, yPos Set frm = Nothing End Function Function CloseAllForm() lngCount = clnfrmName.Count For lngI = 1 To lngCount clnfrmName.Remove 1 Next intCounterOpenForm = 0 xPos = 0 yPos = 0 End Function كنت اتمنى تطوير اخراج الفكرة بشكل عملى اكثر حتى لا يرتبط الكود باسم النموذج على ان يكون كود مرن ويتم استدعاءه بالشكل التالى OpenAForm("اسم النموذج المراد فتحه اكثر من مرة") ولكن عجزت بصراحة فى هذا السطر Set frm = New Form_frmInvoice Open Form more than once.accdb

اعجبني صنعك لهذه الدالة .. اذ لا وجود لها في vba .. شكرا لك يابواحمد ولكن بالمقابل هي موجودة فعلا ويتعامل معها اكسس في الاستعلام ، لذا لو تم تمييزها بزيادة حرف او نقصه لكانت آمن واتقن لدى من يقتبسها .