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

ник: час

Private Sub CHICK_OUT()   Dim ctl As Control   Dim rst As ADODB.Recordset If GLB_Proverka = True Then Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Process_Log.txt"), Now() & " _модуль " & "FRM_TUNING_PROGRAMMS" & " _процедура " & "CHICK_OUT читаем настройки") '--------------------------------------------------------------------------- On Error GoTo CHICK_OUT_Error '---------------------------------------------------------------------------   Set rst = New ADODB.Recordset   rst.Open "TUNING_TBL", GLB_con, adOpenKeyset, adLockOptimistic     With rst         If .RecordCount Then '            .MoveLast ' Заполнение запроса             .MoveFirst ' Начнем с первой записи             Do Until .EOF       For Each ctl In Me.Controls        MsgBox ctl.Name       If ctl.Name = rst!ID Then       If rst!Status = True Then             ctl.Value = 1 'rst!Status       Else       ctl.Value = 0       End If       End If       Next     .MoveNext             Loop         End If     End With     rst.Close     Set rst = Nothing       Set ctl = Nothing          Me!Patch_ARHIV = GLB_Patch_ARHIV     Me!Patch_EXCHANGE = GLB_Patch_EXCHANGE     Me!Patch_REPORT = GLB_Patch_REPORT     Me!Departament = GLB_Departament          Me!Patch_Driver_FR = FUN_OUT_TABLE_String("TUNING_TBL", "Patch", "Драйвер_ФР", "ID")     Me!Patch_Skaners = FUN_OUT_TABLE_String("TUNING_TBL", "Patch", "Драйвер_Сканера", "ID") '--------------------------------------------------------------------------- On Error GoTo 0 Exit Sub CHICK_OUT_Error: Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), Now() & " _модуль " & "FRM_TUNING_PROGRAMMS" & " _процедура " & "CHICK_OUT" & " ..ошибка." & Err.Description) End Sub

На форме перебираю все контролы и если имя контрола совпадает с именем в таблице , то присваиваю значение.


Но контролы ищу в цикле-можно ли сразу фокус установить на контроле - если -да, то как код подправить, или как лучшее сделать????