jjafferr

السلام عليكم 🙂 كان هذا لصيغة mdb ، وليس لصيغة accdb 🙂 كلامي عن البرنامج وليس محرر الاكواد. وبالاضافة الى شرح اخوي ابوجودي واخوي ناقل ، هذه احد طرق الحماية: جعفر

السلام عليكم 🙂 ومتابع 🙂 جعفر

السلام عليكم 🙂 جواب اخوي الدكتور حسين يأتي من رؤيته للاشكال في كل صورة ، وحسب رقم الصور 🙂 ولكن ، اذا اعدت تسمية المرفقات بأرقام او اسماء اخرى ، فهنا نحتاج الى طريقة ثابته لتأخذ جميع الاحتمالات ، اسماء اشكال وفواكه وبلدان وووووو ، فأحد الطرق ان يكون اسم الملف هو يشرح محتواه ، ولكن الطريقة الاصح هي ان تضيف معلومات اضافية في MetaData الصورة (البيانات الوصفية) عن طريق البيانات في EXIF الصورة ، في احد الحقول ، مثل tag ، ويمكنك رؤية وتغيير هذه البيانات عن طريق: متصفح الملفات ، ثم تنقر على ملف الصورة بالزر اليمين ، ثم تفاصيل ، ثم تفاصيل : . وهذه الاضافات يمكنك اضافتها في جميع انواع ملفات الصور (jpg , bmp , tiff ...) ، ماعدا صيغة png القديمة. وتستطيع استعمال كود لقراءة هذه البيانات ، مثل: https://docs.microsoft.com/en-us/previous-versions/tn-archive/ee176615(v=technet.10)?redirectedfrom=MSDN او https://www.devhut.net/get-image-exif-properties-using-vba-and-powershell/ جعفر

السلام عليكم 🙂 الجواب المختصر ، لا يمكنك توسيط عنوان النموذج ، في الشريط اعلى النموذج. نظرياً ، هذا الشريط يقبل 2048 حرفا فقط ، وهذا لا يُمثل عرض النموذج ، وعملياً ، لم يأخذ اكثر من 127 حرفا ، اما الاحرف الباقية فهي تختفي 😥 جعفر

السلام عليكم 🙂 ليش يا جماعة المراسلة بالايميل (مخالف لقوانين المنتدى) ، ضع كل شيء هنا حتى يستفيد الجميع 🙂 جعفر

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

نعم ممكن : 1. عمل جدول جديد فارغ فيه جميع حقول جدولك الحالي ، باسم New_Tab ، 2. عمل استعلام اضافة سجلات ، من الجدول القديم الى الجدول الجديد ، 3. اضافة جميع سجلات الجدول القديم باستثاء الحقل ID ، عمل الفرز بالحقل TNO ، INSERT INTO New_TAB ( TNO, Auto_Date, File_Name, nom, MNO, NASS, Col_3, TYPE1, TYPE2, TFLVL, TFR, MUSND, TR, MOVEX ) SELECT TAB.TNO, TAB.Auto_Date, TAB.File_Name, TAB.nom, TAB.MNO, TAB.NASS, TAB.Col_3, TAB.TYPE1, TAB.TYPE2, TAB.TFLVL, TAB.TFR, TAB.MUSND, TAB.TR, TAB.MOVEX FROM TAB ORDER BY TAB.TNO; 4. تنفيذ الاستعلام 🙂 جعفر

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

السلام عليكم 🙂 هذه المعلومة غير صحيحة ، ولا دخل لها بزيادة حجم البرنامج !! رجاء اعطاءنا معلومات اكثر عن بيئة العمل: 1. هل المشكلة في الواجهة او في الجداول ؟ 2. هل الواجهة موجودة على كمبيوترات المستخدمين ؟ 3. هل لديك جداول مؤقته ؟ وحسب ملاحظتك بأن الاستعلامات هي السبب ، هل هناك استعلام بالذات ؟ جعفر

وعليكم السلام 🙂 استعمل الكود مرتين: Private Sub CRN_DblClick(Cancel As Integer) File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "المستندات غير محفوظة" End If File_Path = Application.CurrentProject.Path & "\NEW FOLDER\" File_Name = Me.crn & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "المستندات غير محفوظة" End If End Sub جعفر

وعليكم السلام 🙂 اضفت حقل مخفي في النموذج ، اسمه All ، يتم التحكم بقيمته برمجيا : . الكود خلف النموذج والازرار : All = 0 معناه جميع السجلات All = 1 معناه السجلات حسب قيم البحث Private Sub Command16_Click() Me.All = 0 Me.Requery End Sub Private Sub Command20_Click() Me.All = 1 Me.Requery End Sub Private Sub Form_Load() Me.All = 0 Me.Requery End Sub Private Sub ind_AfterUpdate() Me.All = 1 Me.Requery End Sub . وعليه ، يصبح الاستعلام q1 مصدر بيانات النموذج: . معيار xDate Between (IIf([Forms]![f1]![All]=0,#01-Jan-1900#,[forms]![f1]![str])) And (IIf([Forms]![f1]![All]=0,#01-Jan-2900#,[forms]![f1]![ind])) ومعيار xname IIf([Forms]![f1]![All]=0,[xname],[Forms]![f1]![srch_xname]) . اي: للتاريخ: اذا كانت All=0 (جميع السجلات) فاختار التاريخ بين 1-1-1900 وتاريخ 1-1-2900 ، واذا احتجت اكبر من سنة 2900 فخذ راحتك واعمل التغيير 🤣 ولحقل الصنف: اذا كانت All=0 (جميع السجلات) فاختار قيمة الحقل xname من الجدول ، مما يعني جميع السجلات 🙂 ورجاء مراجعة الرابط التالي لتتعرف على طرق البحث في الاستعلام: جعفر تحديث.zip

خلينا ندخل في الثقيل ، واعطنا مثال ، علشان جوابنا يكون واضح 🙂 جعفر

كذلك يدويا 😁 اذا كانت المطرقة العادية تؤدي العمل ، فلا داعي لاستعمال المطرقة الكهربائية 🙂 جعفر

رجاء مراجعة مكتباتك ، فانا ذكرت هذا في المشاركة التالية في الرابط اعلاه ، تفضل: جعفر

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

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

هل قرأت مشاركتي بتمعن ، ففيه الجواب على سؤالك 🙂 جعفر

وعليكم السلام 🙂 اذا فهمت قصدك: في بداية الكود عندك كود هكذا مثلا (اخذته من احد برامجي 🙂 ) : نستعمل On Error Goto err_Form_Close في البداية ، بحيث اي خطأ يحدث في الكود سيذهب الى السطر :err_Form_Close من مكان هناك ، بدل الامر Goto ، نستعمل الامر Resume فبدل عن Goto Exit_Form_Close ، نستعمل Resume Exit_Form_Close Private Sub Form_Close() On Error GoTo err_Form_Close ..... Exit_Form_Close: Exit Sub err_Form_Close: If Err.Number = 2450 Then 'ignor Resume Next 'تخطى هذا الخطأ وانتقل الى السطر التالي ElseIf Err.Number = 52 Then 'Folders don't exist, its a new location, ignor Exit Sub 'اخرج من الحدث ElseIf Err.Number = 76 Then 'path not found MsgBox "مسار مجلد النسخ الاحتياطية غير موجود على حاسبتك" Resume Exit_Form_Close ' Exit_Form_Close اذهب الى السطر Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Form_Close End Sub جعفر

تفضل سيدي الكريم ، نفس المثال السابق ، ولكن بإضافة للنماذج كذلك: وهذا هو الكود: Option Compare Database Option Explicit Dim FC As FormatCondition ' Private Sub Form_Load() Dim Exp1 As Variant Dim Exp2 As Variant Exp1 = "[state]='H'" Exp2 = "[state]='L'" Me.result.FormatConditions.Delete Set FC = Me.result.FormatConditions.Add(acExpression, acEqual, Exp1) 'FC.Enabled = True FC.BackColor = vbRed Set FC = Me.result.FormatConditions.Add(acExpression, acEqual, Exp2) 'FC.Enabled = True FC.BackColor = vbYellow End Sub Private Sub Form_Unload(Cancel As Integer) Set FC = Nothing End Sub جعفر conditional format.zip

السؤال في هذا الموضوع عن التقرير 🙂 جعفر

وعليكم السلام 🙂 ليش الكود ، هل هناك سبب معين ؟ عادة نعمل الاشياء في الكود اذا كانت طلباتنا متغيرة ، بينما اذا الطلب ثابت ، فالاكسس يوفر لك اسهل الطرق 🙂 بالتنسيق الشرطي العادي ، مثل ما عمل اخي @Eng.Qassim : . والنتيجة : . ويمكنك استعمال هذه الكود بدلا عن التنسيق الشرطي: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If [state] = "H" Then Me.result.BackColor = vbRed ElseIf [state] = "L" Then Me.result.BackColor = vbYellow Else Me.result.BackColor = vbWhite End If End Sub جعفر conditional format.accdb

السلام عليكم 🙂 لإصطياد الخطاء في النموذج: جعفر

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

السلام عليكم اخوي ابو خليل 🙂 في هذا الموضوع كتبت طريقة الحل: جعفر

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