د.كاف يار

من الخصائص الحقل غيير التنسيق الى رقم عام ا قياسي

تفضل هذه مشاركة من قبلي
 
حذف بيانات نموذج فرعي التي تم تحديدها.accdb

اتفضل يابو عبدالرحمن 
في حدث ازرار الحفظ ضع الكود التالي 
 
Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If  

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

تفضل التعديل اخي الكريم
 
1.accdb

تفضل هذا التعديل اخي الكريم ( اكتشفت خطأ في حساب التاريخ حيث تم التعديل ليحسب من التاريخ الحالي للنظام

 
)
 
Up_عقود_2.rar

طيب اتفضل هذا التعديل
 
عقود خدمات 2.accdb

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

تفضل التعديل يابو عبدالرحمن
تم تغيير فهرسة العمود f15 الي تحتها هوية الطالب بحيث لا تقبل التكرار
 
 
برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

تفضل اخي الكريم
H_G.accdb

تفضل هذا يا يو عبدالرحمن انسخ و الصق فقط
تزيين و تضبيط لكود اخونا الكبير @صالح حمادي
On Error GoTo errorhandle DoCmd.Beep If MsgBox("عزيزي المستخدم انت على وشك افراغ قاعدة البيانات" & vbNewLine & "هل تريد فعلا حذف البيانات ؟", vbCritical + vbYesNo + vbMsgBoxRight, "حذف بيانات") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM " & "CS_GetStudentScheduleReport" DoCmd.RunSQL "DELETE FROM " & "ImportSheet" DoCmd.RunSQL "DELETE FROM " & "Academic" DoCmd.SetWarnings True DoCmd.Beep MsgBox "تم حذف البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" Else MsgBox "تم الغاء حذف البيانات", vbInformation + vbMsgBoxRight, "الغاء الاجراء" End If errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit  

تفضل التعديل اخي الكريم
wesam.rar

اتفضل يابو عبدالرحمن
فقط حدد اسماء الجداول الي تحتاج تحذف بياناتها
On Error GoTo errorhandle DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM " & "TableName1" DoCmd.RunSQL "DELETE FROM " & "TableName2" DoCmd.RunSQL "DELETE FROM " & "TableName3" DoCmd.RunSQL "DELETE FROM " & "TableName4" DoCmd.SetWarnings True MsgBox "تم افراغ الجداول بنجاح" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit  

اخي الكريم
الاجازة السنوية : 30 يوم
في الشهر : (30/12) يوم
في اليوم : (30/(30/12)) يوم
تاريخ اخر اجازة : 01/01/2019
المعادلة كالتالي
X = "تاريخ اخر اجازة" مدة العمل الأيام DateDiff("D"; [x] ;now()) الشهور DateDiff("M"; [x] ;now()) السنوات DateDiff("YYYY"; [x] ;now()) ===================================== المعادلة الاجازة المستحقة حسب اشهر العمل الفعلية هي DateDiff("M";[X];Now()) * (30/12) الاجازة المستحقة حسب أيام العمل الفعلية هي DateDiff("D";[X];Now()) * ((30/12)/30) الاجازة المستحقة حسب سنوات العمل الفعلية هي DateDiff("YYYY";[X];Now()) * 30  

تفضل هذا التعديل 
stu_Table.accdb

تفضل التعديل اخي فايز
الظهور فقط للطلاب الذي لديهم حصص خالية و تم تمييزها باللون الأحمر
stu_Table.accdb

اخي الكريم 
لانشاء مجلد بإسم المادة  استخدم هذا الكود
Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrname =[text3] fldrpath = CurrentProject.Path & "\السجل الإلكتروني\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If  
و هذا تعديل لمتغيير كود التصدير فقط الصقه
Dim LExcelOriginal As String Dim LExcelCopyOf As String LExcelOriginal = sXlsFile LExcelCopyOf = CurrentProject.Path & "\السجل الإلكتروني\" & [text3] & "\" & [Forms]![FORM2]![text2] & "_..xlsm" FileCopy LExcelOriginal, LExcelCopyOf  
 
 
 
 

تفضل التعديل اخي الكريم
Da (3).rar

تفضل التعديل اخي الكريم
 
Minescreen (1).rar

اخي هذا برنامج كنت استخدمه في اصدار اكسس 2003
قد يفي بالغرض
IconChanger3[1].4.zip

اخي الكريم لتحديد مسار قاعدة البيانات فقط اضف
CurrentProject.Path و في مثل الرابط اعلاه للصورة يكون كالتالي
Me.image1.Picture = CurrentProject.Path & "C:\Program Files/1.jpg" و اذا كانت الصورة في مجلد فقط اكتب اسم الملجد
Me.image1.Picture = CurrentProject.Path & " اسم المجلد" & "C:\Program Files/1.jpg"  

تفضل التعديل 
ملاحظة : يجب اولا  فك الضغط 
Desktop.zip

تفضل هذا الكود اخي الكريم
مع مراعا و ضع اسم عنصر التحكم ( الأزرار ) في المكان المخصص
 
فكرة هذا الكود :-
- الصق هذا الكود في اي مكان في شاشة الأكواد VBA
Function control is not visible() On Error GoTo errorhandle DoCmd.SetWarnings False If DateDiff("h", DLookup("[EndTime]", "[StingTime]", "[TimeNo]=1"), Now()) > 24 Then DoCmd.RunSQL "Update StingTime SET EndTime = Now() WHERE [TimeNo]=1;" [ضع اسم عنصر التحكم هنا].Visible = True Else [ضع اسم عنصر التحكم هنا].Visible = False End If errorhandleexit: Exit Sub errorhandle: If Err.Number = 3078 Then DoCmd.RunSQL "CREATE TABLE StingTime (TimeNo int , EndTime DATE );" DoCmd.RunSQL "INSERT INTO StingTime VALUES (1, Now());" End If Resume errorhandleexit DoCmd.SetWarnings True End Function  
- يجب وضع هذا الكود في حدث عند الفتح و كذلك في الازرار المستهدف 
Call control is not visible() - سيتم انشاء جدول كما ذكر من قبل اخي الكريم @ محمد أبو عبدالله محمد أبوعبدالله 
- سيتم تحديث هذا الجدول كل 24 ساعة أو اكثر
- يمكنك التعديل على الجدول باضافة عمود لاسم المستخدم 
- سيتم اخفاء عنصر التحكم مرد الدخول على النموذج و مجرد الضغط على الأزرار مع مراعاة نقل التركيز قبل تنفيذ الكود
 

تفضل التعديل اخي الكريم
قاعدة بيانات.accdb

اخي الكريم
يجب عليك تثبيت  Framework 4.5
يرجى تجربة الملفات المرفقة
Setup.rar Debug.rar