-
Posts
2258 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
62
نوع المحتوي
التقويم
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو kkhalifa1960
-
تفضل التصحيح وجربته ويعمل تمام . DDFinding Differences-FINAL_6.rar
-
تفضل استاذ @RAIANESAMI . اليك المرفق والشرح بعد اضافة طلبك . تم اضافة الحقل (FileNO) رقم العملية وهو يعد العمليات لكل موظف بدون تدخل منك. جرب بالرد . DDFinding Differences-FINAL_5.rar
-
تفضل استاذ @RAIANESAMI طالع الشرح السابق . اليك المرفق بعد اضافة طلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL_4.rar
-
تفضل استاذ @RAIANESAMI . اليك المرفق بعد اضافة طلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL_3.rar
-
اذهب هنـــــــا وسجل فهو مجاني واسألهم كما شئت .بتحصل اجابات ستعجبك لأني سألتهم سؤالك فحصلت عدة طرق انت اسألهم وكمل معاهم .
- 1 reply
-
- 1
-
-
تعديل على طريقة ظهور الباركود في النموذج
kkhalifa1960 replied to محمد التميمي's topic in قسم الأكسيس Access
استاذ @عاشق_الرقي مافي مشكلة لكن بمشاركة جديدة . -
جلب او اضافة بيانات من اكسل الى جدول اكسس
kkhalifa1960 replied to محمد التميمي's topic in قسم الأكسيس Access
تفضل استاذ @محمد التميمي ملفك بعد التعديل بطلبك . من اكسل لأكسس.rar -
ياخي الفاضل زر تمت الاجابة على أخر مشاركة لي وليست على ردك الاخير !!!!!!!!!!!!!!!!!
-
استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . واذ كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك DDFinding Differences-FINAL.rar
-
استاذ @RAIANESAMI . اليك المرفق بعد التعديل بطلبك . جرب ووافني بالرد . DDFinding Differences-Last-112.rar
-
استاذ @RAIANESAMI ممكن تشرح طلبك على المرفق . اليك المرفق . DDFinding Differences-Last-111.rar
-
مشكلة في حجم ملف الـ Database الحد الاقصى للمساحة
kkhalifa1960 replied to pingo22's topic in قسم الأكسيس Access
نقل الصور من حقل 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 -
تفضل استاذ @Osama Mohammad طلبك حسب مافهمت . برنامج مخازن جديد 19-5.rar
-
بعد اذن استاذ @jjafferr تفضل استاذ @jo_2010 حسب مافهمت . تم اضافة جدول (Tbl_Logos) واضافة صورتان بالفولدر (0_YOUSSEF) وعمل استعلام (Qry_Logos) يأتي بمسار الصور من الفولدر .ثم بالحقل الجديد (LogoPath) يأتي بمسار الصورة حسب الحقل (External_lab) . تفضل المرفق . ووافني بالرد . JO_Lab-1.rar
-
ممكن ترسل مرفق علشان نساعدك .
-
كيف يمكن فتح النموذج المنبثق في الأعلى دائماً ؟
kkhalifa1960 replied to sm44ms's topic in قسم الأكسيس Access
-
بعد التمعن بكلامك ايش المطلوب بالضبط ياريت لاتبخل بالشرح .
-
كيف يمكن فتح النموذج المنبثق في الأعلى دائماً ؟
kkhalifa1960 replied to sm44ms's topic in قسم الأكسيس Access
من وجهة نظري بعدما جربت محاولات كثيرة لنفسي أولاً ومنها حلول استاذي ومعلمي استاذ @jjafferr مايصير طلبك إلا من خلال زر من نموذج أخر مثلما سويت بأول المشاركة. لكن ممكن بجوار بعض اذا مساحة الشاشة تسمح بذلك . وممكن تتحكم في ارساء كل منهم بالكود بالفورم (FINISHED CAED TEMPLATE) تفضل الشرح والمرفق . ووافني بالرد. DDOpen2Forms-1.rar -
ابشر لكن عطني وقت لأني على موعد اليوم .
-
كيف يمكن فتح النموذج المنبثق في الأعلى دائماً ؟
kkhalifa1960 replied to sm44ms's topic in قسم الأكسيس Access
-
تفضل استاذ @ahmed_204079 طلبك حسب مافهمت كل المدرسين بجدول واحد ثم بالاستعلامين والنماذج بتحصل طلبك . DDelegation.rar
-
اعتقدنفس هذا DD-JO_2010-1.rar
-
-
-
مصدر بيانات التقرير هو نفس مصدر بيانات الفورم الفرعي .