طاهر الوليدي قام بنشر يوليو 31, 2020 مشاركة قام بنشر يوليو 31, 2020 عيدكم مبارك المطلوب كود ذكي يقوم بمقارنة جميع البيانات المدخل في حقول النموذج ثم يرسل رساله تنبيه يوجد سجل مكرر هل تريد عرضه نعم خروج وعندما تختار نعم يفتح لست نهايته يعرض السجلات المكرره على غرر نموذج البحث في اكسل او نفسه بضبط برمجيا رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 31, 2020 مشاركة قام بنشر يوليو 31, 2020 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر يوليو 31, 2020 الكاتب مشاركة قام بنشر يوليو 31, 2020 استاذي الفاضل هذا الموضوع عن صنف واحد فقط مااريده يقوم بمقارنة كافة الحقول اسم . بيان .رقم سند . تاريخ . بند. رقم مالي . ..الخ اذا تشبهت البيانات جميعها في كل الحقول يعمل رسالة تنبيه . والرساله نفسها يظهر تقرير اسفلها بالسجلات المكؤرة. نفس تموذج البحث واستبدال تبع برنامج اكسل يطلع الاسماء المتشابهة اسفله النموذج او نفس النموذج البحث والاستبدال حق اكسل. ولك مني خالص التحية وكل عام وانتم بخير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 31, 2020 مشاركة قام بنشر يوليو 31, 2020 وعليكم السلام 🙂 وعيدكم مبارك 🙂 انا لم اعمل رسائل تنبيه ، وانما عملت شيء قد يكون مقبول 🙂 1. نعمل استعلام مجاميع ، ونجمع الحقول في حقل واحد (لاحظ الحقل All ) : . ثم نعمل استعلام عادي لنفس الجدول ، وننسخ حقل All اليه . نعمل نموذج لكل استعلام ، ثم نضع النموذجين في نموذج واحد ، ونربط النموذج الفرعي بالرئيسي عن طريق الحقل All : . والنتيجة ، لما تختار من النموذج الرئيسي ، تجد تفاصيل السجلات في النموذج الفرعي : . جعفر 1239.Count.mdb.zip 1 رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر أغسطس 2, 2020 الكاتب مشاركة قام بنشر أغسطس 2, 2020 (معدل) عفوا استاذ جعفر ليس كما قصدت المطلوب نموذج فيه عدة حقول عند ادخال المبلغ مكرر يظهر المتشابه وعند ادخال الاسم مكرر يقل مستوى البحث بالاسم وعند ادخال البيان مكرر يقل وعندما ادخل رقم المستند مكرر يقل حتى يوصلني الى تحديد مستند واحد يظهر في آخر النموذج بنفس نموذج اكسل يظهر قائمة اسفله تحدد السجلات المكرره . ولكن في المثال المرفق نمودج جدولي للاستاذه الفاضله زهره عبدالله. ام عهود جزاها الله خير مرفق مثال ولكن ناقص العمل بنفس الفكره za-Search-LAST_(1).rar تم تعديل أغسطس 2, 2020 بواسطه طاهر الوليدي رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 2, 2020 مشاركة قام بنشر أغسطس 2, 2020 السلام عليكم اخي الكريم طاهر ما المشكلة في النموذج الذي تفضلت بارفاقه عموما تفضل هذا الموضوع به عوامل تصفية لاكثر من حقل تحياتي 1 رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر أغسطس 3, 2020 الكاتب مشاركة قام بنشر أغسطس 3, 2020 اشكر تفاعلك معي استاذي محمد بارك الله فيك المطلوب تعديل على هذا النموذج طبق على نفس الفكره الذي اريدها بس فيه خلل عندما تبحث في حقل الاسم يقوم بعرض كل لاسماء وهذا جيد لكن عندما تنتقل الى الحقل التالي يلغي بحث الحقل الاول والتالي نفس والتالي نفس المطلوب هو تثبيت عملية البحث للحقل الاول والثاني ......الخ. لان الاومر في نفس الحقول . حتى يظهر الحقول المكرره سوى كان سجل مكرر او عدد من السجلات لو وضعت الاومر في مودل تستدعى من الحقول او كود في النموذج كامل يقوم بعملية البحث سيكون افضل لكني لم استطع البحث في جميع الحقول للحصول على السجلات المكرره.mdb رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 3, 2020 مشاركة قام بنشر أغسطس 3, 2020 تفضل اخي الكريم البحث في جميع الحقول للحصول على السجلات المكرره.rar تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر أغسطس 4, 2020 الكاتب مشاركة قام بنشر أغسطس 4, 2020 20 ساعات مضت, محمد أبوعبدالله said: تفضل اخي الكريم البحث في جميع الحقول للحصول على السجلات المكرره.rar 59.46 kB · 28 تنزيلات تحياتي ااستاذي الفاضل بارك الله فيك على مجهودك ولكن اعتقد ان فكرتي لم استطيع ايصالها لك اولا الحقول لابد ان تضل مرتبطه بالجدول ثانيا لابد من تقبل اضافة البيانات الجديده وبحث في الحقول نفسها عن ماسبق تفاديا لنسيان دخول سجلات مكرره ثالثا لابد من اذاضفت اسم يظهر المكرر بمجرد ادخال او اضافة الاسم في الحقل نفس الاسم ثم اذا اضفت المبلغ يظهر المبالغ المكرره . وعند اضافة البيان يظهر المكرر. حتى انتهي من جميع الحقول اذا وجد سجل تكرر في جميع الحقول يظهر . مالم يصفر بمعنى انه لا يوجد . ثم قم باضافة بيانات جديدة ... وهكذا بمعنى انه يقوم بفحص وتشييك على الجدول من تكرار ادخال بيانات مكرره بسبب يا خطأ في ادخال او قيام المشتروات بتكرار عملية طلب صرف مبلغ مكرر منعا للنصب او لشخص لصرف مكافئة مكرره او مواصلات سوى كان في شهر او في السنه نفسها . بمعنى ينفذ الاضافة والبحث في نفس الوقت سوى بطريقة التي في النموذج او بطريقه افضل منها بدون داعي لزر البحث اتمنى انني استطعت ايصال الفكره وجزاك الله عني خيرا رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 4, 2020 مشاركة قام بنشر أغسطس 4, 2020 عذراً اخي الكريم لم افهمك من البداية لانك لم تشرح المطلوب بالضبط دعنا نعود للحل الاول الملف المرفق يتم فحص حقل EmpName اذا كان مكرر تظهر رسالة ويتم عرض المكرر في الليست بوكس يمكنك استكمال الباقي بنفس الطريقة Private Sub Cm1_Click() On Error GoTo ErrSub Dim StrWhere As String Dim StrSql As String If Not IsNull(Me.EmpName) Then StrWhere = StrWhere & " and [EmpName] like '*" & Me.EmpName & "*'" End If If Not IsNull(Me.JobPlace) Then StrWhere = StrWhere & " and [JobPlace] like '*" & Me.JobPlace & "*'" End If If Not IsNull(Me.Court) Then StrWhere = StrWhere & " and [Court] like '*" & Me.Court & "*'" End If If Not IsNull(Me.Statuse) Then StrWhere = StrWhere & " and [Statuse] like '*" & Me.Statuse & "*'" End If If Not IsNull(Me.ReportN) Then StrWhere = StrWhere & " and [ReportN] like '*" & Me.ReportN & "*'" End If If Not IsNull(Me.DevID) Then StrWhere = StrWhere & " and [DevID] like '*" & Me.DevID & "*'" End If If Not IsNull(Me.Code) Then StrWhere = StrWhere & " and [Code] like '*" & Me.Code & "*'" End If If Not IsNull(Me.DevType) Then StrWhere = StrWhere & " and [DevType] like '*" & Me.DevType & "*'" End If If Not IsNull(Me.SerialNum) Then StrWhere = StrWhere & " and [SerialNum] like '*" & Me.SerialNum & "*'" End If If Not IsNull(Me.Company) Then StrWhere = StrWhere & " and [Company] like '*" & Me.Company & "*'" End If 'ازالة كلمة And من يسار جملة التصفية StrWhere = Right(StrWhere, Len(StrWhere) - 5) ' اختيار مصدر السجلات للنموذج الفرعي و تطبيق عامل التصفية StrSql = "SELECT * FROM data where " & StrWhere Debug.Print StrSql Me.SearchList.RowSource = StrSql ErrSub: If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight End If End Sub Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec End Sub Private Sub EmpName_BeforeUpdate(Cancel As Integer) If Not IsNull(Me.EmpName) Then If DCount("*", "data", "EmpName='" & Me.EmpName & "'") > 0 Then MsgBox "مكرر", vbInformation, "تحذير" Cancel = True Cm1_Click End If End If End Sub Up-البحث في جميع الحقول للحصول على السجلات المكرره.rar تحياتي رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر أغسطس 4, 2020 الكاتب مشاركة قام بنشر أغسطس 4, 2020 عفوا استاذي وعفوا على تعبك معي المطلوب عندما قوم اضيف سجل في النمودج يتكون السجل من الحقول التالية اسم . رقم الفاتورة الشراء . بيان .التاريخ. المبلغ ليس كل مرة يدخل نفس البيانات في جميع الحقول وبعضها يتكرر مثل الاسم فمثلا اذا تكرر الاسم لا يتكرر المبلغ لا يتكرر التاريخ لنفس الاسم مثال الاسم : عادل يتكرر لكن رقم فاتورة الشراء لاتتكرر رقمها ٣٠ . البيان : قيمة ماوس . التاريخ ١/٧/٢٠٢٠ المبلغ ٥دولار . هذا سجل السجل الثاني قد يتكرر بجميع البيانات ماعدى التاريخ و المبلغ ١٠ دولار عندما اقوم باضافة البيانات في النموذج بشكل طبيعي وكا العادة اذا دخلت جميع البيانات في كل الحقول تظهر في الست عند تكرارها في بعض الحقول ولا يمنعني من اضافتها مكرر ان رأيت انها تمام لك مني الشكر رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 4, 2020 مشاركة قام بنشر أغسطس 4, 2020 اخي الكريم الحل هو هو ما ذكرته لك في اول مرة تقوم باضافة And وتضع معيار الحقل الثاني والثالث ... الخ If Not IsNull(Me.EmpName) Then If DCount("*", "data", "EmpName='" & Me.EmpName & "'" & "AND JobPlace='" & Me.JobPlace & "'") > 0 Then MsgBox "مكرر", vbInformation, "تحذير" Cancel = True Cm1_Click End I ملخص الفكرة انك تضع لكل حقل معيار وبين كل عملية تضع And وهكذا تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.