jjafferr

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

وعليكم السلام 🙂 . . Like "*" & [Forms]![الاستعلام]![inspictor] & "*" . . جعفر

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

واذا عندك لوحة مفاتيح كبيرة ، فهذه ارقام ارقامها ، ويجب اضافتها للكود : Case 96 To 105 'numeric pad جعفر

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

اعتذر منك ، في مشاركتي السابقة ، لسبب ما ، لم يتم ارفاق الملف الكامل ، وقمت بإرفاقه هنا 🙂 يجب عليك ان تتعلم الاكسس الآن 🙂 1 و 2. انقر بالفارة اليمين على اسم النموذج او التقرير ، واختار وضع التصميم : . انقر على تسمية الحقل ، ثم من الاعدادات قم بتغيير اسمه ، ثم احفظ النموذج واغلقه . 3. يمكنك تغيير اسماء المخازن بالنقر المزدوج على الجدول tbl_Stores . اما عدد الصفحات ، فبالاضافة الى اختيارك من القائمة ، يمكنك ادخال ارقام جديدة ، والتي سوف يتم حفظها تلقائيا ، وستجدها في النماذج الاخرى بعد ادخال البيانات. جعفر 1311.2.Data.accdb.zip

تفضل 🙂

1. تم عمل اللازم في المرفق ، 2. مافهمت !! رجاء تخبرني بالتفصيل عن المشكلة ، فانا لا ارى ما تراه ، في اي نموذجك و اي زر و اي حقل. جعفر 1311.1.Data.accdb.zip

رجاء مراجعة هذا الرابط . ولا يوجد شيء اسمه ترميز عالمي ، كل اللي تحتاج لما تريد مناداة الشهر 2 من الاشهر العربية : Me.Moth_Hijri = DLookup("[Months_Hijri]", "tbl_Months", "[Months_Number]=" & 2) . وبما ان الاشهر موجودة في سجلات في جدول ، فبكل بساطة يمكنك ان تضيف حقل جديد لأسماء الاشهر العربية بالانجليزي ، ثم تستعملها للمربع السرد ComboBox ، وبدون اكواد. خليني اوضح لك نقطة انت محتار فيها ، والاكواد اعلاه تخليك تضيع اكثر : لا تكتب الكلمات العربية في الكود ، ولكن اكتبها في الجدول ، وناديها من الجدول ، وما بتصادف اي مشكلة 🙂 جعفر

سيدي الفاضل 🙂 البرنامج يفتح على هذا النموذج الرئيسي . 1. شاشة ادخال البيانات ، بحيث يتم حفظ البيانات تلقائيا لما تنتقل من سجل لآخر ، وبينات الحقول الصفراء في السجل سيتم تلقائيا اخذها من الحقول اعلاه ، ولما تفتح النموذج ، يكون بدون بيانات : . 2. البيانات اعلاه ، ويمكنك تعديلها/حذفها : . 3. ادخل رقم الصفحة اللي تريدها ، وسترى النتائج : . 4. ادخل التاريخين ونوع العدد (موجب ، سالب ، الجميع) ، وسترى النتائج (ولا اعرف اذا النتائج صحيحة ، فرجاء التجربة) : . 1311.Data.accdb.zip

سيدي الفاضل ، 5 نماذج فرعية !! انا اعطيك الجائزة الاولى لمثل هذا العمق في النماذج 🙂 ولكني ولسبب ما ، اعتقد بأنه بإمكانك عمل هذا بطريقة اسهل ، ولا اعرف كي 🙂 فككت لك الكود بطريقة مفهومة ، وقد يستفيد منها بقية الاعضاء لأمور مثل طلبك : Private Sub cmd_Colapse_Click() Me.subform.Form.SubdatasheetExpanded = False End Sub Private Sub cmd_Expand_Click() On Error GoTo err_cmd_Expand_Click Me.subform.Form.SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubAcc5.Form. _ SubdatasheetExpanded = True Exit_cmd_Expand_Click: Exit Sub err_cmd_Expand_Click: If Err.Number = 2455 Then Resume Exit_cmd_Expand_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وستحصل على الخطأ 2455 اذا لم يكن لديك نماذج فرعية كافية 😁 جعفر Database2.zip

هذه يحتاج لها شرح لوسمحت ، وبالتفصيل 🙂 جعفر

وعليكم السلام 🙂 كان ياما كان في قديم الزمان ، كان فيه نسخة الاكسس رقمها 2010 ، وعملوا فيها إضافة ، وهي عملها على الانترنت ، وعلشان يعملوا تنسيق للاكواد ، عملوا تعديلات على نظام الماكرو ، واصبح افضل واشمل 🙂 ولكنهم لاحقا اوقفوا هذه الخاصية. الماكرو اسهل ولا تحتاج معرفة في البرمجة ، ولكن في نظر معظم المبرمجين ، الكود افضل ، لسهولته ومرونته ومقدرته التعامل مع الملفات والبرامج الخارجية 🙂 جعفر

السلام عليكم 🙂 تعديل بسيط على كود اخوي حسنين: Private Sub cmd_Colapse_Click() Me.subform.Form.SubdatasheetExpanded = False End Sub Private Sub cmd_Expand_Click() Me.subform.Form.SubdatasheetExpanded = True End Sub جعفر

وعليكم السلام 🙂 نعم يمكن ، ولو بحثت في المنتدى لوجدت الكثير من هذه المواضيع 🙂 جعفر

للأسف لا يمكن معرفة الخطأ بدون ان تعرض لنا الجملة اللي كتبتها ، علشان نشوفها ونخبرك اين الخطأ !! على العموم ، هذا هو الكود الكامل: Dim mySQL As String mySQL = "INSERT INTO " & "[" & y & "]" mySQL = mySQL & " ( [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23],[24], [25]," mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50]," mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75]," mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100]," mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125]," mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], [Sign On Date] ) " mySQL = mySQL & " SELECT" mySQL = mySQL & " [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23], [24], [25]," mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50]," mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75]," mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100]," mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125]," mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], Date() AS SDate " mySQL = mySQL & " FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');" 'Debug.Print mySQL DoCmd.RunSQL mySQL جعفر

وعليكم السلام 🙂 للعلم ، هذا اللي انت كتبته يسمى جملة SQL ، والحد الاقصى لعدد الحروف لهذه الجملة هو 64,000 حرف ، سواء كتبتها في الكود او في الاستعلام 🙂 اما حل مشكلتك ، فيمكن ان تكون كالتالي: dim mySQL as string mySQL = "[Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22]," mySQL = mySQL & "[23], [24], [25], [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42]," mySQL = mySQL & "[43], [44], [45], [46], [47], [48], [49], [50], [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62]," mySQL = mySQL & "[63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75], [76], [77], [78], [79], [80], [81], [82], [83]," mySQL = mySQL & "[84], [85]" جملة mySQL ممكن ان تحتوي على بيانات بحجم حوالي 2 جيجا 🙂 جعفر

استاذ خالد ، ياريت تعطي الضوء على هذه الجزئية "المستخدمين المتزامنين" لأنها مفهوم غير متعارف عليه 🙂 جعفر

طيب ، علشان جوابي يكون مميز ، ممكن برنامجك يشتغل بهذه الطريقة 🙂 لأنك اعلنت في راس الكود عن Dim FindAsType As String فكفاية استعمال Public Function StrHighLight(ByVal strFieldName As String) As String وبالتالي مناداتها تكون Me.txtxname.ControlSource = StrHighLight("xname") جعفر

اخوي @أبو إبراهيم الغامدي صرنا فوق النخل من كثر ما دلعنا اباجودي 🙂 اخوي اباجودي ، شكرا لجميل كلماتك 🙂 جعفر

في الواقع المشكلة كانت اني ابحث عن متغير (نفس الشيء كان مع اخوي ابوابراهيم) ، بينما المطلوب كان كتابة الاسم ، وهذا هو الفرق بين : واللي ساعدني على الحل هو طباعة المتغير ، ورؤيته كما يراه الكمبيوتر ، والتعديل عليه حسب الحاجة ، بهذه الطريقة: myStr = "=IIf([" & strFieldName & "] Is Null, '', " & "Replace([" & strFieldName & "], '" & FindAsType & "', '" & strTagStart & FindAsType & strTagEnd & "'))" 'Debug.Print myStr جعفر

وعليكم السلام 🙂 هذا معناه ان البرنامج الذي يغمل الباركود عندك كان للتجربة ، وانتهت فترة التجربة ، ويجب شرائه الان !! هنا حوار عن هذا الموضوع: بينما الطريقة التالية لا تنتهي صلاحيتها 🙂 جعفر

وهذه تجربتي Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String Dim myStr As String myStr = "=IIf([xname] Is Null, '', " & "Replace([" & strFieldName & "], '" & FindAsType & "', '" & strTagStart & FindAsType & strTagEnd & "'))" 'Debug.Print myStr StrHighLight = myStr End Function ونناديها Me.txtxname.ControlSource = StrHighLight("xname", FindAsType) جعفر وتعديل نهائي Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String Dim myStr As String myStr = "=IIf([" & strFieldName & "] Is Null, '', " & "Replace([" & strFieldName & "], '" & FindAsType & "', '" & strTagStart & FindAsType & strTagEnd & "'))" 'Debug.Print myStr StrHighLight = myStr End Function جعفر

كل مرة ارى كلمة "بخادم OLE او عنصر تحكم ActiveX" ، فالمشكلة تكون ان البرنامج تم عمله بلغة Unicode ، ولم تقم بإختيار اللغة الصحيحة في كمبيوترك !! والحل بعمل الخطوات مثل هذا الرابط: مشكلة عند فتح البرنامج على ويندوز 8 - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

سيدي الفاضل ، قلت لك ، واكرر اقول مادمت في اول الطريق في هذا الاتجاه ، فقلتها وأقول لك نصيحة من واحد ابيضّت لحيته في طريق الاكسس : اكتب الرسالة اللي تريدها بالعربي في الجدول ، ثم نادها عن طريقة رقم الرسالة عن طريق الامر Dlookup وانا وضعت لك رابط امثلة استعماله 🙂 طيب و جُزافاً ، هذه الرسالة وعرفت تعملها (او وجدتها في مكان ونسختها) ، فكيف ممكن تعمل بقية رسالئك؟ وللعلم ، فالامر Chr خطأ استعماله للغة العربية ، لأن حدوده 255 ، بينما الصح استعمال ChrW 🙂 وردا على سؤالك : 1. فلما تكتب امر msgbox ، فتلقائيا تأتيك مساعدة الاكسس بإخبارك عن بقية المتغيرات المطلوبة لتكملة الامر ، هكذا: 2. ويمكن استعمال المثال الموجود في مساعد اكسس (انا استعمله دائما ، واحذف الاسطر التي لا اريدها) ، والحصول على بقية الخيارات منه 🙂 . جعفر