eng aoff قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 السلام عليكم اساتذتي الكرام لدي جدول خاص للبريد الوارد ,,,, هل ممكن طريقة مطابقة البيانات في الحقول لعدم التكرار واكون شاكرا لحضراتكم رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 السلام عليكم من خصائص الحقل بالجدول اجعلها (نعم (التكرار غير مقبول)) رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر ديسمبر 27, 2019 الكاتب مشاركة قام بنشر ديسمبر 27, 2019 شكرا استاذي العزيز ولكن رقم الوارد يكون متشابه يعني مثلا يأتي كتاب وارد من وزارة الصحة ذات العدد 1000 ويأتي كتاب من وزارة اخرى نفس الرقم وفي هذه الحالة سوف يتم التكرار ,,,,المطلوب مطابقة رقم الوارد مع تاريخ الكتاب مع الجهة الوارد منها الكتاب ان كانت البيانات متطابقة عند الادخال تظهر رسالة مثلا الكتاب موجود مسبقاً 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 (معدل) اخي العزيز انظر للرابط https://www.officena.net/ib/topic/62366-كيفية-عدم-تكرار-اكثر-من-حقل-في-بيانات-اكسس/ نقس الموضوع تم تعديل ديسمبر 27, 2019 بواسطه خالد سيسكو 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 13 دقائق مضت, eng aoff said: شكرا استاذي العزيز ولكن رقم الوارد يكون متشابه يعني مثلا يأتي كتاب وارد من وزارة الصحة ذات العدد 1000 ويأتي كتاب من وزارة اخرى نفس الرقم وفي هذه الحالة سوف يتم التكرار ,,,,المطلوب مطابقة رقم الوارد مع تاريخ الكتاب مع الجهة الوارد منها الكتاب ان كانت البيانات متطابقة عند الادخال تظهر رسالة مثلا الكتاب موجود مسبقاً ضع هذا الكود قبل التحديث وغير مسميات الجداول والحقول Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[اسم الحقل]", "اسم الجدول", "[اسم الحقل]='" & Me!اسم الحقل في النموذج & "' AND [اسم الحقل الثاني]='" & Me!اسم الحقل الثاني في النموذج & "'AND [اسم الحقل الثالث]='" & Me!اسم الحقل الثالث في النوذج & "'") > 0 Then MsgBox "duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub 1 رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 (معدل) السلام عليكم الطريقة التي ألجأ إليها: ١- عمل حقل من نوع مذكرة. ٢-في حدث بعد التحديث لكل من حقل -رقم الوارد - جهة الوارد- تاريخ الكتاب الوارد أضع الأمر التال Me.Haql_almozake=me.number &" "& me.Name&" "&me.date وفِي خصائص الحقل في الجدول، اجعله مفهرساً والتكرار غير مقبول. فاتني أن أذكر طريقة أخرى: اجعل كلاً من حقل الرقم والجهة مفتاحاً أساسياً وعندها سيمنع التكرار على أساس قيمتي الحقلين. تم تعديل ديسمبر 27, 2019 بواسطه Khalf 1 رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر ديسمبر 27, 2019 الكاتب مشاركة قام بنشر ديسمبر 27, 2019 استاذ @عبد اللطيف سلوم وضعت الكود في النموذج قبل التحديث ولكن المشكلة عند النقر على اضافة سجل جديد لا يقبل الاضافة علما ان الكتاب الوارد غير مكرر استاذ @Khalf عملت الخيار الاول ولكن دون جدوى والخيار الثاني لا ينفع لان عند اختيار نفس التاريخ لا يقبل رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 منذ ساعه, خالد سيسكو said: اخي العزيز انظر للرابط https://www.officena.net/ib/topic/62366-كيفية-عدم-تكرار-اكثر-من-حقل-في-بيانات-اكسس/ نقس الموضوع جزاك الله خيرا اخى خالد اخى الفاضل @eng aoff هل اطلعت على الرابط ده ؟ 1 رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر ديسمبر 27, 2019 الكاتب مشاركة قام بنشر ديسمبر 27, 2019 (معدل) استاذي @أحمد الفلاحجى اطلعت عليه وقمت بعمل الخطوات ولكن المشكلة عند اضافة سجل جديد لا يقبل الاضافة وتظهر رسالة التكرار علما ان السجل غير مكرر تم تعديل ديسمبر 27, 2019 بواسطه eng aoff رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 اذن يفضل مثال لما لديك حتى يتم مراجعته ومعرفه المشكله واخوانك واساتذتنا الافاضل لا يقصرون رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر ديسمبر 27, 2019 الكاتب مشاركة قام بنشر ديسمبر 27, 2019 تفضلو اساتذتي نظام وارد.accdb رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 (معدل) السلام عليكم لقد طبقت الطريقتين على مثالكم المرفق، مع ملاحظة أني لم أشمل حقل التاريخ بالكود أو بجعله مفتاحاً، لكون مثالكم -على مايبدولي لا حاجة معه إلى إضافة التاريخ- نظراً إلى عدم الحاجة لضبط تكرار التاريخ مع ضبط رقم وارد الجهة صاحب المراسلة. للطريقة الخاصة بالكود تطبيقات أخرى في البحث الذي يتعامل مع الهمزات والفراغات والتاءات المربوطة وما إلى ذلك. ملاحظة لكي تنجح أي من الطريقتين أو الطرق التي ذكرها الأساتذة لابد من ضبط الإدخال في حقل أسماء الجهات العامة فاللازم أن تكون مربع سرد وحوار المشكلة استحالة ضبط هذا في أعمال الدواوين لاستحالة تسمية جميع جهات الوارد ، مثلاً لو أن لدينا معروضاً شخصياً أو فات المسؤول تسمية جهة عامة. وعلى أية حال أنتم أدرى بحيثيات الإدخال في قاعدة البيانات. نظام وارد.accdb تم تعديل ديسمبر 27, 2019 بواسطه Khalf 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 السلام عليكم بعد اذن الاستاذ Khalf مثال بدالة Dlookup تخياتي نظام وارد2.rar 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 ومشاركه مع اخوانى بداله Dcount مع التاريخ محاوله منى على قدى بالتوفيق اخى نظام وارد-1.accdb 3 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر ديسمبر 27, 2019 مشاركة قام بنشر ديسمبر 27, 2019 جربتها على حقل واحد وزبطت الامور شوف التجربة يمكن تستفيد منها نظام وارد.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوآمنة قام بنشر ديسمبر 27, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 27, 2019 ومشاركة مع الزملاء الكود Private Sub znumbers_BeforeUpdate(Cancel As Integer) Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("wared") Rs.MoveFirst Do Until Rs.EOF If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation Me.Undo Cancel = True End If Rs.MoveNext Loop Set Rs = Nothing End Sub نظام وارد.saleh101.accdb 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 28, 2019 مشاركة قام بنشر ديسمبر 28, 2019 15 ساعات مضت, خالد سيسكو said: السلام عليكم بعد اذن الاستاذ Khalf مثال بدالة Dlookup تخياتي نظام وارد2.rar 34.18 kB · 4 تنزيلات جزاك الله خيرا اخى خالد جميل اخى اخى خالد كل يوم ارى تركيبه عجيبه لدوال Dlookup واخواتها فى طريقه دمجهم وكل يوم اتعلم شىء جديد 12 ساعات مضت, ابوآمنة said: ومشاركة مع الزملاء الكود Private Sub znumbers_BeforeUpdate(Cancel As Integer) Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("wared") Rs.MoveFirst Do Until Rs.EOF If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation Me.Undo Cancel = True End If Rs.MoveNext Loop Set Rs = Nothing End Sub نظام وارد.saleh101.accdb 480 kB · 0 تنزيلات جزاك الله خيرا اخى صالح واذا كان فى كتاب لشرح مبسط DAO عند احد اخواننا فياريت يشاركنا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم 2 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر ديسمبر 28, 2019 مشاركة قام بنشر ديسمبر 28, 2019 4 دقائق مضت, أحمد الفلاحجى said: جزاك الله خيرا اخى صالح واذا كان فى كتاب لشرح مبسط DAO عند احد اخواننا فياريت يشاركنا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم حياك أخي أحمد تفضل الشرح وهناك مواضيع أخرى في المنتدى أحرص على الأمثلة . بالمحاولة والتجربة راح تستفيد 1 رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر ديسمبر 28, 2019 الكاتب مشاركة قام بنشر ديسمبر 28, 2019 اشكركم جميعا اساتذتي الكرام بارك الله بيكم @عبد اللطيف سلوم @Khalf @خالد سيسكو @أحمد الفلاحجى @ابوآمنة هذا هو المطلوب تحياتي للجميع 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان