Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Гоблин
Все заработало! Теперь все идет по одной структуре через рекордсет по таблице настроек. Типа как код по растяжке строки (нескольких строк) из n знаков.

Dim rst As DAO.Recordset
Dim i As Integer
DoCmd.SetWarnings False
Set rst = CurrentDb.OpenRecordset("SELECT Настройки.Код, Настройки.Ширина, Настройки.Знаков, Настройки.ПолеФормы FROM Настройки WHERE (((Настройки.Код) In (" & Условие & ")));")
With rst
If .RecordCount <> 0 Then
Do While Not .EOF
For i = 1 To !Знаков
Forms.Width = Forms.Width - 1
Forms.left = Forms.left - 1 * (i - 1)
Next i
.MoveNext
Loop
End If
End With
DoCmd.RunSQL "UPDATE Настройки SET Настройки.[Ширина] = [Ширина]-1 WHERE (((Настройки.Код) In (" & Условие & ")));"
Аналогично и по движению в разные стороны, наклону строк и т.д.

Всем спасибо за отклики.