رمهان

ممكن تواجدها هنا http://arabteam2000-forum.com/ والله اعلم

سؤال مش يشغل البطيخة وبس ؟ بيحفرها حفر ..

دائما استقساراتك اخ مستر ستيف سهلة ممتنعة الحقيقه وبعد اجمل التحايا لك وللاستاذ جعفر جربت الكود اعلاه ولم احصل على خطأ ! واسمحولي لو جربت انقاص 1 من الدوران وليصبح السطر كالتالي For i = 1 To rc - 1 كما ان لي طلب اخي مستر ستيف : مالهدف من طباعة السجلات سجل سجل ! صدقني بالتقارير ستحصل على ماتريد بالتمام ؟ وهات الهدف الاساسي لعمله بالتقارير !! تحياتي

سطر الذهاب للسجل السابق سيكون بهذا الشكل DoCmd.GoToRecord , , acGoTo, a - 1 بالتوفيق

عدل قيمة ال a الى a = CurrentRecord بالتوفيق

اعتقد لا يوجد قسم بمنتديات اوفيسنا مختص بطلبك اختنا الفاضلة وبالتحديد الفيجول استديو 2008 بالتوفيق

العفو

حاولت اجيب فكرة افضل كعادتي وفشلت !!

ممكن نشارككم استاذ عبدالفتاح وبكود مختصر من وجهة نظري قبل التحديث افضل وعدم تصفير العنصر لكي لا يتم الادخال من جديد Private Sub CHqawmy_BeforeUpdate(Cancel As Integer) If Len(CHqawmy) <> 14 Then Cancel = MsgBox("الرقم غير صحيح") End Sub

حياك الله اخي صالح وصدقني انت تستاهل كل خير فانت من الاعضاء الذي بفيد قبل ان يستفيد ! تحياتي

عند فتح الماكرو >> انظر اعلى في الشريط واختر "اظهار كل الاحداث" لكي تظهر جميع اوامر الماكرو هذا ن احسنت الترجمة !

ImportExportSpreadsheet https://www.google.com.sa/search?safe=active&biw=1280&bih=649&q=المتغيرات+واسناد+القيم+فيجول+بيسك&oq=المتغيرات+واسناد+القيم+فيجول+بيسك&gs_l=serp.3...4398.21456.0.21738.36.33.0.3.3.0.397.5373.0j5j16j1.22.0....0...1c.1.64.serp..11.16.3370...0j0i10i1i67j0i10i1j0i3j0i131j0i67j0i22i30j30i10j33i21.OnG0o7X2fd8

هي موجودة من 2003 ! وماقبل لا اعلم تحياتي

عزيزي لاحظت اخيرا في ملفك وفي السطر DoCmd.TransferSpreadsheet zaImportAllSheets العبارة zaImportAllSheets ولا اعلم من اين اتيت بها ! القيم محدد هنا acimport , acexport,aclink فيمكنك كتابة الامر DoCmd.TransferSpreadsheet ثم مسافة ستحصل على الخيارات المتاحة ويمكنك تركها فارغه لخيار الاستيراد كما في طلبك وهو الخيار الافتراضي تحياتي

المتغير xl نوعه كائن وسيعرفه الاكسس ضمنيا لان القيمة له هي كائن ولكي تسند قيمة لمتغير نوعه كائن او سيحمل قيمة من نوع كائن لابد من استخدام كلمة set معناته اصلا ممكن نقول او المستحب dim xl as object هذا استخدمت طريقة additem لمربع السرد وفائدتها اضافة قيم للسرد والقيم هنا اصبحت ناتج الدوران على شيتات الملف واخذ اسم الشيت في كل دورة بالتوفيق

تفضل مع ملاحظة تغيير اسم السرد الى sheets لان name كلمة محجوزه بالتوفيق استيراد.rar

اذهب لخصائص لسرد وعند خاصية مصدر الصف انقر النقاط الثلاث ليفتح لك الاستعلام وعند خانة المعيار للحقل id اكتب 0<> بالتوفيق

خلني اوضح ايش الهرجه اصلا اعتقد النسخة لديك عربي فالاكسس يفهم عربي اكثر لذلك للاشارة للتفصيل لديل تكتب me.تفصيل انا لدي انجليزي فيفهم الانجليزي لذلك اكتب me.detail ولتلاشي فهم اللغة نضع التعامل بالفهرس . 0 للتفصيل 1 للهيدر 2 لفووتر ويمكن كذلك اتعامل باسم الثابت acdetail وللمزيد https://msdn.microsoft.com/en-us/library/office/ff835642.aspx واعتقد على ما اذكر ان هناك مشاركة للاستاذ جعفر حول هذا ولكن لم ابحث عنها تحياتي

الاخت الفاضله المنتدى ملئ بامثله مشابهه لطلبك فهل جربتي البحث ؟ مثلا درجات طلاب مدرسة

استبدل detail ب section(0) عذرا اخ صالح اكتب من الموبايل

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

فكره اخ صالح واعتقد يمكن توظيفها لحاجات اخرى ويمكن اختصارها Me.Detail.BackColor = Second(Now()) * 15

هنا لابد من الضغط على الزر في كل مرة ادخال سجل بل ماذا لو : 1. خروج مفاجئ من النموذج 2. الانتقال لسجل جديد وبنسيان الضغط على الزر 3. لو كان شكل النموذج ورقة بيانات وليس نموذج عادي للادخال بشكل سريع كما هو معتاد في البرامج لادخال تفاصيل الفاتورة 4. لو تم الدخول على الجدول بفتحه ثم التعديل على الاجمالي او التعديل على الكمية او السعر فان البيانات لم تعد دقيقة 5. وجوب الضغط على الزر عند التعديل في الكمية او السعر بالتوفيق

العفو ياباشا !!