jjafferr

تفضل 🙂 الآن الكود يبدأ بالرقم الذي تكتبه في اول حقل : Private Sub Numberx_AfterUpdate() ' 'Access looks at it this way: 'user 1 = first entry was done in the Form by hand 'user 2 = the code below enters values automatically ' 'so it will give the popup option to either: save these change, drop the saving, or place them in clipboard 'to avaoid this message, we should first save the hand made value, then run the code 'save the Records If Me.Dirty Then Me.Dirty = False Dim rst As DAO.Recordset Dim i As Long Set rst = Me.RecordsetClone rst.MoveFirst i = Me.Numberx - 1 Do Until rst.EOF i = i + 1 rst.Edit rst!Numberx = i ' rst!serial = Me.str_serial rst.Update rst.MoveNext Loop 'MsgBox "Done" End Sub . او Private Sub Numberx_AfterUpdate() ' 'Access looks at it this way: 'user 1 = first entry was done in the Form by hand 'user 2 = the code below enters values automatically ' 'so it will give the popup option to either: save these change, drop the saving, or place them in clipboard 'to avaoid this message, we should first save the hand made value, then run the code 'save the Records If Me.Dirty Then Me.Dirty = False Dim rst As DAO.Recordset Dim i As Long Set rst = Me.RecordsetClone rst.MoveFirst i = Me.Numberx Do Until rst.EOF rst.Edit rst!Numberx = i ' rst!serial = Me.str_serial rst.Update i = i + 1 rst.MoveNext Loop 'MsgBox "Done" End Sub جعفر

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

اذا قصدك تدخل البيانات مباشرة في اول حقل من اول سجل مباشرة . فيصبح الكود: Private Sub Numberx_AfterUpdate() ' 'Access looks at it this way: 'user 1 = first entry was done in the Form by hand 'user 2 = the code below enters values automatically ' 'so it will give the popup option to either: save these change, drop the saving, or place them in clipboard 'to avaoid this message, we should first save the hand made value, then run the code 'save the Records If Me.Dirty Then Me.Dirty = False Dim rst As DAO.Recordset Dim i As Long Set rst = Me.RecordsetClone rst.MoveFirst i = Me.Numberx Do Until rst.EOF i = i + 1 rst.Edit rst!Numberx = i ' rst!serial = Me.str_serial rst.Update rst.MoveNext Loop 'MsgBox "Done" End Sub Private Sub serial_AfterUpdate() Dim rst As DAO.Recordset Dim i As Long Dim str As String str = Me.serial 'save the Records If Me.Dirty Then Me.Dirty = False Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF rst.Edit ' rst!Numberx = Me.int_Numberx + i rst!serial = str rst.Update rst.MoveNext Loop 'MsgBox "Done" End Sub جعفر 1505.1.make serial numbers.mdb.zip

تفضل يا سيدي 🙂 جعفر 1506.Export catiopns to excel.mdb.zip طيّرت المزّة 🤣

الله يطول عمرك اخوي ابا عمرو ، مرفقك لا فيه بيانات ، ولا حتى كود التصدير !! فكيف تريدني اعدل فيه !! ولما استعين بصديق سري لجلب هذه المعلومات ، تقولون عماني 😁 جعفر

نعم كلامك صحيح ، اذا اردنا ان نرى جميع الجداول ، ولا نرى جداول النظام ، ولكن ، طريقتي في تسمية الجداول هي: للجداول المرتبطة بالشبكة: tbl_abc للجداول المحلية: loc_tbl_abc للجداول المؤقته: tmp_tbl_abc و نادرا ان اسمي احد الجداول باسم جدول النظام مثل Msys_abc (في الواقع اني ابداً لم اعمل هذا النوع من الجداول) ، فلا اريد ان يكون هناك مستخدم شاطر يعرف يبحث في الانترنت ويعرف كيف يظهر هذه الجداول ، ويحرق الاخضر واليابس !! فالكود كان معمول حتى يستخرج تسميات/اسماء حقول الجداول التي تبدأ بـ _tbl ، ولم اغير فيه🙂 جعفر

وعليكم السلام 🙂 اضفت حقلين للنموذج ، int_numberx ، و str_serial ، و زر لتنفيذ العمل ، . وهذا الكود على حدث نقر الزر: Private Sub cmd_Do_Changes_Click() If Len(Me.int_Numberx & "") = 0 Then MsgBox "رجاء تعبئة اول رقم لبداية التسلسل" Me.int_Numberx.SetFocus Exit Sub ElseIf Len(Me.str_serial & "") = 0 Then MsgBox "رجاء تعبئة خانة كلمة الحقل" & vbCrLf & "serial" Me.str_serial.SetFocus Exit Sub End If Dim rst As DAO.Recordset Dim i As Long Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF i = i + 1 rst.Edit rst!Numberx = Me.int_Numberx + i rst!serial = Me.str_serial rst.Update rst.MoveNext Loop MsgBox "Done" End Sub جعفر 1505.make serial numbers.mdb.zip

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

اليك الموضوع كاملا 🙂 جعفر

وعليكم السلام 🙂 هذا الكود من احد برامجي ، يقرأ تسمية الحقل من الجدول ، واذا لم يجد التسمية ، فيستخدم الاسم ، 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 ، والتي مثل شهادة الخبير في منتدانا ، هي شهادة فخرية عن مقدرة الخبير وجهده في مساعدة الآخرين 🙂 لكل من اعضاء فريق الموقع طريقة في تقييم الاعضاء ، وبالنسبة لي ، فأنا عندي قائمة ، اتابع فيها الاعضاء ، والملاحظ ، ان معظم الاعضاء الذين يساعدون الآخرين ، يكتسبون الخبرة اسرع بكثير من الاعضاء الذين يسألون الاسئلة فقط ، وبمرور الوقت ، تكون اجاباتهم انضج وشرحهم اوضح وفي الاتجاه الصحيح 🙂 طبعا رتبة خبير لا تعني ان بقية الاعضاء ليسوا ذو خبرة في الاجابة 😁 جعفر