كل الانشطه

عليكم السلام تفضل اخي الكريم هذه التقارير جاهزة من تصميم الاستاذ جعفر اشكال للتقارير.mdb

تفضل استاذ @2saad محاولتي حسب ما فهمت اليك المرفق بعد اضافة طلبك . ووافني بالرد . mas-1.rar

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

شكرا استاذي الفاضل علي تعبك معي والله يجزيك خيرا أنا مرسل ملف لحضرتك اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته عندي جدول به بيانات الطلبة ---- عملت عليه نموذج به جميع البيانات عن طريق الاسم يجلب جميع البيانات عن طريق قائمة منسدلة وعملت 3 تقارير عايز 3 أكواد ل3 تقرير للطباعة بحيث لما اختار من القائمة المنسدلة بالنموذج الاسم اضغط علي الكود الأول يطبق التقرير الأول الخاص بالاسم اضغط علي الكود الثاني يطبق التقرير الثاني الخاص بالاسم اضغط علي الكودالثالث يطبق التقرير الثالث الخاص بالاسمmas.rar أكرر اسفي لحضرتك mas.rar

تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق بعد التعديل . ووافني بالرد . ReportList.rar

وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim A As Range For Each A In Range("M3:P28") If Not IsError(A) Then Application.ScreenUpdating = False Application.EnableEvents = False If A.Interior.ColorIndex <> xlNone Then A.Offset(0, -9).Interior _ .ColorIndex = A.Interior.ColorIndex Else A.Offset(0, -9).Interior.ColorIndex = xlNone End If End If Next A Application.ScreenUpdating = True Application.EnableEvents = True End Sub Book1 V2.xlsb

أنظر هنا أستاذ @عبد الله قدور 🙂

Show_files=f_path

شكرا جزيلا لحضرتك وبارك الله فيك وزادك الله من علمه عند فتح النموذج لملف حضرتك تظهر الرسالة

con.Open(); SqlCommand cmd = new SqlCommand(); cmd.Connection con; cmd.CommandType = CommandType.Text; cmd.CommandText = "SELECT PlaceName, PlaceId FROM Place"; ** dataAdapter = new SqlDataAdapter(cmd); dataSet = new DataSet(); dataAdapter.Fill(dataSet, "cmb_Place"); // for each row in the table, fill the list dataTable = dataSet.Tables["cmb_Place"]; /// test cmb_Place.DataSource - dataTable; cmb Place.ValueMember "PlaceId"; cmb_Place.DisplayMember = "PlaceName"; con.Close(); }

السلام عليكم مرق مثال فى السابق قد تم السؤال عن كيفية عمل ترقيم متسلسل (لرقم التوريد) وقد تم عمله بمساعدة بعض خبراء المنتدى والان لتكملة الموضوع المطلوب هو : عند ادخال صنف موجود مسبقا تظهر رسالة بان الصنف موجود والحمد لله قد تم عمله بعد ظهور الرسالة اريد ان يتم الحاق الصنف الموجود مسبقا بجميع بياناته الى سجل جديد وان يكون سجل التاريخ فارغا حتى يتمكن المستخدم من ادخال تاريخ جديد له بمعنى عند اضافة صنف موجود مسبقا ان يكرر هذا الصنف مع جميع بياناته الى الجدول وان يكون ظاهرا على النموذج حتى ندخل تاريخ توريد جديد له جزاكم الله خيرا التوريد.accdb

سؤالى فقط جواب بنعم او لا هل الملف الذي رفعته لك يعمل ام لا بدون اي تغييرات في المعادله ؟

اخوانى واحبائى ارجوا المساعدة فى الملف المرفق حيث يوجد جدولين متساوين فى عدد الصفوف والعمدان ارجوا عند تلوين خلية فى الجدول الثانى يتلون نفس الخلية فى الجدول الاول Book1.xlsx

kkhalifa1960 يعنى 32 دى تقصد بيها الويندوز نفسه ولا الاوفيس

سأشرح لك المشكلة بالتفصيل تقوم اساس المشكلة باختيار سعر الصرف من جدول اسعار الصرف يقوم المستخدم للبرنامج بادخال سعر الصرف في حال تغييره كما في الصورة التالية الان عند اعداد اي تقرير مالي يجب تقييم العمليات على اساس سعر الصرف حسب تاريخ العملية مثال عندنا عملية دفع بتاريخ 1-4-2024 يجب على البرنامج اعتماد سعر الصرف 32.60 عملية دفع جديدة بتاريخ 2-4-2024 يجب ان يعتمد البرنامج على سعر الصرف 32.6 (لان تاريخ العملية ليس له تعديل في جدول اسعار الصرف ، فالمنطق يقول ان سعر الصرف بقي كما هو في اليوم السابق ) الان نحن نستمر في استخدام سعر صرف 32.6 الى تاريخ 6-4-2024 بتاريخ 7-4-2024 نبدأ باستخدام سعر صرف 32.1 حتى تاريخ 24-4-2024 بتاريخ 25-4-2024 نبدأ باستخدام سعر صرف 32.4 حتى تاريخ 30-4-2024 المشكلة الان عندما اقوم بوضع تاريخ العملية في متغير من نوع date يعتمد تنسيق التاريخ شهر يوم سنة ولا استطيع مقارنة التاريخ مع الجدول باستخدام الدالة dlast بسبب ان التواريخ عندي يوم شهر سنة والتاريخ المعتمد في المتغير date هو شهر يوم سنة الان هل يمكن جعل المتغير من نوع date يعتمد تنسيق يوم شهر سنة طبعا تغيير التنسيق باستخدام format لم احصل على نتيجة ولا باستخدام cdate ولا dateserial ولا datevalue

أعني قاعدة 2003 32 بت تفتح حتي 2021 32 بت وتفتح حتي 2021 64 بت (لكن بعض الوحدات يتطلب تحويلها لتعمل على 64 بت) . هذا حسب تجربتي الشخصية .

kkhalifa1960 لم افهم ماتقصد؟؟

المهم من الأقل تفتح على الأعلي ماصار معي مشاكل ولكن العكس فلم تفتح أصلا .

استاذ @عبد الله قدور اليك محاولتي الثانية بالمرفق التالي . Date Public Function.rar

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

استاذ @عبد الله قدور ممكن مرفق.

للاسف عند استخراج النتيجة يبقى التاريخ mm/dd/yyyy

استاذ @عبد الله قدور اليك محاولتي . Option Compare Database Option Explicit Dim Date1 As Date Dim xx xx = Format([Date1], "dd/mm/yyyy")

تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق . ووافني بالرد . ReportList.rar

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