ابوخليل

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

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

عليكم السلام
انت تريد عرض الأسماء على الشجرة ، وبالنقر على الاسم يفتح النموذج الخاص به ؟
اذا كان هذا صحيحا تفضل هذا مثال بسيط يمكنك محاكاته في برنامجك .
Tree view22.mdb

غريب
طيب جرب تعمل تجزئة للسطر هذا :
Dim i, ii As Byte بحيث يصبح
Dim i As Byte Dim ii As Byte  

تفضل 
وكما ذكرت لك الحل في خصائص العلاقة 
اتمنى ان يكون هو مطلوبك
 
Sample.rar

تفضل حسب طلبك
Dim fildMaxHeight As Integer Dim ctl As Control Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer) Me.hed1.Height = fildMaxHeight End Sub Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer) For Each ctl In Me.Section(5).Controls If ctl.Height > fildMaxHeight Then fildMaxHeight = ctl.Height End If Next For Each ctl In Me.Section(5).Controls Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbWhite, BF Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbBlack, B Next End Sub  
ضبط ارتفاع جميع الخلايا_ تقرير .mdb

تفضل  
تم تعديل المثال اعلاه حسب طلبك
Access2.mdb

نعم يمكن
استخدم الارتباط التشعبي
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