jjafferr

السلام عليكم 🙂 تعديل بسيط على كود اخوي حسنين: 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. ويمكن استعمال المثال الموجود في مساعد اكسس (انا استعمله دائما ، واحذف الاسطر التي لا اريدها) ، والحصول على بقية الخيارات منه 🙂 . جعفر

هذه هي الاخطاء اللي ستأتي للمستخدم اللي عندي نظام انجليزي ، اعمل ملف جديد ، واستورد الكائنات بالترتيب التالي: الجداول ، الاستعلامات ، الماكرو ، الوحدات النمطية ، النماذج ، التقارير ، وبعض الاوقات تضطر ان تستورد كائن كائن ، ولما يعطيك الاكسس خطأ ، فتقوم بمعالجة هذا الكائن ، ثم تستورد غيره 🙂 طريقة اخرى لتغيير كائنات الاكسس : تغيير مسميات كائنا اكسس دفعة واحدة - قسم الأكسيس Access - أوفيسنا (officena.net) هذه احد الطرق ، ولكن مافي داعي استعمالها ، لأنك ستضع في الجدول الجملة بالعربي ، وعلشان خاطرك عملتها لك ، وبدل Debug.Print استعمل msgbox : . ينطبق عليك قول الشاعر : جاءت معذبتي في غيهب الغسق : هذا برنامجك وانت سهران عليه ، وهو معذبك ، فجاوبتني و دمع العين يسبقها ، من يركب البحر لا يخشى من الغرق : هاي احنا الشباب نشجعك (بس دمع العين للدلع 🙂 ) جعفر

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

تفضل: A: iIf (Len(strFileNames & "") = 0;0;strFileNames) جعفر

السلام عليكم 🙂 من هذا الموضوع: اليك خلاصة طلبك : . والامر NZ معناه Null to Zero ، اي يحول حقل الـ Null وهو الحقل الذي لم يتم في ادخال اي معلومة ، وهو غير الحقل الذي تكون قد ادخلت فيه معلومة ثم حذفتها ، فالامر الاول يصيد هذه القيمة كذلك 🙂 جعفر

وعليكم السلام 🙂 انا رديت على سؤالك قبل ان تسأله انت (ونسيت اذكر الجدول المؤقت) : جعفر

وعليكم السلام 🙂 رجاء اعطاء تصور عن المطلوب ، فطرق العرض كثيرة 🙂 جعفر

وعليكم السلام 🙂 . . الآن نريد معرفة رقم الزر F5 : Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) MsgBox KeyCode End Sub . وعند فتح النموذج ، نضغط على الزر F5 ، فنحصل على رقمه : . الآن نعود الى الحدث اعلاه ، ونخبر الاكسس ما نريد عمله عند الضغط على الزر F5 (الذي رقمه 116) : حدث النقر على الزر الاحمر "الرسالة Private Sub cmd_F5_Click() MsgBox "السلام عليكم" End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 116 Then Call cmd_F5_Click '<---- ننادي الحدث اعلاه End If End Sub . والنتيجة . جعفر 1315.Press_F5.accdb.zip

وعليكم السلام 🙂 . . ثم في حدث عند تنسيق قسم التفصيل Detail من التقرير ، نضع هذا الكود الذي يخفي الحقل الفارغ ويجعل ارتفاعه = صفر اذا كان الحقل فارغ ، وإلا فيتركه كما هو : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Dim ctl As Control Dim txt As String Dim lbl As String For Each ctl In Me.Controls If ctl.ControlType = acComboBox Then txt = ctl.Name lbl = ctl.Name & "_تسمية" If Me(txt).Text = "" Then ctl.Visible = False ctl.Height = 0 Me(lbl).Visible = False Me(lbl).Height = 0 Else ctl.Visible = True ctl.Height = 0.2188 * 1440 Me(lbl).Visible = True Me(lbl).Height = 0.2188 * 1440 End If End If Next End Sub . والنتيجة . جعفر 1314.الجدولي اليومي.accdb.zip

على كمبيوتر المبرمج يمكنك كتابة التسمية بالعربي هو جزء من الكود ، فلا ينبغي كتابة اي حرف من اللغة العربية في الكود 1. اليك رابط آخر قد يفيدك: اعمل برنامجك بعدة لغات وببساطة - قسم الأكسيس Access - أوفيسنا (officena.net) 2. مافي تحويل ، تكتبها في الجدول بالعربي 3. ومافي داعي تغيير اي شيء في كمبيوتر المستخدم 🙂 جعفر

وعليكم السلام 🙂 لجعل برنامجك يعمل على جميع الكمبيوترات : 1. اعمله بأقل اصدارات الاكسس ، مثلا 2003 ، وإلا ، فالبرامج المعمولة على اكسس 2007 فما فوق ، لن تعمل مع الاكسس 2003 ، 2. نصب الاكسس الانجليزي ، ومافي مانع تنصب معاه حزمة اللغة العربية ، 3. جميع اسماء الكائنات (وليس البيانات) يجب ان تكون باللغة الانجليزية ، ومافي مشكلة في ان تكون المسميات Caption باللغة العربية ، 4. لا تكتب في الكود إلا باللغة الانجليزية 🙂 وهذا موضوع شبيه بموضوعك : هل من حل شافى لمشكلة اختلاف اعدادات اللغة بالويندز على الأجهزة المختلفة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

وعليكم السلام 🙂 طريقة عرض التقرير الافضل ، هو التقرير الاسرع 🙂 اخذ بيانات الملف المرفق : مكتبة الموقع - ملف قاعدة بيانات اكسس يحتوي على 3,919,015 سجل ، لتجربة سرعة برنامجك - قسم الأكسيس Access - أوفيسنا (officena.net) واعمل التقرير بجميع الطرق التي تعرفها ، واعطنا نتيجة سرعة فتح كل واحد منهم ، كما عملته انا هنا : ومن هذه النتيجة ، سيعرف اخونا @عبدالقدوس48 الطريقة الافضل (حتى ولو كانت الطريقة الاعتيادية 🙂 ) جعفر

وعليكم السلام 🙂 المثل يقول: العين تأكل قبل الفم ، وفي برنامجك ، العين تستمتع به قبل الاستعمال 🙂 عمل جميل 🙂 جعفر

والله يا ابو خليل ، من كثر ما برنامجك لوسمحت تشرح لنا هذه الجزئية 😁 MsgBox fullName() 'وضعت هذه الرسالة للاستأناس وسط هذا الكم الهائل من الاكواد المعقدة الموجودة في المنتدى ، من زمان ما شفنا شيء بهذه البساطة 🥰 جعفر