Условное форматирование из данных другой таблицы |
Private Sub Form_Load() Dim rs As ADODB.Recordset Dim sql As String Dim i As Integer Dim str As String ' Выбор данных для сравнения sql = "SELECT tbl_Current_Diagnos.ID_Tehniks " & _ "FROM tbl_Current_Diagnos " & _ "WHERE tbl_Current_Diagnos.Status =False" Set rs = New ADODB.Recordset rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic If rs.RecordCount <> 0 Then rs.MoveLast i = rs.RecordCount ' Цикл нужен Debug.Print rs.Fields(0) rs.MoveFirst rs.Close Set rs = Nothing End Sub
http://www.sql.ru/forum/1271796/uslovnoe-formatirovanie-iz-dannyh-drugoy-tablicy
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |