kkhalifa1960

تفضل استاذ @الميزار طلبك بعد التعديل . ووافني بالرد . Miraz-1.rar

بعد اذن استاذي @ابوخليل تفضل استاذ @الميزار طلبك حسب مافهمت . لكن انا زودت فولدر بجوار القاعدة (MyBooks) للناتج بعد التصدير . افتح الملف بتحصل كل طالب بورقة منفصلة اليك المرفق . ووافني بالرد . Miraz.rar

اخي الفاضل استاذ @منير ربيع هنا منتدى الاكسس فهل انت تريد منتدى الاكسل من هنــــــــــــــــا . أم تحويل مشروعك لأكسس .

مشاركة مع زملائي واحبتي تفضل استاذ @عاشق_الرقي محاولتي حسب مافهمت . نموذج تغيير الشعارات (frm_Logos) وكيفية استدعائهم بالنموذج (frm_Office_Data) والتقرير (Rpt_OfficeData). تفضل المرفق واذا حابب أي شئ زيادة انا حاضر . DDCompanyLogos.rar

تفضل اساذ @medolovekiri محاولة أخرى كما في الصورة أعلاه حسب ما فهمت مطبقاً على مرفق من عندي . اليك الشرح والمرفق .ووافني بالرد . DDMedoLoveKiri-2.rar

تفضل اساذ @medolovekiri محاولتي حسب ما فهمت مطبقاً على مرفق من عندي . اليك الشرح والمرفق . اما غير ذلك فلابد ارسال ماعندك من جداول ونماذج لنساعدك أكثر . DDMedoLoveKiri.rar

جزاكم الله كل الخير .

مشاركة بنفس ماتقدم به استاذنا @ابو جودي . بعد اذنه طبعاً NavigateForm (V2.1)-1.rar

جعلها الله في ميزان حسناتكم وجزاكم الله عنا كل الخير .

أولاً :- تمنياتي لأستاذنا ابوجودي الشفاء العاجل باذن الله . ثانياً :- 📌 هذا مرجع دوال VBA المتوافقة مع النواتين (32 بت و64 بت) هذا المرجع يحتوي على جميع الدوال الشائعة التي يمكن استخدامها في VBA داخل Access، مع دعم للنواتين 32 بت و64 بت باستخدام #If VBA7 Then. 🔹 1- دوال استدعاء Windows API #If VBA7 Then Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As Long, lParam As Any) As Long #Else Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long #End If SendMessage – إرسال رسائل للنوافذ داخل النظام. PostMessage – إرسال رسائل غير متزامنة. FindWindow – العثور على نافذة بناءً على عنوانها. ShowWindow – التحكم في عرض أو إخفاء النافذة. GetSystemMetrics – الحصول على معلومات حول إعدادات النظام. 🔹 2- دوال التعامل مع الملفات #If VBA7 Then Public Declare PtrSafe Function CopyFile Lib "kernel32" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #Else Public Declare Function CopyFile Lib "kernel32" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #End If CopyFile – نسخ ملف من موقع إلى آخر. DeleteFile – حذف ملف معين. FindFirstFile – البحث عن أول ملف يتطابق مع نمط معين. FindNextFile – البحث عن الملفات التالية بنفس النمط. 🔹 3- دوال النظام (System Functions) #If VBA7 Then Public Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long #Else Public Declare Function GetTickCount Lib "kernel32" () As Long #End If GetTickCount – الحصول على عدد الثواني منذ تشغيل النظام. GetWindowsDirectory – استرجاع مسار مجلد Windows. GetSystemMetrics – استرجاع بيانات عن إعدادات النظام. 🔹 4- دوال إضافية مفيدة #If VBA7 Then Public Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As Any) As Long #Else Public Declare Function GetCursorPos Lib "user32" (lpPoint As Any) As Long #End If GetCursorPos – الحصول على موقع مؤشر الفأرة. SetCursorPos – تعيين موقع جديد لمؤشر الفأرة. GetActiveWindow – استرجاع النافذة النشطة حاليًا. GetDesktopWindow – استرجاع نافذة سطح المكتب الرئيسية.

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

تفضل التقرير حسب ماطلبت مع العلم هذا أخر مالديا بالنسبة للجداول لأني ما أقدر أعيد برمجة البرنامج ككل . تمنياتي لك بالتوفيق . DDFinding Differences-FINAL_8.rar

تم اضافة جدول جديد (tbl_EmpInfo) جدول معلومات الموظفين الجدد وعمل نموذج لإدخال المعلومات . وذلك لعدم المساس بالجدولين (T1) و(T2) . لأنهم جداول العمليات وداخلين بالبرمجة . وتفضل الشرح والمرفق . DDFinding Differences-FINAL_7.rar تصبح على خير وباكر انشاء الله نكمل اذا كان في طلب جديد .

تفضل التصحيح وجربته ويعمل تمام . DDFinding Differences-FINAL_6.rar

تفضل استاذ @RAIANESAMI . اليك المرفق والشرح بعد اضافة طلبك . تم اضافة الحقل (FileNO) رقم العملية وهو يعد العمليات لكل موظف بدون تدخل منك. جرب بالرد . DDFinding Differences-FINAL_5.rar

تفضل استاذ @RAIANESAMI طالع الشرح السابق . اليك المرفق بعد اضافة طلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL_4.rar

تفضل استاذ @RAIANESAMI . اليك المرفق بعد اضافة طلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL_3.rar

اذهب هنـــــــا وسجل فهو مجاني واسألهم كما شئت .بتحصل اجابات ستعجبك لأني سألتهم سؤالك فحصلت عدة طرق انت اسألهم وكمل معاهم .

استاذ @عاشق_الرقي مافي مشكلة لكن بمشاركة جديدة .

تفضل استاذ @محمد التميمي ملفك بعد التعديل بطلبك . من اكسل لأكسس.rar

ياخي الفاضل زر تمت الاجابة على أخر مشاركة لي وليست على ردك الاخير !!!!!!!!!!!!!!!!!

استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL.rar

استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . DDFinding Differences-Last-112.rar

استاذ @RAIANESAMI ممكن تشرح طلبك على المرفق . اليك المرفق . DDFinding Differences-Last-111.rar

نقل الصور من حقل Attachment في Access إلى مجلد باستخدام VBA نعم، يمكنك نقل الصور من حقل Attachment في Access إلى مجلد مجاور للبرنامج باستخدام كود VBA. إليك كيفية القيام بذلك: كود VBA لنسخ الملفات المرفقة إلى مجلد كيفية استخدام الكود استبدل "اسم_جدولك" باسم الجدول الذي يحتوي على حقل المرفقات استبدل "اسم_حقل_المرفقات" باسم حقل Attachment في جدولك سيتم إنشاء مجلد يسمى "Attachments" بجوار ملف قاعدة البيانات إذا لم يكن موجوداً سيتم حفظ جميع الملفات المرفقة في هذا المجلد ملاحظات مهمة الكود يتعامل مع جميع أنواع الملفات المرفقة، ليس فقط الصور يتم إنشاء أسماء ملفات فريدة لتجنب الكتابة فوق الملفات الموجودة يتم تخطي الملفات المخفية مثل Thumbs.db تأكد من أن لديك أذونات الكتابة في المجلد الهدف يمكنك تعديل الكود حسب احتياجاتك الخاصة، مثل تصفية أنواع ملفات معينة (مثل .jpg, .png فقط) أو تنظيم الملفات في مجلدات فرعية. واليك الكود :- Sub ExportAttachmentsToFolder() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsAttach As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim strFilePath As String Dim strFileName As String Dim strFullPath As String Dim strFolderPath As String Dim i As Integer ' تحديد مسار المجلد الهدف (بجوار قاعدة البيانات) strFolderPath = CurrentProject.Path & "\Attachments\" ' إنشاء المجلد إذا لم يكن موجوداً If Dir(strFolderPath, vbDirectory) = "" Then MkDir strFolderPath End If ' فتح جدول أو استعلام يحتوي على حقل المرفقات Set db = CurrentDb() Set rs = db.OpenRecordset("اسم_جدولك") ' استبدل باسم الجدول الفعلي ' تحديد حقل المرفقات Set fldAttach = rs.Fields("اسم_حقل_المرفقات") ' استبدل باسم حقل المرفقات ' التكرار خلال السجلات Do Until rs.EOF ' فتح سجل المرفقات للسجل الحالي Set rsAttach = fldAttach.Value ' التكرار خلال المرفقات في السجل الحالي i = 0 Do Until rsAttach.EOF ' تجنب الملفات المخفية (مثل thumbs.db) If Not (rsAttach.Fields("FileName") Like "~*" Or _ rsAttach.Fields("FileName") = "Thumbs.db") Then ' إنشاء اسم فريد للملف لمنع التكرار strFileName = rsAttach.Fields("FileName") strFullPath = strFolderPath & strFileName ' التأكد من عدم وجود ملف بنفس الاسم While Dir(strFullPath) <> "" i = i + 1 strFullPath = strFolderPath & i & "_" & strFileName Wend ' حفظ المرفق إلى الملف rsAttach.Fields("FileData").SaveToFile strFullPath End If rsAttach.MoveNext Loop rsAttach.Close rs.MoveNext Loop ' تنظيف الذاكرة rs.Close Set rsAttach = Nothing Set fldAttach = Nothing Set rs = Nothing Set db = Nothing MsgBox "تم تصدير المرفقات بنجاح إلى: " & strFolderPath, vbInformation End Sub