كل الانشطه

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

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

السلام عليكم ورحمة الله وبركاته عندما اقوم بوضع تاريخ في متغير public من نوع تاريخ يتم اعتماده بالتنسيق الامريكي شهر يوم سنة فإذا كان التاريخ غير صحيح يعتمده يوم شهر سنة هنا نقع في مشكلة انه احيانا يأخذ التاريخ صحيح واحيانا لا فما الحل حتى نستطيع جعل الاكسس يعتمد نظام التاريخ يوم شهر سنة في كل الحالات

السلام عليكم ورحمة الله وبركاته من الملاحظ أن المعادلة التي قدمها أخي الحبيب @حسونة حسين معادلة صفيف، لكن الأخ السائل حاول تعديلها دون الضغط على Ctrl+Shift+Enter وكما هو مبين في هذه الصورة تقبلوا تحياتي العطرة والسلام عليكم

هل الملف الذي رفعته لك يعمل ام لا بدون اي تغييرات

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

السلام عليكم اخ @محمد هشام. بارك الله بجهدك الفورم الاول لا يعطي ما هو موجود في الغرفة مثال الغرفة 1 يعطي مادة 1 1 مادة 3 1 في خانة او عمود الرصيد و هكذا لكن الفورم الثاني ليس كما هو مطلوب المطلوب في form3 ان اختار المادة من الخلية g5 بكود يحدد اسماء الغرف المتواجدة و عددها في كل غرفة مرفق مثال كما في الصورة

وعليكم السلام ورحمة الله تعالى وبركاته Sub CopyData() Dim srcWS As Variant, _ WS As Worksheet, _ r As Range, _ OneRng As Range, rCrit As String Set srcWS = Sheets("Data") Set WS = Sheets("FORM2"): rCrit = WS.[G5] Const iCnt As String = "=IFERROR(@NombreToArabe(E9),"""")" Set r = srcWS.Range("A4:AH4").Find(rCrit) Cpt = Array(2, 3, 4, 33) With Application .Calculation = xlCalculationManual .ScreenUpdating = False If IsEmpty(WS.[G5].Value) Then: Exit Sub rw = srcWS.Cells(srcWS.Rows.Count, "B").End(xlUp).Row If Not r Is Nothing Then With srcWS Set OneRng = .Range(.Cells(5, r.Column), .Cells(rw, r.Column)) If WorksheetFunction.CountA(OneRng) = 0 Then: _ MsgBox "لا تتوفر نتائج على" & " : " & rCrit, vbInformation: Exit Sub End With WS.Range("A9:F" & WS.Rows.Count).ClearContents a = srcWS.Range("A5:AH" & srcWS.[A65000].End(xlUp).Row) For i = 1 To UBound(a) If a(i, r.Column) <> "" Then WS.Cells(F + 9, 2).Resize(, 4) _ = Application.IfError(Application.Index(a, i, Cpt), "") F = F + 1 End If Next With WS lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row With WS.Range("F9:F" & lastRow) .Formula = [iCnt]: .Value = .Value With WS.Range("A9:A" & lastRow) .Value = Evaluate("ROW(" & .Address & ")-8") End With End With End With End If .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub تمت اظافته للملف المرفق بالتوفيق ....... DATA V2.xlsb

أوفيس 365 32بت .. يعمل بشكل صحيح

Up

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