محمد ايمن

للاسف لم اعمل سابقا مع التقويم الجهري ولا خبرة كافية لدي لهذا الموضوع 😅

طبعا ممكن

😅😅😅

تفضل ربط اكسل مع اكسس.rar

لا مشكلة لكن يبقى السؤال ماهي الحقول التي تريد عرضها في اليوزرفورم ؟ نحن لا نتكلم عن الترتيب نحن نتكلم عن الحقول مثل التاريخ و رقم الطلب الخ

استاذ ضاحي تحية طيبة ممكن الحصول على المثال كامل مع الاكواد ( الاضافة و التعديل و البحث و الحذف )

توضيح للمطلوب انت تريد عرض كل خمس سجلات مع بعض لكن ماهي الحقول الواجب اظهارها في التكست بوكس ؟؟

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

ارغب في انشاء تقرير لتظهر كما في الصورة 2 ( بعيدا عن بويفت تيبل )

اي مشكلة اخ موسى ؟

السلام عليكم ..الاصدقاء الاكارم تحية طيبة هل يوجد برنامج او اداة او طريقة لعمل تقارير في اكسل مثل التقارير الموجودة في اكسس ؟ البيانات لدي كما في الصورة 1 ارغب في انشاء تقرير لتظهر كما في الصورة 2 ( بعيدا عن بويفت تيبل )

تحية طيبة استاذ @omar elhosseini بداية اشكرك جزيل الشكر على مساعدتك لي اما بعد تاكدت و بشكل قطعي من سبب مشكلة تكرار فتح الملف و السبب عند فتح اي مصنف اكسل يتم اضافته الى مدير المهام و عند فتح الملف الثاني بمثيل جديد يتم تسجيل الاكسل مرة ثانية في مدير المهام ( على عكس طريقة فتح المصنفات بشكل افتراضي حيث يتم تسجيل الاكسل في مدير المهام لمرة واحدة فقط ) لاحظ الاختلاف بين الصورتين وبالتالي عندما نصل في الكود الى سطر فتح الاتصال سيبحث عن اول عملية لاكسل و سيجد ان الملف غير مفتوح ( علما انه مفتوح ولكن في عملية جديدة و هذا ما سيؤدي الى فتح الملف مرة ثانية لكن للقراءة فقط ) ولا اعتقد انه يوجد حل لهذه المشكلة الا اذا كان ado او dao يدعم جلب البيانات بدون فتح الملف !!!! سبب رغبتي في استخدام ado هو امكانية استخدام عبارات sql لفلترة البيانات بشكل اسرع دون الدوران في مصفوفة طويلة عريضة لاستخلاص البيانات المطلوبة ( نحن نتكلم عن ما يقارب 11000 صف ) المرفق الذي ارسلته لي ممتاز و لكن اعتقد انك اغفلت نقطة هامة و هي : بعد احتساب الرصيد المدور من نهاية الاسبوع السابق يجب ان يتم تسجيل قيم الفواتير و الدفعات كل في صف جديد بينما المرفق الذي ارسلته يقوم باحتساب الرصيد النهائي فقط !!! لاحظ الصور قمت ببعض التعديلات و حصلت على النتيجة المطلوبة و لكنني غير راضي بصراحة لااني مازات اجد الكود بطيئ بعض الشي ( على عكس استخدام sql ) 😅 وفي الختام اكرر شكري لك

برنامج ultraviewer هو برنامج يتيح الاتصال و التحكم بين جهازي كمبيوتر

ماهو اصدار الاكسل لديك استاذ عمر ؟ جربت كل الاصدارات من 2013 حتى 2021 وجربت كل المكاتب من الاصدار الثاني حتى 6.1 نفس المشكلة 😟

ارجو التوضيح اخي عمر ... هل اتبعت الخطوات و لم تحدث معك مشكلة

اخي عمر افتح اي مصنف اكسل ثم اضغط زر Alt + برنامج الاكسل نفسه ( ستظهر رسالة هل تريد بدء تشغيل مثيل جديد ل اكسل ) اختر نعم سيفتح برنامج الاكسل ( ملف - فتح ملف المثال ) ثم جرب الكود

تفضل المصنف2.xlsm

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

الاثنين معا أستاذ عمر اولا يتم الفلترة حسب الاسم ثم يتم احتساب الرصيد ( ما قبل الاسبوع الحالي ) ثم يتم اضافة فواتير الاسبوع الحالي ثم الاسم التالي و هكذا

اخ عمر المرفق ممتاز و لكن لا يلبي المطلوب يجب ان يتم استخراج كافة الاسماء وليس اسم محدد اذا رغبت ارسلت لك الكود الاصلي كاملا

الله و ايدك الفلترة تتم حسب الاسبوع و الاسم لكن الاسم يتغير دوما ( طبعا الاسم مخزن في متغير و لكن اختصرت الكود في المرفق ) اخ محمد هل جربت فتح المصنف في مثيل جديد ام قمت بفتحه بشكل عادي ( المشكلة لا تظهز اذا فتحت الملف بشكل عادي )

الاصدقاء الاكارم تحية طيبة الكود التالي يقوم بعملية فلترة البيانات و نسخها الى صفحة جديدة باستخدام ADO و RecordSet المشكلة : عند فتح ( اكثر ) من مصنف اكسل الكود يقوم بفتح المصنف مرة ثانية للقراءة فقط و الكود يصبح بطيئ جدا جدا كيف يمكن حل المشكلة Sub testado() On Error GoTo ErrSub Dim SDate As Date Dim ii As Integer SDate = Date - Weekday(Date) Dim connection As New ADODB.connection connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & _ ";Extended Properties=""Excel 12.0;HDR=Yes;"";" Dim query As String Dim rs As New ADODB.Recordset ii=8 query = "select * from [subrs$] where [الاسم]='محمود' and [التاريخ]>=" & CDbl(SDate) rs.Open query, connection Sheets("ملخص الارصدة").Select Do While Not rs.EOF Sheets("ملخص الارصدة").Range("B" & ii) = rs.Fields(0) Sheets("ملخص الارصدة").Range("C" & ii) = rs.Fields(1) Sheets("ملخص الارصدة").Range("D" & ii) = rs.Fields(2) Sheets("ملخص الارصدة").Range("E" & ii) = rs.Fields(3) Sheets("ملخص الارصدة").Range("F" & ii) = rs.Fields(4) rs.MoveNext ii = ii + 1 Loop rs.Close ErrSub: If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description End Sub خطوات ظهور المشكلة 1- افتح اي مصنف اكسل 2- افتح الملف المرفق في مثيل جديد لاكسل 3- جرب الكود المصنف2.xlsm

جزاك الله كل خير وهو المطلوب بعينه لو امكن ان تشرح الكود

ملاحظة : يجب ان يتم نسخ كافة الاعمدة حتى لو كانت مخفية اما الصفوف يتم نسخ الصفوف الظاهرة فقط