Shivan Rekany

استأذن من استاذنا الحبيب @ابوخليل اتفضل اذا تريد اعطي الكود في حقل ترقيم فرضنا اسم الحقل هو ID واسم الجدول هو Table1 افتح نموذج في وضع التصميم وحدد حقل التسلسلي ID روح الى خصائصة وفي قيمة افتراضية اي Default Value اكتب هذا =DMax("[ID]"; "Table1") + 1 أو تقدر تنطي لخف زر جديد هذا Me.ID = DMax("[ID]", "Table1") + 1 لكن هناك يجب انت تكتب اول رقم اي اول رقم التسلسلي من اي رقم يبدأ واذا تريد تقدر تضيف NZ معه اي سيكون الكود هكذا في قيمة افتراضية اذا تريد ان يبدأ من 1001 =NZ(DMax("[ID]"; "Table1");1000) + 1 وهكذ في خلف الزر سجل جديد Me.ID = NZ(DMax("[ID]", "Table1"),1000) + 1

اعتذر على المداخلة يااستاذنا @jjafferr حسب فهمي للموضوع السبب ان يعطي النتيجة الصحيحة برقم 7- هو ان الجملة يبدأ بـــ وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7 اي اذا نعطي هذا InStr([f5];"{")+1 سيعطينا رقم 7 اي اذا كان نريد ان نأخذ البيانات في اوله سيكون بدل رقم 7 رقم واحد هذا والله يعلم مع تحياتي

1 / اتأكد من خصائص الحقل هل هم الرقمي ام نصي 2/ تأكد من كتابة الأكواد والا 3/ ارفق نسخة مصغرة من قاعدة بياناتك واشرح ما تريد على اي نموذج تقبل تحياتي

اولا اهلا بك في منتداك منتدى اوفيســـــــــــــــــــــــنا القي نظرتا الى هذا الرابط لعل تستفيد منه تقبل تحياتي

اخی الکریم السلام علیکم ورحمة الله وبركاته كل شي في المنتدى هو لك ولكل اعضاء

يا جماعة هل في حقيقة لذلك الصور في مشاركة استاذنا جعفر ام ....

نحن نشكرك لمشاركتك استاذي الحبيب

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

اليكم هذا الرابط به برامج لتغير ايقونات اي ملف تريد https://iconchanger.en.uptodown.com/windows

شكرا لك استاذي الحبيب ... وانت ايضا ... الف مبروك شكرا لك استاذ حسين ... الله يجزيك الفردوس الاعلى

شكرا لهذه الكلمات .. فرحتني كثيرا اسف .. انا ما فتحت النيت بعد مشاركتك هذا .. الان انا فتحت النيت لكن انت جاوبت وما خليتني ان انزل المرفق شكرا لك تقبل تحياتي

اخي سلمان اليلام عليكمورحمة الله وبركاته انااعتذر منك بشدة بعد الانتظار لمدة اكثر من واحد وعشرين ساعة ما وصلت للنتيجة المطلوبة

اتفضل اليك هذا الكود =IIf([رقم الطالب]>0;Nz(DSum("[الدرجة] ";"[جدول_الدرجة]";"[رقم الطالب]=" & [رقم الطالب]);0)) واليك قاعدة بياناتك من جديد ههه 623.stu new (1).rar وبعد تضيف مواد لا تنسى حقل رقم الطالب لكي يعرف انه لاي طالب

اتفضل اليك طريقة dsum فقط اكتب هذا في مربع في نموذج الرئيسي =DSum("[الدرجة] ";"[جدول_الدرجة]";"[رقم الطالب]=" & [رقم الطالب]) اعمل كوبي باست للكود لان التسلسله مش مضبوط وتقدر تضيف NZ الى الكود هكذا (0;كود الاعلاه)NZ اتفضل اليك قاعدة بياناتك بعد تعديل 623.stu new.rar

هناك ملاحظة * انت ما حطيت نموذج الفرعي على نموذج الفرعي , انا عملت ذلك اضفت لنموذج فرعي مربع نصي باسم تيكست 10 و كتتبت فيها اي خليت مصدره هذا =Sum([الدرجة]) وفي مربع نصي Sum_Total لنموذج الرئيسي كتبت هذا اي خليت مصدره هذا =[frm_sub].[Form]![Text10] واذا تريد ان تستخدم DSum من الافضل ان تأخذه البيانت من الجدول او الاستعلام و ليس من النموذج اتفضل قاعدة بياناتك 623.stu new.rar تقبل تحياتي

اتفضل هذه نقطة الاولى لامانة العلمية انا خذت الوحدات النمطية من احد قاعدات البيانات تابعة للاستاذة " زهرة عبدالله " في منتدى الفريق العربي للبرمجة تصغير الداتابيس الى جانب الساعة.rar

ما تريد اخي ابو عبدالله ما فهمت شيء من قاعدة بيانات المشاركتك الماضية هل تريد شي اخوك شفان ريكاني

اتفضل اليك هذا لحقل شهر 1 اعمله لكل الحقول اولا انا غيرت اسم المربع لشهر 1 من "01" الى "sh01" واستخدمت هذا الكود عند الفتح النموذج Private Sub Form_Open(Cancel As Integer) If DCount("[شهور]", "[qr1]", "[شهور]=" & "01") < 1 Then Me.sh01.ControlSource = "" Else Me.sh01.ControlSource = "01" End If End Sub اليك قاعدة بياناتك بعد اضافة الكود الاعلاه rr2.rar

جرب على جهاز اخر اذا مافي نتيجة احتمال ان يكون هناك خلل في قارئ باركود عندك او في يو اس بي جهازك و سؤال عند ربط هل يشوف جهازك قارئ الباركود

اشكرك كثيرا جزاك الله خيرا

حسب فهمي فقط راح تربط يو اس بي القارئ الباركود بالجهاز وراح تستخدمه بشكل اعتيادي

اولا اشوف انه الكود تبعك فيها نواقص وهو = vbYes اي يعني لازم سيكون كالاتي Beep If Msgbox("سيتم الخروج من البرامج" & vbcrlf & "هل تريد الاستمرار ؟" , vbyesno + VbQuestion ) = vbYes then تقبل تحياتي

اليك هذا Beep

السلام عليكم ورحمة الله وبركاته الان انا عم اعمل تجربة على القاعدة بيانات و رقم سري له مكونة من 14 رقم والحروف اذا نجحت فيها ساخبرك واقول لك ارسللي لكن صار تقريبا ساعة و ... بعد وصل الى حد 9 بالمائة اي يعنني سيطول الامر لذا انتظرني تقبل تحياتي

غائب غائب غائب يا حلو وينك اهلا بك في منتداك من جديد