ابو ياسر

ملاحظة / القاعدة الأصلية بها نماذج نموذج رئيسي باسم MainSerch  ثم بداخله نموذج اسمه MAIN ثم بداخله نموذج اسمه  HEALTH_STATUS بمعنى ان الذي أرفقته هوه جزء من القاعدة فقط نظراً لكبر حجمها والخلاصة هي (عند تطبيق الكود الذي تفضلت بوضعه ينتقل السجل إلى رقم الملف ولا يسمح بأي اضافة )

 

ستجد في المرفقات الملف بعد اضافة نموذج MainSerch

 

 

المثال لا يوجد به شيئا مما ذكرت ؟

انظر هنا

http://www.officena.net/ib/index.php?showtopic=45803#entry271170

يوجد ملاحظتين

الاولى ان اجابتي كانت قبل نصف شهر ؟؟ والمفترض منك المتابعة

والثانية ان المثال شغال 100% حسب طلبك بمعنى انه بمجرد تغيير الرقم  في الفرعي يظهر المجموع في حقل المجموع في الرئيسي

ومع هذا لا بأس يمكنك شرح مطلوبك بتفصيل ودقة اكثر

أما أنا فأرغب فى منع تكرار حقل مع تجاهل تلك القيم

اذا اردت بناء قاعدة بيانات قوية وسريعة

استخدم المعرفات الرقمية لمسائل منع التكرار

والا لماذا وضعت المفاتيح  والفهرسة في الجداول ؟

ما أريده هو مجرد تغير القيمة في حقل الدرجة في النموذج الفرعي ان تخزن مباشرة في النموذج الرئيسي

إليك مرادك

test_up.rar

قلت بوسيطة 

وهذه الوسيطة هي حقل  pz  المخفي

انت ابصر بحاجتك

تفضل النتيجة ولكن التنفيذ بوسيطة أخرى

test_up_up.rar

تم التعديل

لا تقل لماذا لا يظهر حقل  pd  في الجدول

السبب انه محسوب وقابل للزيادة والنقص فالاولى عدم حفظه في الجدول ،،  واسأل خبراء هذا المنتدى

test_up.rar

و"ترتيبها" من عند تكوين الجدوال ومن ثم الطوابير والنماذج

الطوابير = queue    

استطع بناء forms queues and reports  

 

بعد هذا التحليل يظهر أن   الطوابير  =  Queries    والطابور= Query

          

المثال يعمل بشكل سليم ، البيانات كاملة عند الاستيراد

السلام عليكم

تصميم الجداول يدل على الاحتراف  اقصد ممتاز مليون بالمية

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

1 \  اعمل مصدر بيانات النوذج الفرعي = استعلام

2 \  ضع معايير الفرز والتصفية  في الاستعلام بناء على الأدوات الموجودة في النموذج الرئيس

http://www.officena.net/ib/index.php?showtopic=35843#entry189266

تأكد من اعدادات الشبكة 

انت بحاجة الى هذا المعيار داخل مصدر التقرير الرئيسي

[forms]![tt1]![tsh]
 

انظر التعديل على المثال

الموظفين.rar

وعليكم السلام ورحمة الله وبركاته

الرابط شغال 100%

أهكذا تريده ؟

mm2_up.rar

لو كان المرفق على اصدار 2003 لما انتظرت هذا الوقت

تم عمل المطلوب + تحويل المرفق لعموم الفائدة

ملاحظة \ استخدم الحروف الانجليزية عند كتابة اسماء الجداول وحقولها

السبب \ اطلع على الكود في النموذج تراه قد انقلب رأسا على عقب

test1.rar

الاصدار 2010  في اقصى الركن الأيمن  ملف \ خيارات \ قاعدة البيانات الحالية

تجد ما تبحث عنه في هذه الصفحة 

ممكن توضيح بأكواد VBA او بمثال لوسمحت

صاحب العمل هو من يضع المثال حسب حاجته ومطلوبه

ضع مثالا مناسبا ومراعيا كونه على امتداد mdb

حوار جميل

حل ممتاز لكن لي إستفسار : 1-هل يكوم الجدول CATEGORIES يكون ترقيم تلقائي أم لا ؟

2-ولو كنت أود جعل الرقم CATID رقم فريد للطالب يظل معه من التسجيل المبدئي وينتقل معه الى النهائي أي يتم البحث عن الطالب بهذا الرقم في كل مراحل البرنامج.

على كذا لزوم ادخال الرقم المبدئي يدويا

استخدم Dmax لاحضار اكبر رقم من الجدول البعيد ، ويمكنك بالكود ان تزيد عليه رقما ( +1 ) وتدخله آليا

الي فهمته اني احذف "فيلد" تقرير اللاعب وأضعه في جدول جديد اسمه "تقارير" مثلاً مع اضافة فيلد جديد للتاريخ في نفس الجدول

بالضبط

وعليكم السلام

كود تصدير البيانات دفعة واحدة

خاص بالاصدارة 2010 يمكنك التعديل حسب الاصدار الذي عندك

Here are a few examples for inserting all the data at once:

strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=z:\docs\test.accdb"

''Late binding, so no reference is needed

Set cn = CreateObject("ADODB.Connection")

cn.Open strCon

''Create a table called ATable

scn = "[Excel 8.0;HDR=YES;DATABASE= & ActiveWorkbook.FullName & ]"

strSQL = "SELECT * INTO ATable " _

& "FROM " & scn & ".[sheet7$A1:C4]"

''Execute the statement

cn.Execute strSQL

''Insert into a table called ATable

scn = "[Excel 8.0;HDR=YES;DATABASE= & ActiveWorkbook.FullName & ]"

strSQL = "INSERT INTO ATable " _

& "SELECT * FROM " & scn & ".[sheet7$A1:C4]"

''Execute the statement

cn.Execute strSQL

''Insert into a table with no column header in Excel,

''the fields are [afield],[atext],[another]

scn = "[Excel 8.0;HDR=NO;DATABASE= & ActiveWorkbook.FullName & ]"

strSQL = "INSERT INTO ATable ([afield],[atext],[another]) " _

& "SELECT F1 As afield, F2 As AText, F3 As another FROM " _

& scn & ".[sheet7$A1:C4]"

''Execute the statement

cn.Execute strSQL

منقول ،،،،