kanory

يتم تحويله عن طريق اكسس 2003 أو 2007 ؟

تابع المعالج حتى ينتهي .... هو يقوم بعملية تحويل الجدول الى ملف اكسل طبعا تجري هذه العملية مع كل جدول على حدا هل تريد التحويل لكل الجداول أ/ جدول محدد

تريدها يدوي أو كود يدويا : عن طريق معالج التصدير في اكسس أنظر الصورة ......

نعم الباس صحيح .... تفضل ملفك ... dewon1.rar

اخي الكريم الملف عليه باس ....... هل الملف يخصك ؟؟؟؟؟؟؟

انظر ...... exam 1.accdb

انظر المثال المرفق ......

ما الحكمة في تحديدها بالماكروا ............ لماذا الكود ... لا .... ؟؟؟؟؟

الحمد لله رب العالمين

تفضل ........ exam 1.mdb exam 2.mdb

تفضل ........ bbb.mdb

تقصد a5

هذه الرسالة مضمونها انك استخدمت ارقام غير موجوده أصلا في قاعدة بياناتك وخاصة رقم السجل الأول .....

انت لم تسجل البيانات بالطريقة الصحيحة ( سجل رقم السجل الأول ورقم السجل الأخير ) في مربع النص اتبع الخطوات الموجودة في الصورة

الملف يعمل لدي انظر ........ ماهو اصدار الاوفيس ... وهل هناك رسائل خطأ تظر عند تشغيل الملف

بعد اذن اصدقائي : ابو البشر وفارس .... تفضل هذا ..... abx.accdb

استاذي الفاضل رمهان ....... لا يستأذن المعلم من تلميذه . بارك الله فيك ...... طريقة جميلة جدا

ضع هذا الكود في حدث عند فتح النموذج عدل في الأرقام حسب ماتريد ....... 'عدل للارتفاع Me.Form.InsideHeight = 4150 'عدل للعرض Me.Form.InsideWidth = 9370

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

ببساطة انظر المرفق ......... Photo.rar

اخي الفاضل . الحقل الموجود في الجدول عندك بهذا الاسم PicFile٢ وليس PicFile اذا اردتها بهذا الاسم فغير الاسم الموجود في جدول البيانات واستخدم كودك السابق . تحياتي لك

اين المرفق ؟؟؟؟

استبدل الكود لديك بهذا الكود واعلمني بالنتيجة ...... On Error GoTo HandleErr On Error Resume Next Dim rs As Object If Not IsNull([PicFile2]) Then [imgPicture].Picture = [PicFile2] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile2] & "'." Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile2] & "'" Else MsgBox Err.Description, vbExclamation End If

ربما هذا يفيدك ويؤدي الغرض .......... listbox.accdb