jjafferr

نعم ، اعمل الجدول ، والنموذج على اساس الجدول ، والباقي سهل ان شاء الله. ولا ما عندي عمل ممكن ارفقه. الخطوة اعلاه هي اساس العمل كله، والباقي خطوات سهله 🙂 جعفر

سيدي الفاضل: بما انه عندك ربط بين جدولين في الاستعلام ، فعلشان تقدر تدخل بيانات في جميع الجداول ، رجاء عمل التغيير على "نوع السجلات" كما هو موضح في الصورة : . وعمل نفس الشئ في النموذج كذلك: . واخيرا ، وبما انه يجب عليك ادخال معلومات معينة في الجدول f2 ، فيجب ان تعمل الحقلين في المربع الاحمر ، وتدخل بياناتهم كذلك : جعفر

وعليكم السلام 🙂 تحصل على النتيجة التالية (لأني الوحيد اللي فاتح البرنامج، فلا ترى الا اسم كمبيوتري) : COMPUTER_NAME LOGIN_NAME CONNECTED SUSPECT_STATE myPC Admin True Null من الكود التالي: Function ShowUserRosterMultipleUsers_Jet_4() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection ' The user roster is exposed as a provider-specific schema rowset ' in the Jet 4.0 OLE DB provider. You have to use a GUID to ' reference the schema, as provider-specific schemas are not ' listed in ADO's type library for schema rowsets Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ , "{947bb102-5d43-11d1-bdbf-00c04fb92675}") 'Output the list of all users in the current database. Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _ "", rs.Fields(2).Name, rs.Fields(3).Name While Not rs.EOF Debug.Print rs.Fields(0), rs.Fields(1), _ rs.Fields(2), rs.Fields(3) rs.MoveNext Wend rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Function . طريقة العمل: اعمل جدول فيه حقل Computer_Name ، واسم المستخدم ، والكود اعلاه يعطيك Computer_Name المتصل بقاعدة البيانات الان ، فمن ذي وذاك ، تتوصل الى معرفة اسم المستخدم اللي فاتح قاعدة البيانات الان 🙂 جعفر

وعليكم السلام اخوي خليفة 🙂 . 1. انا عملت اللي فهمي من كلمة التبويب ، والان عند صاحب السؤال الطريقتين 🙂 2. بالنسبة لعمل الشرح عن طريق Gif ، فيمكنك اللعب بطول وعرض Recorder بسحبه من اطرافه ، حتى لا تحتاج الى سحب نموذج الاكسس الى نافذة التسجيل 😁 جعفر

السلام عليكم 🙂 اذا كنت تريد النتائج في تقرير ، ايش رايك بهذه الطريقة : . تقاصيل العمل هنا (بس لا يغرك الموضوع طويل ، ترى التعديل يتم على سطر واحد في الكود ، وبعض اعدادات الحقول في التقرير 🙂 ) : . جعفر 1606.المشاركات والوظائف السابقة.accdb.zip

وعليكم السلام 🙂 في وضع التصميم ، عند النقر على التبويب ، نلاحظ من اعدادات الكائن انه لا يوجد به اي شيء يشير الى اللون ، لهذا السبب لا يمكن تغيير لونه، ولكن ، من الاعدادات هناك امكانية تغيير صورة خلفيته . فعملت ملفين ، لون احمر وآخر رصاصي ، ووضعتهم في مجلد في نفس مسار البرنامج: . والنتيجة: هكذا سيكون النموذج: . وهذا الكود يقوم بعملية تبديل الوان التبويب: Private Sub Form_Load() Call TabCtl0_Click End Sub Private Sub TabCtl0_Click() Dim i As Integer Dim Pic_Path As String ' مسار مجلد الصور Pic_Path = Application.CurrentProject.Path & "\Forms_Tabs_Color_images\" ' التويب الذي تم النقر عليه يتم تغيير لونه الى ملف اللون الاحمر ' واما الباقية، فنغير لونها الى ملف اللون الرصاصي For i = 0 To Me.TabCtl0.Pages.Count - 1 If Me.TabCtl0.Value = i Then Me.TabCtl0.Pages.Item(i).Picture = Pic_Path & "Red.jpg" Else Me.TabCtl0.Pages.Item(i).Picture = Pic_Path & "Gray.jpg" End If Next i End Sub جعفر 1605.Form_Tabs_Color.zip

تفضل يا سيدي: مصدر بيانات النموذج (تستطيع حذف الاعمدة D_From و D_To) : . ونتيجة الاستعلام: . والنموذج اصبح: . جعفر نصيحة: عندك مشكلة في برنامجك ، فالافضل ان تستورد مائناته الى ملف جديد ، ثم عمل ضغط واصلاح عليه. Laboratory_2024.zip

هذا الكود يعمل للشهر الحالي والشهر السابق ، ولكني تذكرت بأن الشهر مكتوب عندك في حقل آخر ، لذا سنحتاج الى بيانات لتجربتها (عند شهر يناير (1) ، فنحتاج تصحيح الناتج) 🙂 مبدئيا جرب: A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()),[myMonth]-1,27)) And DateSerial(Year(Date()),[myMonth],26) حيث [myMonth] هو اسم حقل "كود الشهر". جعفر

وانتم في صحة وسلامة، والى الله اقرب 🙂

السلام عليكم 🙂 بالاضافة الى كود اخوي ابو جودي ، اليك طريقة اخرى ، استعلام فرعي، والمفروض يكون اسرع في التنفيذ. في استعلام مصدر بيانات نموذجك، اعمل حقل جديد، ولنسميه A2، ويحتوي على هذا الكود: A2: (Select Sum([m_price]) From Qry_UNION_MOKHTABER Where date_R between DateSerial(Year(Date()), Month(Date())-1,27)) And DateSerial(Year(Date()),Month(Date()),26) يعني يكون الاستعلام هكذا: جعفر

اذا ممكن ترفق لنا مرفق صغير، ثم صور من اللي تريده

السلام عليكم 🙂 علشان التقرير دائما يكون في نفس حجمه ، يجب استعمال الامر التالي عند فتح التقرير: Private Sub Report_Load() DoCmd.RunCommand acCmdZoom100 End Sub ومو لازم الرقم 100 ، فيمكنك استعمال اي من الارقام التالية: جعفر

السلام عليكم 🙂 الرابط التالي فيه ملف وبه نموذج يعطيك مقاييس مختلفة ، واعتقد بتحصل على ضالتك فيه 🙂 ومرفق الملف. http://www.peterssoftware.com/winmanip.htm جعفر winmanip.zip

السلام عليكم 🙂 صبحكم الله بالخير اخونا العود ابوخليل 🙂 اعطيك حلين لسؤالك: 1. ان ترى طريقة حل المشكلة من هنا: https://www.officena.net/ib/topic/107637-اجعل-برنامجك-يعمل-على-النواتين-32بت-و-64بت/ . 2. او ان تستعمل النسخة الاحدث من هذه الدالة ، والتى تقبل الحروف العربية في اسم الملف والمسار: جعفر

اما انا ، فاحتفظ باستعلاماتي الاولية ، لأنه اذا استعلام التوحيد اعطى نتائج نريد التاكد منها ، فارجع الى استعلاماتي الاساسية ، ومنها تكون الصورة واضحة 🙂 جعفر

السلام عليكم 🙂 المتعارف عليه ، استخدام استعلام التوحيد هكذا: . ولما يكونوا استعلامين ، وبنفس الحقول ، يكونوا هكذا : . ولما نجمعهم بنسخ جملة SQL للاستعلامين ، في استعلام توحيد ، نجد ان الاستعلام كما هو موضح في qry_123_456 ، والذي هو نسخ لجملة SQL الاستعلامين اعلاه ، وعليه ، فنحن لسنا بحاجة الى الاستعلامين qry_123 و qry_456 ، ويمكن حذفهما : . ولكن وبسبب ان كِلا الاستعلامين يحتوي على نفس عدد الحقول ، وبنفس الترتيب ، فيمكن اختصار استعلام التوحيد الى التالي ، وحينها لا تستطيع حذف الاستعلامين qry_123 و qry_456 . ونتائج استعلامي التوحيد في الاعلى: . جعفر 1603.Union_Query.accdb

@Foksh شكرا على التنبيه 🙂 على اي سطر تحصل على هذا الخطأ ؟

كبير يا عبداللطيف كبير ، وعلى راسي 🙂 سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂 . Private Sub Form_Error(DataErr As Integer, Response As Integer) 'MsgBox DataErr If DataErr = 3022 Then Response = acDataErrContinue MsgBox "هذا الاسم موجود سابقا" End If End Sub 1602.Data_Exists.accdb

وعليكم السلام 🙂 مثل ما يقول المثل: اشلك بالبحر وأهواله و رزق اللَّه على السيف 🙂 وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂 جعفر

وعليكم السلام اخوب محمد واهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، برجى قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف اما الرد على طلبك ، فهل هناك طريقة لتمييز السجل عن الآخر الذي به طريقة البيانات التي تريدها؟ بمعنى: هل هناك تسلسل معين في السجلات ، وانت دائما تريد السجل الاول والرابع ، وهل الفرز دائما يكون كما اوضحت في الصورة؟ وفي مثل طلبك ، ياريت ترفق بيانات من قاعدة بياناتك ، حتى تكون الصورة واضحة 100% وحينها لن يقصروا الشباب في الرد ان شاء الله 🙂 جعفر

نعم ، هي اول خطوة بالفعل لما اشوف الكلمة OLE :

وعليكم السلام مع ان الاكسس ياخذ التنسيق من الاعدادات الاقليمية للوندوز (مثل dd-mm-yyyy) ، الا انه داخلياً وكجزء من برمجته ، فهو يتعامل مع التاريخ بالطريقة الامريكية: mm-dd-yyyy ، ومن تجاربنا لا ننصح باستخدام CDate ونترك للاكسس اختيار اليوم من الشهر حسب الارقام 1-12 (حيث انه تمثل اليوم والشهر) ، فالطريقة الصحيحة هي استعمال الامر DateSerial حيث فيها تحدد السنه والشهر واليوم ، فلا يكون هناك مجال للاكسس ان يختار بين اليوم والشهر. واذا كان التاريخ عندك عبارة عن نص ، فيجب ان تستعمل كود يشبه التالي : استخراج تاريخ الميلاد من الرقم القومي =DateSerial(Mid([raqm_qomy];2;2);Mid([raqm_qomy];4;2);Mid([raqm_qomy];6;2)) انظر هنا لمناقشة شيقة عن التاريخ جعفر

وعليكم السلام 🙂 عمل خفيف وجميل ، شكرا جزيلا 🙂 جعفر

هناك كود لإسترجاعها، ولكن الاسهل استعمال البرامج الجاهزة 🙂 جعفر

الاكسس يحتفظ بالبيانات التي تم حذفها، الى ان يقوم المستخدم باستخدام "ضغط واصلاح" ، حينها يحذف الاكسس كل شيء ما عدا البيانات الموجودة ظاهرا امامنا، وكذلك بالنسبة الى كود VBA ، فانه يحتفظ ببعض الاكواد القديمة ، الى ان نعمل Decompile ثم Compile 🙂 جعفر