ابوخليل

اذا تقصد تحويله من   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

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

If Leb_1 = 81 or Leb_1 = 69 Then Me.Car_1.Enabled = True Me.Car_2.Enabled = False else Me.Car_1.Enabled = False Me.Car_2.Enabled = True End If  

Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close End Sub  

عليكم السلام
استخدم استعلام الحاق
وخذ احتياطك في مسألة تكرر البيانات

Right(a, Len(a) - InStrRev(a, "\"))  
تحديد اسم المرفق.rar