د.كاف يار

تفضل هذا التعديل
 
YasEnEx2021.rar

تفضل هذا المثال
 
1MyData.zip

تفضل هذا التعديل
 
2بيانات.zip

تفضل هذه مبادرة من طرفي
حاول تكمله و اذا استصعب عليك شي كلنا في خدمتك
 
Smart_Gym.zip مجلدات الصور.zip

جرب هذا التعديل
و لا تنسى بأنك لم ترفق كامل المكتبة يتعين عليك نقل التعديل لبرنامج الاساسي لكي تجد النتيجة
Nz(DLookUp("[nass]";[TAB_Books_X]![BookNO];"[Mno] LIKE '*" & [TAB_Books_X]![MNO] & "*' And [Hno]=" & [TAB_Books_X]![HNO]);"-")  
MusndWZwayid 7.accdb

خطأ في العلاقة
اتفضل التعديل

DATE ERROR_2.rar

و جرب هذا التعديل 
 
1390.nabil23221.zip

تفضل التعديل
 
بيانات.zip

استبدل الكود الخاص بأزرار التحديث بالكود التالي
 
On Error Resume Next Dim db As DAO.Database Dim rs As DAO.Recordset Dim x, z As String Set rs = CurrentDb.OpenRecordset("Table") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = Right(rs.Fields("PicPath2"), Len(rs.Fields("PicPath2")) - InStrRev(rs.Fields("PicPath2"), "\")) rs.Edit rs!PicPath2 = Application.CurrentProject.Path & "\" & "Pictures" & "\" & x rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing DoCmd.Requery  

تفضل التعديل
pdf2.zip

اذا يلزم انك تحصل على المكتبة عشان تثبتها و تقدر من خلالها تستدعي API عشان تتصل بالسيرفر سواء كان في الزكاة و الدخل او غيره
لكن انصحك انك تشتغل على ASP.Net أو VB.Net أو #C
راح تجد سهولة في التعامل مع جميع خصائص API و سهلة في تثبيتها

تفضل التعديل اخي الكريم و اغتذر عن  التأخير لأن الموضوع اخذ وقت لأجل اضبط كود تشفير البيانات مجرد حيلة عشان يترسل النص مشفر و يرجع صحيح مع تغيير المحرر الى Msxml2.XMLHTTP.6.0 cang _lang_ar_en.accdb

تفضل التعديل 
 
IT_V1.rar

تفضل هذا التعديل
 
Microsoft Access قاعدة بيانات جديد (2).rar

في المعيار ضع التالي
[Forms]![paymentcuss]![CustomersID]

ضع في حدث عن الفتح للتقرير
If [Forms]![Table1]![Option6] = -1 Then Me.Image9.Visible = True Else Me.Image9.Visible = False End If  

تفضل اخي الكريم
بحث بالريكورد ست.accdb

تضبط مع تحديث الارتباط 
كما هو موضح 

 

 
 

اتفضل هذا التعديل
Dim reportName As String Dim fileName As String Dim criteria As String reportName = "اسم التقرير" criteria = "[Image No] = 1 " ' هنا الفلتر DoCmd.OpenReport reportName, acViewPreview, , criteria, "" DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo  

اخي الكريم ماهو المقصود بتقسيم الملفات الى مجلدات ؟؟
 
في حال تريد انشاء ملف بإسم محدد استخدم الكود التالي
Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim fldNewName As String fldNewName ="اسم المجلد" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldNewName If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If  
و لحفظ نسخة من ملف مجدد في مجلد محدد استخدم الكود التالي
فقط انسخ و الصق الكود بالكامل واضعه في حدث ازرار مع مراعاة تعديل ما يلزم 
================== انشاء مجلد =========================== Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim fldNewName As String fldNewName ="اسم المجلد" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldNewName ' هنا شرط في حال لم يجد المجلد في المسار اعلاه سيتم انشاء مجلد جديد If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If ================== تصفح الملفات لاختيار الصورة =========================== Dim Addfile As Object Dim xFile As String Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) Else Exit Sub End If End With ================== حفظ الصورة المختارة =========================== Dim MyFile, DstFile As String Dim Syso As Object Dim IDStudint As String IDStudint =[هنا حقل رقم هوية الطالب في النموذج] MyFile = xFile ' مسار الصورة المختارة من متصفح الملفات اعلاه DstFile = CurrentProject.Path & "\" & fldNewName & "\" & IDStudint & ".jpg" ' هنا مسار الصورة الجديد في المجلد الجديد DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing  
 

تفضل هذه المشاركة من قبلي اخي الكريم

Database1.accdb

اها اعتذر عن سوء الفهم
تفضل طلبك
ترقيم حسب الشهر.mdb

تفضل المثال
MyData.accdb

xlast = DMax("fatoraid", "tblfatora", "left(fatoraid, 2) = myfatoratype()") انت بتستدعي اكبر رقم في قاعدة البيانات 
و ثم تقوم بإضافة رقم +1 الى المجموع بعد تقسيم الرقم 
xnext = Val(Mid(xlast, 3, 5)) + 1  
و في الأخير بتضبط تنسيق الأرقام
Me.FatoraId = prtyr & Format(xnext, "00000")  
لكن يبقى موضوعك مبهم لم تذكر ما ذا تريد

تفضل  هذا الكود شامل الشرح اخي الكريم
On Error GoTo errorhandle Dim MyFilePath, MyRange, MyTablName As String 'MyFilePath = "مسار ملف الاكسل" MyRange = "نطاق الخلايا المراد استيرادها من ملف الاكسل" MyTablName = "اسم الجدول الذي سيتم تخزين البياناته به" '-------------------------------- '''''''' فتح مستعرض الملفات لإختيار الملف '''''''' Dim fpath As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls ; *.xlsx" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then MyFilePath = .SelectedItems(1) End If End With '-------------------------------- '''''''' استيراد ملف الاكسل حسب الشروط اعلاه '''''''' DoCmd.TransferSpreadsheet acImport, 10, MyTablName, FilePath, False, MyRange MsgBox "تم استيراد الملف بنجاح", vbMsgBoxRight + vbInformation, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit