كود للمقارنة بين حقلين في جدولين

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

طبقا لما فهمته من الكود أنك تريد مقارنة قيمة حقلين لسجل ما

موجود في جدولين مختلفين

وتظهر كل قيمة في الفورم

هناك طريقة Function  Dlookup

وطريقة Quary RecordSet

وطريقة Sub Quary

وطرق آخرى

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

Option Compare DatabasePrivate Sub Command0_Click()Dim a, ba = DLookup("Nationality", "dbo_EmInfoLOCAL", "[Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & "  ")b = DLookup("Nationality", "dbo_EmInfoVPS", "[Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & "  ")If Nz(a, 0) <> Nz(b, 0) ThenMe.Nationality.BackColor = vbRedMe.Nationality.ForeColor = vbWhiteMsgBox (Form.Controls("arabicName") & "  /  اختلاف البيانات مع  ") & "", vbExclamation, "MOHB SYSTEM"ElseMsgBox (Form.Controls("arabicName") & "  /  تطابق البيانات مع ") & "", vbExclamation, "MOHB SYSTEM"Me.Nationality.BackColor = vbGreenMe.Nationality.ForeColor = vbBlackEnd IfEnd SubPrivate Sub Command6_Click()Dim strsql As StringDim strsql1 As StringDim rs As Recordsetstrsql = "SELECT dbo_EmInfoLOCAL.Nationality " & vbCrLf & _"FROM dbo_EmInfoLOCAL " & vbCrLf & _"WHERE ([Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & ");"strsql1 = "SELECT dbo_EmInfoVPS.Nationality " & vbCrLf & _"FROM dbo_EmInfoVPS " & vbCrLf & _"WHERE ([Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & ");"Set rs1 = CurrentDb.OpenRecordset(strsql)Set rs2 = CurrentDb.OpenRecordset(strsql1)If Nz(rs1.Nationality, 0) <> Nz(rs2.Nationality, 0) ThenMe.Nationality.BackColor = vbRedMe.Nationality.ForeColor = vbWhiteMsgBox (Form.Controls("arabicName") & "  /  اختلاف البيانات مع ") & "", vbExclamation, "MOHB SYSTEM"ElseMsgBox (Form.Controls("arabicName") & "  /  تطابق البيانات مع  ") & "", vbExclamation, "MOHB SYSTEM"Me.Nationality.BackColor = vbGreenMe.Nationality.ForeColor = vbBlackEnd IfEnd Sub

Dlookup & Query Compare.rar

بارك الله فيك

أشكرك جزيل الشكر

سؤال أخير ماذا لو كان هناك عدة حقول للمقارنة مثلا age و jobno  ؟ وهل هناك فرق بين الحقول الرقمية والنصية أما أنه يكتفي بتطابق الحقول المقارنة سواء نصية أو رقمية ؟

جزاك الله خير

قمت بتطبيقة على عدة حقول ويعمل بشكل ممتاز لأنني أريد توضيح التطابق لكل حقل مع إظهار رسالة بذلك وهذا ماتفضلت به

أسعدتني جداً بهذا الحل الرائع

بارك الله فيك

تمت الإجابة

وجزاكم أستاذي أبو سلاف كل الخير

وبالعكس فهناك جزئيات برمجية في كود سيادتك قد تعلمت منها

وأسعدني أنك من الذين يردون على محاولاتي للحل مما يزيد من تعلمي

وأتمنى أن يسير على دربك آخرون +1