ник: час
Для тог, что бы проверить наличие повторяющихся записей использую
Set rst = New ADODB.Recordset
' проверка одинаковых названий префиксов
rst.Open "SELECT First(MAGAZINE_LIST_TBL.PREFICS) AS [PREFICS поле], Count(MAGAZINE_LIST_TBL.PREFICS) AS Повторы " _
& " From MAGAZINE_LIST_TBL " _
& " GROUP BY MAGAZINE_LIST_TBL.PREFICS " _
& " HAVING (((Count(MAGAZINE_LIST_TBL.PREFICS))>1))", GLB_CLIENT_CONNECTION, adOpenKeyset, adLockOptimistic
If rst.RecordCount <> 0 Then Msgbox "Имеются одинаковые ..."
|
Как вы считаете почему порою rst.RecordCount - врёт
