ابوخليل

نعم يمكن
استخدم الارتباط التشعبي
https://www.google.com/maps/place/28°46'11.5"N 30°53'56.4"E  
db1.mdb

عليكم السلام
Private Sub endpage_Click() strSql = "SELECT * FROM tblData WHERE tblData.ID > ( (select COUNT(*) from tblData) - 10)" Me.RecordSource = strSql End Sub Private Sub firstpage_Click() strSql = "SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData WHERE (((tblData.ID)>=1))" Me.RecordSource = strSql End Sub  
السجلات في النموذج .mdb

السلام عليكم
ابو اشرف يمكنك استيراد الجداول الى قاعدة Accdb

يمكنك انشاء جدول جديد مبني على استعلام
هذه الخاصية موجودة في اكسس

تفضل اخي ازهر من هنا

اذا فهمت عنك فأنت بحاجة الى وضع اللون في حدث التركيز  ولونا اخر في حدث ذهاب التركيز
TreeView2.SelectedItem.BackColor = 16777215 الرقم هذا يعني اللون الابيض
DB4.mdb

الذي اعرفه 
CancelEvent  تستخدم عادة في  حدث قبل التحديث  حين لا يتحقق شرط ما .. يتم إلغاء الإجراء ( البيانات المدخلة) .. ويمتنع التحديث
اما Exit sub فهي عند عدم تحقق الشرط تلغي الإجراء وتتيح القفز  الى اجراء آخر داخل الحدث

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

عليكم السلام
جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور
وهذا واحد منها
 
وهذا مثال من مكتبتي
سرعة_سيارات.mdb

لم اطلع على المرفق
ولكني عملت لك هذا حسب ما فهمت
Dim i As Integer Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then i = i + 1 If i = 3 Then MsgBox "اعمل الإجراء" Exit Sub End If Else i = 0 End If End Sub  
test1.mdb

مشاركة مع اخي الاستاذ خالد
اذا كان مصدر التقرير استعلام ، اعمل عمود جديد وضع هذه القيمة فيه واجعله هو مصدر بيانات الحقل
date1 : format([textedate];"dd/mm/yyyy") باعتبار  textedate هو حقل التاريخ الموجود في الاستعلام
اذا توصلت للحل والا كما اشار عليك الاستاذ خالد بارفاق مثالك

عليكم السلام
مثلا لمعرفة عدد تكرار الحرف a في مربع النص text1 استخدم مثل هذا
Len([text1])-Len(Replace([text1];"a";""))  

تفضل من هنا

بارك الله فيك انت عرضت السؤال وانت وضعت الحل ايضا
بالطريقة التي ذكرتها يتم تحقيق ذلك
If Dir(CurrentProject.Path & "\Pic", vbDirectory) <> "" Then SetAttr (CurrentProject.Path & "\Pic"), vbHidden ElseIf Dir(CurrentProject.Path & "\Pic", vbDirectory) = "" Then MsgBox "لا يوجد ملف حتى يتم التطبيق " SetAttr (CurrentProject.Path & "\Pic"), vbNormal  

عليكم السلام
تأكد من نوع الحقول وحجمها في الجداول .. لابد ان تكون متشابهة
في مثالك تريد الحاق حقل رقمي الى حقل عملة ..

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then KeyCode = 0 MsgBox "يمكنك الحذف من النموذج فقط" End If End Sub  

تفضل
Private Sub id_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF6 Then SendKeys "^'", True End If End Sub  
 
db2.mdb

تفضل تم تحقيق المطلوب
الحدث الذي ماسك حقل الاسم هو حدث الخروج ، ولما يكون الحقل خالي يستحيل الخروج منه
لذا عملنا وسيط  تكون قيمته شرطا في تشغيل الحدث
هذا الوسيط هو متغير  تجده في اعلى الصفحة
واستخدمنا زر الهروب Esc لتغيير قيمة المتغير ولتحريك السجلات
____________
عند الرغبة في الرجوع من السجل الجديد  الى آخر سجل  فقط انقر على زر الهروب
 
Lab 2019_up2.rar

اخي خالد  انظر   هنا  و  هنا 
افكار احصائية
ولكن يعيبها البطء عند كثرة البيانات
فالدالات  : dlookup , dcount , dsum  لا تقارن بــــ select

السلام عليكم
طبق كما في الصورة

تفضل
PrgDB2.rar

تفضل  تم عمل المثال اللازم
لاحظ :
جميع امتدادات النسخ وحتى  القاعدة الخلفية  هي db  من اجل الخصوصية  
لاحظ ان القاعدة  2015.db  محمية بكلمة مرور
بعد  التبديل بين القاعدة الاساسية وبين النسخة السابقة  افتح الجداول ولا حظ فرق البيانات
من اجل تتأكد من انك فعلا ارتبطت بالقاعدة الهدف
المثال شامل  لاخذ نسخة احتياطية ولاستعادة  النسخ
أمل ان ينال استحسانكم
myback.rar

تفضل
2.rar

تفضل تم التعديل والتجربة على 2010
السبب وجود وحدة نمطية معارضة ليس لها مرجع
School2.rar

تفضل
openandclose.rar