عفرنس قام بنشر أكتوبر 13, 2020 مشاركة قام بنشر أكتوبر 13, 2020 السلام عليكم أريد عمل مقارنة بين حقل الايميل في جدول ( A ) وجدول ( B ) وإظهار الاختلاف بلون مغاير . بمعنى جدول A هو الأصل وجدول B هو الفرع فلو الطالب الأول ( عبدالله ) في جدول A اختلف إيميله في جدول B يظهره لي بلون احمر مثلا . . هلهناك كود معين مثلا .. أو معيار يمكن استخدامه في الاستعلام . MyData.v.6.rar رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أكتوبر 13, 2020 الكاتب مشاركة قام بنشر أكتوبر 13, 2020 (معدل) 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 بواسطه فايز.. رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر نوفمبر 14, 2020 مشاركة قام بنشر نوفمبر 14, 2020 تفضل انا استخدمه للمقارنه وجدا ممتاز رابط هذا التعليق شارك 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.