ник: час
В другой базе пашет
В моей
Dim strSQL As String
strSQL = "SELECT strana.id, strana.strana, strana.territories_nn FROM strana ORDER BY strana.id"
Set rs = CurrentDb.OpenRecordset("strana")
ПолучитьСтрану = rs.GetRows(rs.RecordCount)
MsgBox UBound(ПолучитьСтрану, 2)
|
--------------------- 0 ------------------------