jjafferr

وعليكم السلام 🙂 هذا الكود من احد برامجي ، يقرأ تسمية الحقل من الجدول ، واذا لم يجد التسمية ، فيستخدم الاسم ، Public Function ListTables() On Error GoTo err_ListTables Dim tbdf As TableDef Dim fld As Field Dim iField_Caption As String Dim Field_Type As Integer For Each tbdf In CurrentDb.TableDefs 'don't show system tables If Left(tbdf.Name, 4) = "tbl_" Then For Each fld In tbdf.Fields iField_Caption = fld.Properties("Caption") 'Field_Type = DataType_Fields(fld.Type) 'Debug.Print tbdf.Name & vbTab & fld.Name & vbTab & Field_Type & vbTab & iField_Caption Next End If 'left Next Exit_ListTables: Set tbdf = Nothing: Set fld = Nothing Exit Function err_ListTables: If Err.Number = 3270 Then 'this field does not have a caption for it, give it the field name iField_Caption = fld.Name Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_ListTables End If End Function جعفر

السلام عليكم 🙂 حسب قراءتي للامرين ، الفرق بينهم كالذي ينظر لكوب نصفه فاضي ، والآخر ينظر للنصف المليان من نفس الكوب ، والاثنين على حق 🙂 وبنفس القراءة ، فهمنا بعض بطرق مختلفة ، ويبقى لكُلٌ مكانته عالياً ، والعشاء على حسابي 🙂 جعفر

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

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

النسبة عبارة عن رقم ضرب 100 : 1 = 1 * 100 = 100% 0.75 = 0.75 * 100 = %75 0.5 = 0.5 * 100 = %50 0.1= 0.1 * 100 = %10 فأرقام النسبة ستكون من الرقم صفر الى الرقم 1 (لهذا السبب اقترحت عليك حقل Double ، لأنه يقبل الارقام قبل الفاصلة العشرية 🙂 ) ، وهكذا تقدر تفرق بين ارقامك 🙂 ولا تحتاج الى حقل المؤشر 🙂 جعفر

وعليكم السلام 🙂 الاكسس يأخذ اعدادات "نسق الوندوز" Windows theme ، ليعطي برنامج الاكسس نفس شكل الوندوز من ناحية البراويز والاطارات ووو مثلا ، هذا الشكل يعطيه للوندوز فستا و وندوز 7 . وطبيعي ان يتغير مع الاصدارات الاخرى للوندوز ، بينما نستطيع ان نطلب من الاكسس ان يوقف التعامل مع نسق الوندوز ، فيعطينا هذا الشكل ، والذي به لن يتغير بتغيير الوندوز : . هذا الاعداد المؤشر عليه بعلامة الصح داخل المربع الاحمر في الصورة ادناه (لاحظ انه يخص قاعدة البيانات هذه فقط) : . احذف علامة الصح ، ثم شغل برنامجك على كمبيوترات تحمل وندوز مختلف 🙂 ولكن حذار ، فانت ستغير كل اشكال الكائنات في برنامجك ، فرجاء تجربة جميع نماذجك والتقارير قبل ان تعطي البرنامج للزبون 🙂 جعفر

السلام عليكم اخي احمد 🙂 الموقع بإسم مايكروسوفت ، مثله مثل الكثير من المواقع ، ولكن لا علاقة لمايكروسوفت رسميا بإجاباته ، فالخبراء والشركات التي تتعامل معها مايكروسوف ، هم من يقوم بالرد ، وقد يكون احد موظفي مايكروسوفت 🙂 انظر في الرابط : https://answers.microsoft.com/ar-sa/page/faq#faqWhosWho1 ، ثم انظر في "السير الذاتية في المجتمع" 🙂 جعفر

وعليكم السلام 🙂 استخدم حقل رقم ، Double 🙂 جعفر

السلام عليكم 🙂 اخي الفاضل ، قاعدة بيانات الاكسس لن تعمل على كمبيوتر لا يوجد به: 1. برنامج الاكسس كاملا ، سواء الاكسس بمفردة او كجزء من حزمة الاوفيس ، او 2. الاكسس المجاني والذي يعمل بطريقة RunTime ، والذي فقط يشغل قواعد بيانات الاكسس ولا تستطيع عمل برامج به ، وهذا رابط اكسس 2016 RunTime فعليه ، تغيير صيغة برنامج الاكسس من accdb او accde الى ملف تنفيذي بصيغة exe لن يعمل في كمبيوتر لا يوجد به احد الاختيارين اعلاه ، فما الفائدة منه اذن !! جعفر

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

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة لو اخبرتينا بطلبك بالضبط ، علشان اعرف شو اشرح لك 🙂 جعفر

السلام عليكم 🙂 فيه خطوط جاهزة تعمل مثل خطوط شاشات العرض LCD ، مرفق احدها ، واليك طريقة استعمال الخط Font : أ. قم بتنصيب الخط في الوندوز ، ثم في الاكسس استعمله كأي خط عادي ، وفي حالتك ، استعمله للارقام 🙂 ، او ب. او اذا لا تريد ان تنصب الخط في الوندوز (قد لا تستطيع الوصول لحاسبة جميع المستخدمين) فيمكنك ان تجعل برنامجك يستعمله لبرنامجك فقط (في احد برامجي ، استعمل خط الباركود code39.ttf ويجب ان يكون في البرنامج علشان ينتج الباركود ، فاستعمل هذه الطريقة) : 1. ضع الخط في نفس مجلد برنامجك ، 2. اعمل وحدة نمطية مستقلة ، احفظها باسم mod_AddFonts ، واضف فيها هذا الكود: Option Compare Database Option Explicit Private Declare PtrSafe Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" ( _ ByVal lpFileName As String) As Long Public Function AddFonts(Font_Name_Path As String) Dim result As Long result = AddFontResource(Font_Name_Path) 'MsgBox Result & " fonts added" End Function 3. في حدث "عند تحميل" اول نموذج في برنامجك ، نادي الدالة اعلاه هكذا (طبعا تكتب اسم الخط ومساره في مجلد برنامجك) : 'Code39.ttf Font, install it, just in case it is not installed before Call AddFonts(CurrentProject.Path & "\Barcode_Font\code39.ttf") 4. بس على كمبيوترك (كمبيوتر المبرمج) ، يجب ان تنصب الخط في الوندوز لأول مرة ، ثم تعمل برنامجك ، ولما كل شيء يكون تمام ، تقدر تحذف الخط من الوندوز ، وتستعمل الطريقة اعلاه 🙂 وبما انه خط عادي ، فما فيه داعي لكود خاص علشان تعرض الارقام ، والتعديل والالوان وحجم الخط ووووو ، يكون بكل سهولة ، لأنه مجرد خط 🙂 جعفر digital-7.zip

السلام عليكم 🙂 ملاحظة: يجب تغيير صيغة الامر If ، وتجعل تنفيذ الاوامر بداخلها ، هكذا : Private Sub Form_Load() If DateSerial(YEAR(Date), Month(Date), 11) = Date Then Call Form_frmTarhell.tarhel_AfterUpdate Call Form_frmTarhell.Command6_GotFocus end if End Sub . واترك التتمة مع اخي ابو بسملة 🙂 جعفر

نعم هي الطريقة الافضل ، والكود اللي وضعته لك يضع الباركود من ضمن الحفظ ، وعليه يجب عليك ان تخفي الزر الخاص بالباركود 🙂 جعفر

همم ، نعم ردّي كان بالفعل بالقطارة ، وبطريقة موجزة 🤣 واليك الرد بطريقة تختلف قليلا: 1. جميع الدوال التي تنادي مكتبات الوندوز (32بت و 64بت) موجودة في الملف Win32API_PtrSafe.zip والموجود في موضوع: اجعل برنامجك يعمل على النواتين 32بت و 64بت ، فمثلا الدالة Sleep هي جزء من المكتبة kernel32 : Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) 2. مثل ما قلت في مشاركتي السابقة: ومقدرة/عمل هذه الدوال تبدأ من بداية تشغيل الكمبيوتر الى إغلاقه ، لذلك ، فلا حاجة لنا بالتعرف على معظم هذه الدوال وطريقة عملها ، لأنها تعمل بطريقة تلقائية، 3. فكر بكل دالة من هذه الدوال ، كأنها "حدث" في نموذجك/الوحدة النمطية ، انت تنادي الحدث وقت الحاجة ، ولكل نوع من الدوال متغيرات معينه تخصه 🙂 وبعد قراءتي لما كتبته مرة اخرى ، تذكرت المثل الذي يقول: فسر الماءَ بعد الجهد بالماءِ 😂 جعفر

وعليكم السلام 🙂 مثل ما تفضلتوا وقلتوا ، الهدف من المنتدى هو مساعدة الاخرين إبتغاءً لوجه الله تعالى ، والمنتدى تلقائيا ، وبحسب عدد المشاركات ، ينقل العضو من رتبه الى رتبه اعلى ، حتى نعرف اقدمية العضو ، والسماح له بإستخدام نظام المراسلة في المنتدى🙂 معظم المنتديات تُريد ان يتم التعرف على الاعضاء اصحاب الخبرة في المنتدى ، لذا فكل منتدى له طريقته في الترقية ، والفائدة/الميزة التي يتمتع بها الخبير ، في وجهة نظري ، هي شهادة من المنتدى بأن هذا الخبير له القدرة على التعامل مع البرنامج ، ومؤهل لتقديم خدمات افضل للبرنامج ، وعليه ، يمكن لهذا الخبير ان يكتب في سيرته الذاتية ان لديه مرتبة خبير في البرنامج الفلاني من المنتدى الفلاني ، والذي على اساس مستوى المنتدى وعدد اعضاءه وعدد المشاركات اليومية ، يتم تقييم رتبة المنتدى عالميا ، بالاضافة الى المنتديات ، فحتى شركة مايكروسوفت تعطي مثل هذه الشهادة ، MVP ، والتي مثل شهادة الخبير في منتدانا ، هي شهادة فخرية عن مقدرة الخبير وجهده في مساعدة الآخرين 🙂 لكل من اعضاء فريق الموقع طريقة في تقييم الاعضاء ، وبالنسبة لي ، فأنا عندي قائمة ، اتابع فيها الاعضاء ، والملاحظ ، ان معظم الاعضاء الذين يساعدون الآخرين ، يكتسبون الخبرة اسرع بكثير من الاعضاء الذين يسألون الاسئلة فقط ، وبمرور الوقت ، تكون اجاباتهم انضج وشرحهم اوضح وفي الاتجاه الصحيح 🙂 طبعا رتبة خبير لا تعني ان بقية الاعضاء ليسوا ذو خبرة في الاجابة 😁 جعفر

الحمدلله 🙂

ما تخسر اذا جربت ، و افدنا بالنتيجة 🙂

وعلشان اخوي ناقل يعرف محل الشباب من الاعراب 🙂 جعفر

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

السلام عليكم 🙂 الدوال نوعين : اولا: نوع نحن نعمله ، وهناك نوعين منهم: كل كود "حدث" في الاكسس ، هو دالة ، وهذه الدوال لها متغيرات ثابته ، لا يمكنك تغييرها ، دوال نحن نعملها ، سواء في وحدة نمطية مستقلة ، او في كود النموذج او التقرير ، وهذه يمكن ان يكون بها متغيرات ، ثانيا: دوال تنادي مكتبات الوندوز/نظام تشغيل الكمبيوتر: الاكسس او اي برنامج آخر ، يقع تحت مظلة نظام تشغيل الكمبيوتر ، ومقدرة/عمل هذه الدوال تبدأ من بداية تشغيل الكمبيوتر الى إغلاقه (فكر بها كأنها "حدث" في نموذجك) ، وبعض هذه الدوال عندها مقدرة تفوق/خارج مقدرة الاكسس (مثل التخاطب والتحكم بالاجهزة المرتبطة بالكمبيوتر) ، وهذا كان قصد @Eng.Qassim في شرحه في مشاركة 🙂 جعفر

تعجبني هذه البساطة ، ناقل وبس 😎

لا تغير السالفة ، الرجال كما قال: هذا دليل اني احيانا اقول اشياء مفيدة 😁 جعفر

صدقني ، انا قلت نفس الشيء امس لأحد الاعضاء 😂 بس الخبير ما يجي منه إلا كلام خبرة 😉 جعفر

وعليكم السلام 🙂 1. اذا تم مناداة الدالة (من الاستعلام مثلا) ، فعادة يتم ارسال قيم اليها ، حتى تقوم الدالة بحساب المطلوب ، وعليه ، الاكسس لا يسمح لك بإرسال بيانات من نوع مختلف ، 2. ولكن الدالة تحتاج الى متغيرات اخرى لتقوم بعملها ، لذا نعرّف هذه المتغيرات داخل الدالة 🙂 كما انك تستطيع ان لا تُعرّف المتغيرات كما في رقم #1 ، بل تقوم بتعريفها داخل الدالة ، ولكن حينها تقع عليك مسؤولية التأكد من ان نوع البيانات صحيحة 🙂 فدع الاكسس يقوم بعمله ، وهي الطريقة الصحيحة 🙂 جعفر