اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

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

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

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

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

شكرا جزيلا

 

Database1.accdb

تم تعديل بواسطه 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)

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

تحياتي

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
قام بنشر
26 دقائق مضت, ابو ياسين المشولي said:

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

Database1.accdb

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

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

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

Database1.accdb

عفوا اخي

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

قام بنشر
منذ ساعه, ابو ياسين المشولي 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)

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

تحياتي

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

شكرا جزيلا

  • Haha 1
قام بنشر

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

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

بيانات النموذج الرئيسي يتم ترحيلها الي  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

 

  • Like 1
قام بنشر (معدل)

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

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

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

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

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

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

 

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information