ابوخليل

الحقيقة الداخل في البرنامج مفقود والخارج مولود 
على كل حال تمت معالجة المشكلة كما اشرت ايك في مشاركتي الأخيرة
وهذه صورة للنموذج 

T3Q-Copy3.rar

اهلا وسهلا اخي موسى .. اضافة جميلة ومعلومة قيمة
وكما وعدت الاخ رضوان تم عمل المطلوب بالطريقتين
شرح :
حولت التاريخ ( شهر / يوم ) الى رقم  في عمود ضمن الاستعلام ..  لأن المطلب هو الشهر واليوم 
عملت وحدات نمطية صغيرة لجعلها معايير من اجل سهولة وسرعة التنفيذ
الاستعلام الاول Current Events يعمل آليا 
الاستعلام الثاني qry1 يعمل من خلال حقل في نموذج
هذه هي الوحدات وتعليق بسيط عليها
هاتين الوظيفتين تعملان كمعايير داخل الاستعلام والرقم 2 يعني الايام ، (اكبر من وأصغرمن) تاريخ اليوم' فيمكن زيادة الرقم لزيادة العرض في الاستعلام ، فمثلا يمكن ان تجعل الرقم الموجب 7 لتعرض سبعة ايام بعد تاريخ اليوم ومثله الرقم السالب وهذه الوظيفتين تتعامل مع تاريخ اليوم الحالي وتظهر النتيجة في الاستعلام بلا وسيط Public Function dstePlus() dstePlus = CInt(Format(Date, "mmdd")) + 2 End Function Public Function dsteLoss() dsteLoss = CInt(Format(Date, "mmdd")) - 2 End Function هاتين الوظيفتين مثل السابقتين ولكنها تتعامل مع التاريخ المدرج في النموذج ، الأولى للتاريخ المدرج والثانية تعني اقل من التاريخ المدرج بيومين' Public Function dstechose() dstechose = CInt(Format(Forms!frm1!txt1.Text, "mmdd")) End Function Public Function dsteDown() dsteDown = CInt(Format(Forms!frm1!txt1.Text, "mmdd")) - 2 End Function  
Database11.rar

منطقيا لا يمكن
لان جدول MultiNamesTable يحتوي على حقل مرتبط بالجدول GroupsTable وغير موجود في جدول main1115
الحل ان تدمج جدول GroupsTable مع main1115  باستعلام  ولن تتمكن لانه يجب عليك تنشء حقل مرتبط بينهما
مشكلتك : انك تريد ادراج سجلات جديدة في جدول MultiNamesTable من غير حقل IDMain
لو حذفت العلاقة بين الجدولين ستتمكن من الإلحاق ولكن لن يمكنك الاطلاع على البيانات من خلال جدول GroupsTable الرئيس وسيبقى حقل IDMain خاليا
او ستتمكن لو ان العلاقة بين الجدولين يكون جدول MultiNamesTable هو الرأس وحقل IDMain ترقيم تلقائي
 
 

تفضل
SELECT x1.f2, x1.f1, x1.markName, IIf(mytextvalue() Between [f1] And [f2],""1"",""0"") br2.rar

اختلف برنامجي في رمضان واحتاج الى ايام لتنظيم  الوقت المتاح للمنتدى ، ولكن شدني النداء
نعم انت نبهته ان هو اراد الناتج مع الكسور ووافق .. ورأيت التعديل ..
كتب الله اجرك ابا احمد ، هو رأى نتيجة المهندس قاسم بلا كسور فكانت اقرب الى نفسه
ولكن التطبيق من خلال الكود اكثر احترافية .. فلما عاتبته قام بالغاء افضل اجابة برجاء الحصول على نتيجة افضل .
سأكون وسيط خير  بينكم لعلي افوز بافضل اجابة  ... دمجت الفكرتين وبفضل الله خرجت بهذا الكود
آمل الاطلاع من الجميع والتقييم
Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function  
 
months30.accdb

اذا تقصد تحويله من   Accde الى Accdb   او من  mde   الى mdb
اعتقد انه لا يمكن
وعلى الرغم من وجود اعلانات في النت لبرامج مدفوعة يدعون انها تقوم بالتحويل ، الا اني حسب خبرتي في اكسس وتجربتي لمثل هذه البرامج  وجدتها تقوم بالتحويل ولكن بعد نزع جميع الاكواد من المحرر .

تجدها ضمن خصائص الحقل لسان التبويب : تنسيق / لغة لوحة المفاتيح

SW_HIDE 'اخفاء SW_NORMAL 'عادي SW_MINIMIZED 'تصغير SW_MAXIMIZED 'تكبير Call ShowWindow(hWndAccessApp, SW_HIDE) غير ما لون بالاحمر حسب رغبتك

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

عليكم السلام
تفضل0
Dim tblx As String tblx = Me.Modifiable5 DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Edusoft\Record.accdb", acTable, tblx, tblx, False المرفق هو الواجهة التي على سطح المكتب
Record.accdb

اخي العبيدي
وجدت لك مثال نادر قد اتحفنا به الاستاذ احمد @Bluemind زميل لنا سابق .. مع بعض التصرف
المثال رائع يقوم بتسجيل التعديلات على جميع النماذج
تسجيل التغييرات الحادثةفي جميع النماذج.rar

عليكم السلام
نعم .. القديم يعمل على الجديد .. 
فقط المشكلة في النظام  يجب مراعاة النواتين 32 و 64 عند كتابة الأكواد

شكرا اخي قاسم
اخونا محمد حديث عهد بالاكسس والحلول توافدت عليه بالجملة 
وهذا المرفق حولت الاستعلام الى تجميعي حسب المركز والقسط
ولكن لاحظ انه يجب عليك تشغيل الكود السابق اولا من اجل ادراج ترقيم الاقساط
Database17.rar

If IsNull([الادارة]) Or [الادارة] = 0 Then Undo MsgBox "لا يمكنك ترك الحقل فارغا" Exit Sub End If حاول ان تغلق النموذج بعد ان تترك حقل الإدارة فارغا
ثم اذهب الى الجدول وانظر .. لن يتم حفظ السجل
__bb-4 - Copy.accdb

انظر المرفق
printRprt3.rar

تفضل 
هذه الوحدة النمطية الخاصة كما في الصورة اعلاه
افتح الاستعلام وانظر النتيجة : الرقم الموجب زيادة والرقم السالب نقص والصفر هو الوزن المثالي
يمكنك بناء نموذجك على الاستعلام  ولا حظ ان اي تغيير على الارقام  سيتغير التقييم آليا
 يمكن ايضا ادخال الجنس ذكر / انثى  ضمن الوحدة النمطية
ان رغبت في ذلك سوف اضع لك الاساس وانت تدخل الاوزان
 
Public Function GetPerfectWeight(xheight As Integer, xold As Integer) As Double If xheight = 150 Then If xold <= 24 Then GetPerfectWeight = 57 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 60 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 61 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 64 If xold >= 50 Then GetPerfectWeight = 67 End If If xheight = 152 Then If xold <= 24 Then GetPerfectWeight = 59 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 62 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 63 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 65 If xold >= 50 Then GetPerfectWeight = 68 End If If xheight = 154 Then If xold <= 24 Then GetPerfectWeight = 60 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 63 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 64 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 67 If xold >= 50 Then GetPerfectWeight = 70 End If If xheight = 156 Then If xold <= 24 Then GetPerfectWeight = 63 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 64 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 66 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 68 If xold >= 50 Then GetPerfectWeight = 72 End If If xheight = 158 Then If xold <= 24 Then GetPerfectWeight = 63 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 66 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 67 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 71 If xold >= 50 Then GetPerfectWeight = 73 End If If xheight = 160 Then If xold <= 24 Then GetPerfectWeight = 65 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 67 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 69 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 72 If xold >= 50 Then GetPerfectWeight = 75 End If If xheight = 162 Then If xold <= 24 Then GetPerfectWeight = 66 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 68 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 70 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 74 If xold >= 50 Then GetPerfectWeight = 76 End If If xheight = 164 Then If xold <= 24 Then GetPerfectWeight = 67 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 69 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 72 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 75 If xold >= 50 Then GetPerfectWeight = 77 End If If xheight = 166 Then If xold <= 24 Then GetPerfectWeight = 68 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 71 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 74 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 76 If xold >= 50 Then GetPerfectWeight = 79 End If If xheight = 168 Then If xold <= 24 Then GetPerfectWeight = 69 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 73 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 75 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 78 If xold >= 50 Then GetPerfectWeight = 80 End If If xheight = 170 Then If xold <= 24 Then GetPerfectWeight = 70 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 74 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 77 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 80 If xold >= 50 Then GetPerfectWeight = 83 End If If xheight = 172 Then If xold <= 24 Then GetPerfectWeight = 72 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 76 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 78 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 81 If xold >= 50 Then GetPerfectWeight = 85 End If If xheight = 174 Then If xold <= 24 Then GetPerfectWeight = 74 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 77 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 80 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 83 If xold >= 50 Then GetPerfectWeight = 86 End If If xheight = 176 Then If xold <= 24 Then GetPerfectWeight = 76 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 78 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 82 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 85 If xold >= 50 Then GetPerfectWeight = 88 End If If xheight = 178 Then If xold <= 24 Then GetPerfectWeight = 77 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 80 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 83 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 87 If xold >= 50 Then GetPerfectWeight = 90 End If If xheight = 180 Then If xold <= 24 Then GetPerfectWeight = 79 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 82 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 85 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 89 If xold >= 50 Then GetPerfectWeight = 92 End If If xheight = 182 Then If xold <= 24 Then GetPerfectWeight = 81 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 84 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 87 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 90 If xold >= 50 Then GetPerfectWeight = 94 End If If xheight = 184 Then If xold <= 24 Then GetPerfectWeight = 82 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 86 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 89 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 92 If xold >= 50 Then GetPerfectWeight = 96 End If If xheight = 186 Then If xold <= 24 Then GetPerfectWeight = 84 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 87 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 90 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 94 If xold >= 50 Then GetPerfectWeight = 98 End If If xheight = 188 Then If xold <= 24 Then GetPerfectWeight = 85 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 89 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 92 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 96 If xold >= 50 Then GetPerfectWeight = 100 End If If xheight = 190 Then If xold <= 24 Then GetPerfectWeight = 86 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 90 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 95 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 98 If xold >= 50 Then GetPerfectWeight = 102 End If If xheight = 192 Then If xold <= 24 Then GetPerfectWeight = 87 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 91 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 96 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 100 If xold >= 50 Then GetPerfectWeight = 104 End If If xheight = 194 Then If xold <= 24 Then GetPerfectWeight = 88 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 92 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 98 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 102 If xold >= 50 Then GetPerfectWeight = 106 End If If xheight = 196 Then If xold <= 24 Then GetPerfectWeight = 89 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 93 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 100 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 104 If xold >= 50 Then GetPerfectWeight = 108 End If If xheight = 198 Then If xold <= 24 Then GetPerfectWeight = 90 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 94 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 101 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 106 If xold >= 50 Then GetPerfectWeight = 110 End If If xheight = 200 Then If xold <= 24 Then GetPerfectWeight = 91 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 95 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 103 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 108 If xold >= 50 Then GetPerfectWeight = 112 End If End Function  
الوزن المثالي2.rar

Dim i As Integer, R As Integer Dim rs As Recordset Dim x As String Set rs = Me.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst x = txt_nshat For i = 1 To R rs.Edit rs.Fields(x) = drga2 rs.Update rs.MoveNext Next غفلت عن تعديل آخر سطر 
MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat & " ) " بدله بهذا
MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat.Column(1) & " ) " التعديل الذي تم انظر في جدول tb_nshat  وانظر في مصدر بيانات مربع التحرير
 
رصد الانشطة2.rar

وجدت لك هذه
وحدة نمطية عامة اجعلها في مديول
#If VBA7 Then Private Declare PtrSafe Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #Else Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #End If Public Function GetShortName(ByVal sLongFileName As String) As String Dim lRetVal As Long, sShortPathName As String, iLen As Integer 'Set up buffer area for API function call return sShortPathName = Space(255) iLen = Len(sShortPathName) 'Call the function lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) 'Strip away unwanted characters. GetShortName = Left(sShortPathName, lRetVal) End Function ويتم مناداتها بهذا السطر
Shell ("cmd /c mspaint /p " & GetShortName(CurrentProject.path & "\" & Me.picFld & ".jpg"))  

Set rs = CurrentDb.OpenRecordset("AAA") rs.MoveFirst Do While Not rs.EOF x = rs!id Me("DDDD" & x).Caption = rs!NM Me("D" & x).Caption = rs!id Me("S" & x) = rs!sr rs.MoveNext Loop  
اسم العميل3.rar

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

آمل ان يكون هذا هو مطلوبك
Public Function OrderAwael(Roundx As Double) As String Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) + 1 FROM (SELECT qryRank.Rounded FROM qryRank GROUP BY qryRank.Rounded) As temp WHERE temp.Rounded > " & Roundx, dbOpenSnapshot) OrderAwael = rs(0) rs.Close End Function  
Ranks.accdb

تفضل
 
top 10 fsl Up.rar

الافضل ينقل الموضوع الى القسم المفتوح  في الموقع ليطلع عليه اكبر شريحة من مرتادي الموقع
ايضا يتم اشعار مدير الموقع للمشاركة وابداء الرأي

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

تفضل 
تجد الطريقة المثلى للعمل على جداول اكسس
ابحث بكود العميل 111 .... 112 .... 113
ثم اختر تسديد سجل واحد او اكثر .. وانظر النتيجة في التقرير
اتمنى ان يكون هذا المثال خطوتك الأولى للاحتراف
printfactur2.rar