jjafferr

:)

وعليكم السلام :) اكتب السطر الثاني: Function Relink_DB()on error goto err_Relink_DB ثم نأتي في اسفل الكود ، ونكتب: exit sub err_Relink_DB: if err.number=3021 then 'No Records resume next else msgbox err.number & vbcrlf & err.description endif end sub جعفر

ممكن ترفق الكود اللي استعملته لوسمحت. جعفر

وعليكم السلام :) الاستعلام عمله أن يأتيك من الجدول بالسجلات المطلوبة ، لذا الاسم سيكون في كل سجل :) ولكن ، من بيانات الاستعلام يمكنك عمل تقرير وتخفي فيه ما تشاء :) جعفر

شو اللي فيه ﻻ يعمل؟ هل هناك خطأ في الكود ويتوقف عنده؟ هل ﻻ يعطي النتائج الصحيحة؟ رجاء ترفق الكود الكامل اللي عملته ، علشان نشوفه ونساعدك في تجاوزه :) جعغر

اخي الفاضل :) بدل هذا السطر: جرب: If IsNumeric(Mid(Me.Gr_No, Nu, 1)) Then Nu = Nu - 1 Exit For End If وانا جربته بالارقام التالية ، ووصلت بالترقيم الى 12 وتوقفت ، وكل شئ كان تمام :) : jj/2014 و s9/2014 جعفر

تفضلي اختي :) جعفر 331.2.y.accdb.zip

وعليكم السلام :) نعم اخي ، هناك عدة طرق يمكننا القيام بها لحل هذا الموضوع :) الاستعلام هو الطريق الافضل والاسهل ، وعمله ان يعمل تصفية السجلات لمثل طلبك ، ولكنك لم تستعمله بالطريقة الصحيحة ، هذا كل الذي احاول ان اخبرك!! انظر الى الصورة المرفقة ، الصورة العليا ل…

وعليكم السلام :) تستطيع عمل هذا عن طريق حدث "الحالي" OnCurrent النموذج ، بوضع كود كالتالي مثلا: me.note.defaultvalue=Dlast("[Note]","Your table Name") جعفر

وعليكم السلام :) القيمة الافتراضية Default value تظهر فقط للسجل الجديد :) هناك بعض الاشياء التي لا تستطيع القيام بها في النماذج المستمرة ، فالافضل لك ان تجعل الحقل مضّمن (تربطه بحقل من الجدول او الاستعلام Control Source) :) جعفر

الله يطول في عمرك ، ليش ما تخبرنا شو المطلوب ، بدل ما تخلينا نحتار :( اليك طريقة ربط الجداول: الطريقة اليدوية: http://thetechmentors.com/blog/microsoft-access-how-to-update-linked-tables/ والطريقة الاحترافية في هذا الرابط: /index.php/topic/293741-%D8%B1%D8%A8%…

شكرا اخي ssm :) بالإضافة إلى أن هناك صورة غير موجودة في المسار الذي يعطيك الخطأ به!! جعغر

وجوابي لايزال قائم مثل ما اخبرتك في مشاركتي السابقة :) جعفر

وعليكم السلام :) المشكلة عندك في الاستعلام ، لأنك عملت المعايير على 3 اسطر مختلفة ، ما يعني انك تأمر الاستعلام بأن يرى قيمة الحقل الاول او (OR) السطر الثاني او (OR) السطر الثالث ، فالواجب عليك ان تضع هذه المعايير على سطر واحد ، مما يعني انك تريد قيمة الحقل الا…

وعليكم السلام :) حيا الله الشباب :) جرب هذا الكود (انا اضفت سطر حفظ السجل بمجرد الحصول على الرقم التالي ، مؤيدا اخي فتى الوادي :) ، ولكن بكود يختلف): Private Sub NAME_AfterUpdate() Me![ID] = DMax("ID", "TAB") + 1 DoCmd.RunCommand acCmdSaveRecord End Sub جعفر

وعليكم السلام :) البرنامج يفتح بدون مشاكل!! شو المشكلة؟ جعفر

إن شاء الله أخي خالد ، ولكني خارج البلاد وﻻ أكون أمام الكمبيوتر إﻻ في المساء :) جعفر

الله يطول عمرك اخوي ، احنا ندور في مكاننا وما وصلنا لنتيجة :( خبرني ماهي السجلات اللي تريد تنسخها من a ؟ جعفر

1. كيف تختار هذه السجلات؟ يعني جميع السجلات مثلا ، او او 10 سجلات ، او ؟؟ 2. تقدر تستخدم الكود اللي اعطيتك اياه ، ولكن علينا ان نعمل استعلام الالحاق اولا ، حسب ما تختار في 1 اعلاه :) جعفر

وعليكم السلام :) 1. هل هناك معيار CRITERIA معين للسجلات المراد نسخها من الجدول a ، مثلا بتاريخ معين او اسم salesman معين؟ 2. على اساس 1 ، يمكنك ان تعمل استعلام الحاق ، للجدول b ، 3. اذا اردت الحاق هذه السجلات اكثر من مرة ، بعدد الحقل "عدد" ، فيمكنك عمل كود كال…