Dim i As Integer
Call Connect
qry = "SELECT * FROM Items"
rs.Open qry, cn, adOpenKeyset, adLockOptimistic
For i = 1 To iGrid.rowCount
If iGrid.Cellvalue(i, 6).value <> rs.fields("ÑÞã ÇáÕäÝ").value Then
MsgBox (" ÊæÌÏ Ýì åÐÇ ÇáÚÑÖ ÇÕäÇÝ áíÓ áåÇ ÈØÇÞÇÊ - áÇÈÏ ãä ÊÚÑíÝåÇ ÞÈá ÇäÔÇÁ ÇáÝÇÊæÑÉ"), vbInformation
Else
MsgBox (" íÌÈ ÊÍÏíÏ ÑãÒ ÊÑÞíã ÃæÇãÑ ÇáÚãá ááãÓÊÎÏã ÇáÍÇáì ááÈÑäÇãÌ"), vbCritical
MsgBox (" ÍÕá ÎØÃ Ýì ÊÍÏíÏ ÑÞã ÃãÑ ÇáÚãá ÇáÌÏíÏ"), vbCritical
Exit For
End If
rs.MoveNext
Next i
here is my code and its compare result in first cell in the column not all cells in it
Edited by user
2024-05-30T07:20:31Z
|
Reason: Not specified