ابوخليل

ان تبدأ بعمل مشروعك من جديد افضل الف مرة من تطويره 
تفضل هذا طلبك :
update us prices4.rar

تفضل مع لمسة ان لم يجد شيئا بدلا من الصفر عبارة : لا يوجد
text1=NZ(DLookUp("[UserName]","[tblUser]","[UserName] ='"& [Forms]![frmMain]![UserName] &"'"),"لا يوجد")  
223.rar

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

اعمل حقل نصي غير منضم في رأس الصفحة
الصق هذا الكود في مصدر بياناته
="قسم:" & [Page]+39 ستلاحظ ان الصفحة الاولى = 40 والثانية 41 وهكذا ...
اذا اردت الترقيم من 1  احذف علامة + والرقم الذي بعدها
اعتقد الفكرة واضحة 

هذا رابط لموضوع للواتساب ويب .. حاول ان تطلع على المشاركات والطلبات
ونزل المرفق الذي اسمه sendwatsWebAll
ويحتوي على ثلاث نماذج كلها للارسال
وطلبك ستجده في النموذج الذي اسمه SendWhatsMoreMsg

تفضل
Dim cal As Integer Dim r As Date Dim i As String cal = Calendar Calendar = 1 r = CDate(hijri.Text) Calendar = 0 i = CStr(r) ymd = Format(i, "YYYY/MM/DD") Calendar = cal  
التاريخ2.accdb

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

تفضل
BASET5.rar

انا طبقتها على الجدول ..
كود تجريبي صغير ينفذ الفكرة اعلاه .. يمكن تطويره
 
GeneralTest2.rar

كان الخلل في قراءة رقم الكتاب
هذه تحدث احيانا وليست على اطلاقها .. وهي ان الكود لا يقرأ قيمة الحقل الا مع التركيز عليه
لذا اخذت بالاحتياط
وتم التحايل على فرق الوقت الذي تأخذه عملية المسح بين ملف وآخر ، بالاستعانة بعداد النموذج بدلا من sleep   او wait
وهذه هي الجمل البرمجية كاملة ...
Option Compare Database Option Explicit Dim i As Integer Dim mypath As String '--------------------------------------------------------------------------------- Private Sub Form_Timer() Me.Refresh If funDirFile = 0 Then If i = 0 Then Me.bookNumber.SetFocus Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(" & Me.bookNumber.Value & ",,,,," & mypath & " ,pdf,0) /scanhidden") i = 1 End If Else Me.TimerInterval = 0 End If Call Form_Current End Sub '---------------------------------------------------------------------- Private Sub scanpdf_Click() i = 0 Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = Trim(bookNumber.Value) & ".pdf" mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" DirFile = Dir(Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile) Me.TimerInterval = 3000 End Sub '--------------------------------------------------------------------------- Function funDirFile() Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = bookNumber.Value & ".pdf" DirFile = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile funDirFile = Len(Dir(DirFile)) End Function '------------------------------------------------------------------------------------ Private Sub Form_Current() Dim sMyFileName As String sMyFileName = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & Trim(bookNumber.Value) & ".pdf" WebBrowser1.Navigate (sMyFileName) Me.Refresh End Sub  
test6.rar

نيابة عن اخي خليفة
SavRefe as integr الموجود في الوحدة النمطية  زائد لا يعمل والاستاذ خليفة غفل عن حذفه
يمكنك حذف الوحدة النمطية فهي زائدة
المتغير  SavRef as integr  داخل محرر النموذج هو الذي يعمل
لاحظ الفرق بين الكلمتين : حرف e  
وهو على اسمه متغير حسب الحاجة .. تتبعه في الاحداث داخل محرر النموذج ،،، كل حدث اعطيناه قيمة مختلفة من اجل ضبط العملية

تفضل
times28.rar

اخي الكريم
احب اساعدك بطريقة اكاديمية
البرمجة تتم تنفيذا لتصور عملية او فكرة محددة
فانت هنا تريد ان تمنح الزبون قطعة مجانية مقابل شراء قطعتين ، واحيانا تمنح قطعة مقابل قطعة ، واحيانا قطعة مقابل 3 او 4 او 5  .... الخ
ومن اجل تكون العملية مرنة عند البيع وعند الحسابات يلزم  وضع آلية وتحكم لهذا الإجراء
اسهل واقرب آلية هي :
في جدول الاصناف :
عمل حقل تضع فيه نسبة محددة  امام الصنف المستهدف ، يتم تحديثه او حذفه حسب الحال
عمل حقل آخر  للحد الأدنى لعدد القطع المشتراه 
ما زاد عن ذلك يكون السعر تبعا للنسبة ..
في مثالك اذا اشترى ثلاث  سيدفع قيمة اثنتين واذا اشترى 6 سيدفع قيمة اربع 
اذا اشترى 5 او 7 فالدفع سيكون حسب النسبة
وبهذه الطريقة تكون الأمور دقيقة وواضحة امام مدقق الحسابات

السلام عليكم
التعديل تم كالتالي :
1- وجدت خلل غير ملاحظ وهو تسمية متغير بنفس اسم حقل الاسم  ... وهنا تظهر فائدة  Option Explicit في رأس المحرر
2- حذفت جميع ما يخص انشاء المجلدات وحذفها ، واذا اردنا حذف الملف وبياناته التي في الجدول فأرى من الأفضل تخصيص زر خاص بها 
3- المشكلة الحقيقية كانت في ادخال مجلد قاعدة البيانات ضمن المسار  .. فقمت باستبعاده عن المسار
اخيرا ازلت جميع المسافات في تسميات المجلدات .. للتنبيه فيما لو نقلت القاعدة بجانب مجلداتك
 
Newfolder.rar

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

مشاركة مع اخوتي ..
تم تحقيق الفكرة  مع مراعاة تغير نظام الحضور ( الشتوي / الصيفي)
Public Function funTestTimes() On Error GoTo err_idt Dim idt As String idt = DLookup("[hour_no]", "[Ttime]", "[time_from] <=#" & Time() & "# And [time_to] >=#" & Time() & "# ") funTestTimes = idt err_exit: Exit Function err_idt: If idt = "" Then MsgBox "لا يوجد حصص في الوقت الحالي" Resume err_exit End If End Function  
 
TT2.rar

يجب تغيير اسم الصورة داخل الكود
انظر الى اسماء الصور .. خاصة الحالية ، وانظر مكانها من الكود
غير الاسم (اللي هو المفتاح في الخصائص) حسب الاختيار

انا غيرت في المسميات
في مثالك كانت الاسماء : 
  نوع CRJ CRI BOEING BOENIG AIRBUS AIRBUS CRJ BOING ARBUS   ويبدوا ان فيها اخطاء املائية في الاسماء الثلاث ..  وانت قلت : ( انها ثلاث انواع ولكن الارقام تختلف)
لذا قمت بتصحيح الاسماء
لاحظ  BOEING  كلها مختلفة عن بعضها .. والبقية مثلها
اذا هذه الاخطاء الاملائية موجودة عندك في الأصل وتريد تطبيق فكرتك فيلزمك التالي :
عمل حقل يحمل صفة محددة واحدة لهذه  الاسماء مثلا .. BOEING ثلاث اسماء مختلفة يجب ان تضع امامها رقما او نصا واحدا  .. اي انك تجعلها متشابهه في الصفة ولنقل تضع امام كل واحدة رقم 1
وهكذا تعمل مع بقية الاسماء ... ويكون تطبيق الكود على هذه الصفة
كيف تعرف ان الاسماء مختلفة ؟ اعمل استعلام تجميعي لحقل الاسم  Group By من جدول TBL_T_TYPE_PLANE
 
 
 
 
 
 

وهذا حل مشابه لما تفضل به اخوي موسى مع بعض الاضافات
 
Private Sub txt1_AfterUpdate() Dim i As String Me.txt1.SetFocus i = Me.txt1.Value i = Replace(i, "عبد", "عبد" & " ") Me.txt1 = i End Sub  
الاسماء المركبة2.accdb

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

تفضل :
جمع كل صفحة / ومجموع ما قبله / والمجموع الكلي .
اولا تم التجميع على مستوى الاعمدة ثم استخراج الاجمالي حسب المعادلة
حقول التجميع تمت تغطيتها بحقول الاجمالي بحيث تختفي تحتها
DataFarms.rar

تفضل
هي اربعة شروط ولم اتمكن من الجامها الا باستخدام استعلام
1- البحث عن رقم الهاتف + الخدمة 
2- النظر في حالة الخدمة ( وهنا لا اعتبار لهما اذا التاريخ اكبر من اليوم )
3 - النظر في تاريخ الانهاء اذا اكبر من تاريخ اليوم 
لو اكتفينا بحالة الخدمة ..لتم ضبط الشرط بسطر برمجي واحد فقط
Example.rar

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

تصدق حتى مع هذه الصور  لم افهم  بالضبط
كل الصور تشير الى السجل كذا ... ومسألة الحقل ليس في قاموسك
السجل عبارة عن سطر يحمل عدة حقول
على كل حال وحسب مافهمت .. وحسب السهم الذي يشر الى الحقل الذي يحمل رقم 3
فهمت التالي :
 بناء على المعرف الرئيسي .. افتح النموذج الثاني على السجل الذي حقل الكود فيه = 3
DoCmd.OpenForm "tblTexts", acNormal, , "kod_alad5al=" & Me.kod_alad5al & " And LangCode=3" اذا غير ذلك زدني تفصيلا في الشرح
سجل المحدد للتعديل2.rar