kanory

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

نعم الباس صحيح .... تفضل ملفك ... 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

وعليكم السلام ...... لكن ماهو الهدف ( هل مجرد عرض أم اختيار من تلك البيانات ) ؟؟؟؟؟

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