حفظ بيانات جديدة عن طريق الكود

[i_alabdullah]

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

اخواني الاعزاء بارك الله فيكم جميعا

بعد اذنكم احتاج عمل اضافة لسجلات جديدة لكن عن طريق الكود ، بحيث ان تكون البيانات غير مُكررة

مرفق نموذج بسيط

شكرا جزيلا

 

Database1.accdb

تم تعديل فبراير 18, 2018 بواسطه i_alabdullah
تعديل الملف

[ابو ياسين المشولي]

شوف هل هذا ماتريد

حذفتها حسب طلبك

شو اخي ضع هذا الكود عند الحفظ

DoCmd.SetWarnings False
DoCmd.RunSQL "insert INTO user (phone,uid,uname) VALUES (phone,uid,uname)"
DoCmd.SetWarnings True

وهذا قبل او بعد الحدث في اي حقل تريده

Me.uid.Value = Nz(DMax("[uid]", "user") + 1, 1)

وفبل هذا اجعل الرقم بدل ترقيم تلقايل اجعله رقم

تحياتي

تم تعديل فبراير 18, 2018 بواسطه ابو ياسين المشولي

[i_alabdullah]

26 دقائق مضت, ابو ياسين المشولي said:

شوف هل هذا ماتريد

Database1.accdb

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

32 دقائق مضت, ابو ياسين المشولي said:

شوف هل هذا ماتريد

Database1.accdb

عفوا اخي

بخصوص طلبي هو ما اريده ان يكون الـtext غير منضم و عن طريق الكود اسوي اضافة السجل بحسب البيانات اللي اكتبها في كل text في النموذج

[i_alabdullah]

اخي ابو ياسين المشولي
اذا تكرمت ممكن تحذف الملف من المشاركة اللي سويتها
لانه البيانات في الجدول موجودة

[i_alabdullah]

منذ ساعه, ابو ياسين المشولي said:

شوف هل هذا ماتريد

حذفتها حسب طلبك

شو اخي ضع هذا الكود عند الحفظ

DoCmd.SetWarnings False
DoCmd.RunSQL "insert INTO user (phone,uid,uname) VALUES (phone,uid,uname)"
DoCmd.SetWarnings True

وهذا قبل او بعد الحدث في اي حقل تريده

Me.uid.Value = Nz(DMax("[uid]", "user") + 1, 1)

وفبل هذا اجعل الرقم بدل ترقيم تلقايل اجعله رقم

تحياتي

الف الف شكر لك
هو فعلا طلبي
رغم اني امس حاولت اكتب نفس الكود لكن ما ضبط معي ... بس الكود على يدك بركة

شكرا جزيلا

[ابو ياسين المشولي]

بالتوفيق اخي

[i_alabdullah]

13 دقائق مضت, ابو ياسين المشولي said:

بالتوفيق اخي

[يوسف السيد]

السلام عليكم استاذ ابو ياسين

هل من الممكن تطبيق هذا الكود علي النموذج المرفق بالقاعدة حيث حاولت ولم يظبط معي

12345.accdb

[ابو ياسين المشولي]

انت هنا اخي لم تحدد ماتريد لحاقه وماهو الجدول وما هي الحقول

وانا لا اعرف ماتريدة بالضبط

[يوسف السيد]

استاذي الفاضل ابو ياسين

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

بيانات النموذج الرئيسي يتم ترحيلها الي  newentryhead

وبيانات النموذج الفرعي(داتا شيت) يتم ترحيلها الي newentrydetail

12345(1).accdb

[ابو ياسين المشولي]

اخي بارك الله فيك انت عامل الجدولين بنفس النموذج الفرعي والرئيسي

مايحتاج كود الحاق

في حال لم يكون مصدر النموذج نفس الجدول يكون هكذا

DoCmd.SetWarnings False
DoCmd.RunSQL "insert INTO newentryhead (entryno,entype,endate,endetail) VALUES (entryno,entype,endate,endetail)"
DoCmd.SetWarnings True

 

[يوسف السيد]

شكرا استاذ / ابو ياسين

بارك الله فيك اثقلت عليك اعذرني

الان فقط فهمت انه لاستعمال الكود الذي تفضل به يجب ان يكون النموذج غير مرتبط باية جداول

تم تعديل فبراير 22, 2018 بواسطه يوسف السيد

[ابو ياسين المشولي]

ابدا والله والله ماعندي اي مشكلة نجن في الخدمه بقد مانستطيع

بس حبيت واضح لك الامر

[يوسف السيد]

استاذ ابو ياسين الكود الذي تفضلت به يعمل تمام جدا علي راس النموذج

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

[ابو ياسين المشولي]

نعم اخي ممكن يكون بهذا الشكل مع مراه تغير المسميات

DoCmd.SetWarnings False
DoCmd.RunSQL "insert INTO newentryhead (entryno,entype,endate,endetail) VALUES ([forms][newentryhead]![newentrydetail نموذج فرعي]![entryno],[forms][newentryhead]![newentrydetail نموذج فرعي]![entype,[forms][newentryhead]![newentrydetail نموذج فرعي]![endate,endetail])"
DoCmd.SetWarnings True

 

[يوسف السيد]

شكرااااااا استاذي الفاضل

جزاك الله خيراً

[ابو ياسين المشولي]

العفو اخي نحن في الخدمة بقدر مانستطيع