jjafferr

ارفق عملك لوسمحت

نعم :) 1. اعمل الحقل في الجدول ، وضبط صيغة التاريخ في خصائص الحقل (Format) مثل ما شفت سابقا ، 2. غير الاستعلام الى استعلام تحديث ، وحدّث هذا الحقل :) جعفر

وعليكم السلام اخي ماجد :) بالنسبة الى ازالة المساحات الزائدة ، فانا قمت بالرد عليك على هذا الرابط سابقا: /index.php/topic/292689-تعديل-في-تصميم-تقرير/?p=1395996 وبالنسبة للتفقيط ، فرجاء البحث في المنتدى ، فهناك الكثير من الامثلة عليه :) جعفر

افضل طريقة هي ان تحفظ النتائج في حقل في جدول ، و تضبط صيغة حقل التاريخ في خصائص الجدول (او في خصائص الاستعلام كما في الصورة اسفله) ، وعدم استخدام Format ، ولاحظ بأني اعطيتك طريقة اخرى لعمل التاريخ من النص :) والنتيجة طبعا لا تستطيع ^_^ فهذا ليس بحقل ، وانما نت…

اخي كريمو :) حاولت ان انظر في البرنامج ، ولكني وللأسف لم اتوصل الى شئ :( رجاء توضيح المطلوب ، وتوجيهي الى مكان المشكلة ، واقتراحك للحل :) واعطني كم وفير من الامثلة من البرنامج ، وكيف تريده ان يكون :) ، فالصورة التي ارفقتها في مشاركتك السابقة لم توجهني الى اي ا…

تفضل :) Format(CDate(Mid([Text_Value],2,4) & "/" & Mid([Text_Value],6,2) & "/" & Mid([Text_Value],8,2)),"yyyy/mm/dd") اذا لم ترغم الاكسس على صيغة معينة للتاريخ ، فانه يأخذ الصيغة المضبطة في الوندوز :) جعفر

نعم اعرف هذا الشئ :) لهذا لوسمحت ، استخدم برنامجك الاصلي الذي فيه المشكلة ، ثم اعمل الاستعلام اللي ارفقته لك ، وستظهر لك كل النتائج :) انا سأوضح لك السبب ، فقط عندما تجرب الاستعلام اعلاه على قاعدة بياناتك التي كان بها هذه المشكلة :) هذا اذا كنت لاتزال تريد تعر…

حياك الله :) الكود ممكن ان تخليه اي مكان تريد ، سواء في استعلام او في الكود او اي مكان :) ، ولكن وللاسف لا علم لي بـ vb.net :( Mid هو كود vb والمفروض انه يعمل على جميع لغات vb ، ولكني غير متأكد من الامر CDate جعفر

تفضل :) المعادلة لحقل التاريخ هي: CDate(Mid([Text_Value],2,4) & "/" & Mid([Text_Value],6,2) & "/" & Mid([Text_Value],8,2)) حيث Text_Value هو حقل النص الذي به قيمك الاصلية :) وعندما وضعت الكود في الاستعلام: والنتيجة: جعفر

وعليكم السلام شباب :) انا اصلا لا استعمل = Sum ([ABC]) واتضح انها (وعائلتها الكريمة مثل count ) تعمل مشاكل (في النماذج ، وليس في التقارير على ما اعتقد) بين اصدارات الاكسس المختلفة. انا اجمع في الكود ، والطريقة جدا بسيطة (بس تخلي بالك راح تفهمها :) ) ، على العم…

حياك الله اخوي :) للعلم ، السطور اللي تبدأ بـ Debug.Print هي سر ايجادي حل اسئلتك :) انا من البداية بحثت عن جميع اواومر Tree View ورتبتها في الكود عندك ، ومنها آخذ ما اشتهي :) علشان تشوف النتائج اللي تعطينا هذه الاسطر: 1. ادخل في الكود ، 2. View > Immediate win…

وعليكم السلام :) جرب عمل اللي في الصورة ، وبعدين سنتناقش ان شاء الله :) جعفر

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

تفضل :) ضع هذا الكود على حدث النقر على زر الخروج: Private Sub Command9_Click() If IsNull(Me.Frame0) Then MsgBox "Please select an item from Frame 0, thenyou can exit" Else DoCmd.Close End If End Sub جعفر

وعليكم السلام :) في اعتقادي ان نظام التشغيل عندكم الآن هو 64bits ، بينما ActiveX الموجود عندكم هو لنظام 32bits ، لذا تواجهون المشكلة ، فالحل هو ايجاد ActiveX لنظام 64bits وتسجيله. جعفر

تفضل :) ملاحظة الاخ a1d كانت صحيحة ، فغيرت نموذجك الى نموذج مستمر ، ثم وضعت النموذج الفرعي في ذيل النموذج الرئيسي :) ، والان عندما تختار اي سجل من النموذج الرئيسي ، ستجد نتائجه في النموذج الفرعي :) هذا شكل النموذج الجديد: وكود النموذج بالكامل اصبح: Option Comp…

تفضل يالسيد :) معادلتك الآن اصبحت: Private Sub TreeView0_NodeClick(ByVal Node As Object) On Error GoTo err_TreeView0_NodeClick lblItemCode.Caption = "" If Node.Key <> "Root" Then lblItemCode.Caption = Mid(Node.Key, InStr(Node.Key, "_") + 1) End If lblPath.Capt…

وعليكم السلام اخي كريمو :) في الوحدة النمطية fAdd_Observations ، غير السطر التالي: If Err.Number = 3021 Then الى If Err.Number = 3021 Or Err.Number = 3061 Then جعفر

بالضبط ، ولك +1 :) جعفر

تفضل :) 1. انا غيرت اسماء حقول البحث ، من نص1 وووو ، الى اسمائها الحقيقة فاصبحت هكذا مثلا: str_r ، 2. غيرت اسم النموذج الفرعي الى sfrm_Search ، 3. عملت حدث بعد التحديث على جميع حقول البحث ، بحيث انها جميعا تنادي الوحدة Check_Selected ، 4. في الكود Check_Select…