طريقة مقارنة بين جدولين

[عفرنس]

السلام عليكم 

أريد عمل مقارنة بين حقل الايميل في جدول ( A ) وجدول ( B ) وإظهار الاختلاف بلون مغاير . 

بمعنى جدول A  هو الأصل وجدول B هو الفرع 

فلو الطالب الأول ( عبدالله ) في جدول A  اختلف إيميله في جدول B يظهره لي بلون احمر مثلا . .

هلهناك كود معين مثلا .. أو معيار يمكن استخدامه في الاستعلام . 

MyData.v.6.rar

[عفرنس]

1 ساعه مضت, فايز.. said:

السلام عليكم 

أريد عمل مقارنة بين حقل الايميل في جدول ( A ) وجدول ( B ) وإظهار الاختلاف بلون مغاير . 

بمعنى جدول A  هو الأصل وجدول B هو الفرع 

فلو الطالب الأول ( عبدالله ) في جدول A  اختلف إيميله في جدول B يظهره لي بلون احمر مثلا . .

هلهناك كود معين مثلا .. أو معيار يمكن استخدامه في الاستعلام . 

MyData.v.6.rar 280.89 kB · 2 downloads

وجدت هذا الكود للمقارنة .. ..

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

لكن فيه حقلين في كلا الجدولين من نوع ( رقم ) ..

 

والذي لدي الحقول من نوع ( نص ) في كلا الجدولين .. 

كيف نستطيع التغيير في الكود حتى يتوافق مع ما أريد . 

 

 

تم تعديل أكتوبر 13, 2020 بواسطه فايز..

[سلمان الشهراني]

تفضل انا استخدمه للمقارنه وجدا ممتاز