ابوخليل

تفضل
If ezr <> "الجزائر" Then e8.Visible = False g5.Visible = False m3.Visible = False ar.Visible = False Else e8.Visible = True g5.Visible = True m3.Visible = True ar.Visible = True End If  
الافواج4.rar

تفضل
اتمنى تكون بداية خير لك لاحتراف اكسس
db1.rar

احيانا الاعتماد على التاريخ للترقيم يسبب بعض المشكلات
لذا تم تحويل التاريخ الى رقم من اجل زيادة ضبط المعادلة
Database1 (1).rar

ارى ان ادخال 13 او 14 او 15 افضل واسهل للمستخدم  لأنه بمجرد ادخال 13 يتحول الوقت امامه آليا الى الواحدة مساء
ومع هذا كل شيء جائز في البرمجة
انظر المثال طبقت على يومي السبت والأحد
انقر نقرا مزدوجا على الحقل تجده يحول الوقت من الصباح الى المساء والعكس صحيح
مواعيد الاستشاريون4.rar

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

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

مشاركة مع احبتي
Function DaysInMonth(Month As Integer, Year As Integer) DaysInMonth = DateSerial(Year, Month + 1, 1) - DateSerial(Year, Month, 1) End Function Function InsertDaysInMonth() Dim dx As Date Dim rs As Recordset Dim i As Integer, r As Integer, yerthx As Integer, mnthx As Integer, dythx As Integer yerthx = Year(Me.MonthName) mnthx = Month(Me.MonthName) r = DaysInMonth(mnthx, yerthx) Set rs = CurrentDb.OpenRecordset("XDay") For i = 1 To r rs.AddNew dx = DateSerial(yerthx, mnthx, i) rs!Id_month = mnthx rs!dailyDate = dx rs.Update Next XDaySubform.Requery End Function  
db12.rar

تم الاصلاح وذلك بتعديل المعيار
 
وايضا هذا تم ضبطه بتغيير مصدر بيانات الحقل
INSTALLMENT APPEND 9.rar

وهذه طريقة مباشرة حسب مثالك :
Private Sub Command1_Click() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("t1") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!itempercent = (rs!itemsale \ 100) * 70 rs!vol = rs!itemsale - rs!itempercent rs.Update rs.MoveNext Loop Me.Requery End Sub  
النسبة المئوية3.rar

تفضل
Dim x As Date x = Nz(DLookup("dat", "tabl", "dat=[dd]"), 0) If x = Me.dd Then Me.t4.Requery Me.t4.Visible = True Else Me.t4.Requery Me.t4.Visible = False MsgBox " التاريخ الذي اخترته غير موجود", , "تنبيه" End If  
122024.rar

تم اعداد الفكرة على النحو التالي :
1- اعادة صياغة الجداول
2- جدول حالة المنصب تحصيل حاصل .. ومسبب زحمة لا حاجة لها .. لأن الحالة ستظهر من واقع البيانات المدخلة .. لذا تم حذفه
3- تم انشاء جدول جديد باسم tblMain وهو جدول الحركة وهو الاساس في الاستعلامات
بمعنى يجب ان تبني عليه نموذج الادخال .. وهو جدول بسيط ولكنه يخفي خلفه الكثير من البيانات
كل ما عليك هو اختيار الاسم الكامل / اسم المنصب / رقم الأمر / تاريخه .. فقط
كنت اريد ان اعمل لك هذا النموذج ولكنك تعمل على 2003 لذا لن يعمل معك
........................................
عملت لك استعلامات وكتبت عناوينها بالعربي من اجل تقريب الفهم
علما انه يمكن اختصار هذه الاستعلامات باستعلام .. واختلاف النتيجة يتم بواسطة المعايير من خلال النموذج
مثال (5).rar

تفضل من هنا :
ترقيم منوع ستجد مطلوبك فيه

الأمر يسير
يبدوا انك غيرت في علاقة في استعلام الى علاقة خاطئة
الاستعلام qrydegree_Detail  افتحه على التصميم  وغير العلاقة بين الجدولين بدلا من stud_id  اجعل العلاقة بين الرقم القومي
جرب وستنجح
 

حاول تقرأ جيدا حول الجداول
تفضل
تحربه2.rar

اهلا اخي
في المرات القادمة لا توجه السؤال لشخص بعينه .. من اجلك انت اولا .. وتحقيقا لقواعد المشاركة
تم التعديل
Dat11.rar

2003 .. جميع الاصدارات اللاحقة تتعامل معه
على كل حال اليك الحل :
بعد حذف الجدول table2
خلف الزر الصق هذا السطر :
DoCmd.CopyObject , "table2", acTable, "table1" على اعتبار  table1 هو الجدول الأساس
 
وحسب تسمياتك في مشروعك سيكون الكود كاملا :
DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "tbl_Student2" DoCmd.CopyObject , "tbl_Student2", acTable, "tbl_Student" DoCmd.SetWarnings True  

تفضل
Database1.accdb

تفضل
Dim i As Object Set i = CreateObject("shell.application") Dim x As Variant For Each x In i.Windows x.Quit Next x  
اخفاء الفولدر3.rar

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

يتم العد من المصدر الأصل الذي هو جدول الأسماء بناء على الحقول في التقرير كمعايير
عدد الذكور Me.Text1 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=1"), 0) مسلم Me.Text11 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=1" & " and eldina_id=1"), 0) مسيحي Me.Text111 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=1" & " and eldina_id=2"), 0) عدد الإناث Me.Text2 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=2"), 0) مسلم Me.Text22 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=2" & " and eldina_id=1"), 0) مسيحي Me.Text222 = Nz(DCount("gender", "Tbl_student", "alsaf_Id=" & Me.saf & " and alfsl_id=" & Me.fsl & " and gender=2" & " and eldina_id=2"), 0) لاحظ ان الجدول لا يحتوي الا على مسيحية انثى واحدة في الصف الخامس والفصل د
 
Dat11.rar

تفضل
ان كنت فهمت عنك
على عجل استخدمت الارقام الصريحة بدلا من المتغيرات
اذا الفكرة هي مطلوبك يمكنك بسهولة تعديل الارقام الصريحة الى متغيرات
Dim i As Integer i = Me.kulo If i >= 10 Then sh1 = 10 i = i - sh1 sr1 = sh1 * 15 Else sh1 = i sr1 = sh1 * 15 i = 0 End If If i >= 20 Then sh2 = 20 i = i - sh2 sr2 = sh2 * 20 Else sh2 = i sr2 = sh2 * 20 i = 0 End If If i >= 30 Then sh3 = 30 i = i - sh3 sr3 = sh3 * 25 Else sh3 = i sr3 = sh3 * 25 i = 0 End If If i >= 40 Then sh4 = 40 i = i - sh4 sr4 = sh4 * 30 Else sh4 = i sr4 = sh4 * 30 i = 0 End If If i >= 41 Then sh5 = i sr5 = sh5 * 50 Else sh5 = i sr5 = sh5 * 50 End If Me.srSum = Nz(sr1) + Nz(sr2) + Nz(sr3) + Nz(sr4) + Nz(sr5)  
b2.rar

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

تفضل التعديل
لاحظ :
تم تغيير نوع حقل الباركود الى نصي .. لأن بعض الباركودات تشتمل على حروف ، ايضا لو كان بداية الباركود صفر عند لصقه في الحقل الرقمي فسوف يتم حذف الصفر
تم تغيير المسميات بحروف اجليزية
_______
الآن النماذج جاهزة لاستخدام قارىء الباركود
Database23.rar

اليك طريقة متبعة غالبا عند تصميم قواعد البيانات
3.rar

تم التعديل على النحو التالي :
اعداد التقرير فيما لو تم نقل البرنامج الى مدرسة اخرى 
1- حذف جدول يوزر من الاستعلام
2- جلب بيانات جدول يوزر الى التقرير بالكود والتي تمثل : اسم المديرية / واسم المدرسة /  والفترة ... بدلا من كتابتها ثابتة داخل التقرير
3- تعديل بعض الاسماء .. مثلا اسم المديرية = mod  وهذا الاسم محجوز في اكسس 
4- تم تعديل مصدر البيانات في مربعي التحرير في النموذج من بيانات ثابتة جامدة الى بيانات متغيرة مرنة يتم جلبها من الجدول
ملحوظة : ستجد الترتيب في مربع تحرير الصف غير منسق ولكنه حقيقة منسق حسب الحروف العربية .. والصح ان يكون معرف الصف في الجدول رقما وليس نصا
Database5.rar