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

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

شكر لك أخي @kanory بالفعل هناك تحديث قادم بإذن الله 🙂 .. وهذه صورة تشويقية .. وسأذكر المميزات الجديدة في حينها إن شاء الله ..😊 وربما يصعب إدراج النماذج الفرعية هنا لأن المكان صاير زحمة 😅🖐🏼️

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

وعليكم السلام ورحة الله وبركاته 🙂 1- أكمل الدالة .. لأنك حاط اسم العميل في النموذج الفرعي ستظهر لك أسماء النماذج الفرعية فقط .. اختر اسم النموذج الفرعي 2 - يجب إضافة هذا السطر يدويا لكي يتم الوصول لحقل رقم العميل . 3- إضغط على زر فحص التعديلات ( يجب أن يكون النموذج مفتوح لترى النتيجة مباشرة ) 4- هنا ستظهر النتيجة الدالة كاملة حسب المعطيات (نفس اللتي في الصورة) : DSum("[المتحصل من العميل]","[customer account sub dollar]","[اسم العميل] ='"& [Forms]![customer_account_$22]![customer_account_main $].FORM![Customer_Name] &"'")

السلام عليكم ورحمة الله وبركاته اولا اود ان اشكر الاساتذة الافاضل الذين طالما لم يبخلوا علي بمساعدة وجل ما تعلمته ووضعته في هذا البرنامج اما بمساعدتهم المباشرة او بما قدموه من اعمال برنامج البسيط لشئون الطلاب ( مجاني تماما) يصلح للمدارس من رياض الاطفال والابتدائي والاعدادي بيانات التلاميذ متضمنة استخراج النوع وتاريخ الميلاد والسن في اول اكتوبر والمحافظة من الرقم القومي واستخراج البريد الموحد وكلمة المرور من الكود والرقم القومي للصفوف من الرابع للثالث الاعدادي سجل القيد قوائم 40 تلميذ قوائم 60 تلميذ قوائم 80 تلميذ سجل التقييمات للصفوف الاولى ورياض الاطفال سجل التقييمات للصفوف العليا والاعدادي سجل الغياب مع امكانية تصدير ملف الغياب كاكسيل سواء قبل ملء الغياب او بعده سجل النشاط الرياضي سجل المصروفات بنوعين 1 -يستخرج المسدد وغير المسدد 2 - انواع السداد سواء كامل او ضمان او ابناء عاملين سجلات 100 مليون صحة سجل للكتب للصفوف الاولى / الصفوف العليا / الاعدادي الاحصاء العامة للمدرسة احصاء للفصول احصاء المصروفات ( مسدد / غير مسدد / ضمان / ابناء عاملين / ايتام) سجلات قابلة لتعديل البيانات العناوين مثل التقييمات والصحة والرياضي حذف جميع البيانات بضغطة زر ترحيل التلاميذ للصفوف الاعلى امكانية النسخ من ملف قديم يبدا من الاصدار الرابع ليتم بصورة سليمة ارجو ان يحقق الفائدة للجميع رابط البرنامج https://top4top.io/downloadf-2780bcqwh1-rar.html رابط اخر https://www.mediafire.com/file/y503r9sdhbcroxz البسيط اعدادي.xlsb البسيط تعليم اساسي.xlsb البسيط لشئون ابتدائي ورياض.xlsb

وفيك بارك الله استاذنا الفاضل نسأل الله القبول

قم بمسح المسار ووافق على الرسالة التي تظهر نعم تقلل من حجم القاعدة حسب حجم الصورة

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

مشاركة مع اخوتي واحبتي اليك المرفق حيث تم تحقيق طلبك الأول اما بالنسبة لطلبك الثاني ، فانت بحاجة الى انشاء جدول جديد ( يبنى من نتيجة الاستعلام ) يشتمل على اربعة اعمدة تنقل اليه البيانات كالتالي : 1- الموقع او المنطقة 2- الفئة 3- المبلغ 4- الشهر وعلى اعتبار المناطق 3 والفئات 12 فسوف يشتمل الجدول على 36 سجل هذا الجدول سيكون هو مصدر بياناتك لجدول عمليات الأرصدة ويمكنك جعل هذا الجدول هو مكان صرف الحوافز بدلا من جدول الارصدة .. فتضيف عمودا للمصروف وعمودا آخر للمتبقي hafez-4.rar

تفضل Private Sub CommandButton1_Click() Dim ws1, ws2, ws3 As Worksheet Dim lastRow, i, RowM2, RowM3 As Long Set ws1 = ThisWorkbook.Sheets("بيانات") Set ws2 = ThisWorkbook.Sheets("حرر") Set ws3 = ThisWorkbook.Sheets("لم يحرر") RowM2 = 8: RowM3 = 8 ws2.Range("A8:D1000") = "" ws3.Range("A8:D1000") = "" lastRow = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row For i = 8 To lastRow If ws1.Cells(i, 5).Value = "حرر" Then ws2.Range("A" & RowM2 & ":D" & RowM2).Value = ws1.Range("A" & i & ":D" & i).Value RowM2 = RowM2 + 1 Else ws3.Range("A" & RowM3 & ":D" & RowM3).Value = ws1.Range("A" & i & ":D" & i).Value RowM3 = RowM3 + 1 End If Next i End Sub

احبتي الكرام يجب اعطاء نصيب من الوقت عند تصميم الجداول .. بل قليل من الفكر وليس الوقت ، لان الوقت نفسه لا يتغير عند التصميم مسألة اننا نجعل جميع مفاتيح الجداول باسم : ( num ) او ( id ) وتكرار اسماء غيرها من الحقول كذلك ، فهذا يحتاج اعادة نظر في طريقتنا في التصميم . صحيح ان اكسس يسمح لنا بتكرار الاسم اذا اختلفت الجداول ، ولكن الوعد قدام .. حينما نحتاج لضم هذه الجداول في الاستعلامات او عند كتابة الشروط سنضطر حينها الى اعطاء الحقول اسماء ثانوية داخل الاستعلام .. وهذا يعد ضعفا وعيبا في التصميم الافضل دائما _وهو دليل الخبرة والاحتراف_ ان الاسم الذي اضعه للحقل لا يتكرر ابدا في جميع المشروع تفضل اخي العزيز تم التعديل مع ملاحظة ما كتب اعلاه baset2.rar

هذا الكود سيلغي الدمج وينسخ قيمة الخلية اللي فوقها Sub UnMergeFill() Dim cell As Range, joinedCells As Range For Each cell In ThisWorkbook.ActiveSheet.UsedRange If cell.MergeCells Then Set joinedCells = cell.MergeArea cell.MergeCells = False joinedCells.Value = cell.Value End If Next End Sub

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

كود لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم شرح الكود: يوضع في موديول منفصل .. ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form]) الكود: Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function طريقة الاستدعاء (الاستخدام): =RowNum([Form])

هذا أصل الموضوع .. هل تمت الإجابة عليه؟ إذا نعم افتح موضوع جديد لإجابة عليه وإذا لا نتناقش في الحلول المتاحة

وهذا كود لمن اراد فصل الارقام في حقل والحروف في حقل داخل النموذج Private Sub Command1_Click() Dim lets Dim i, r As Integer r = Len(Me.Text1) For i = 1 To r lets = Mid(Me.Text1, i, 1) If IsNumeric(lets) Then Me.Text3 = Me.Text3 & lets Else Me.Text2 = Me.Text2 & lets End If Next End Sub باعتبار Text1 هو الحقل المراد فصله و Text3 لاظهار الارقام Text2 لاظهار الحروف