Переношу базу из mdb в mssql + adp. Есть форма, в ней подчиненная ленточная форма. В mdb бала реализована подсветка текущей строки через условное форматирование с помощью функции.

Dim lngId As Integer

Public Function fnA(cid As Integer) As Long
  fnA = 0
On Error Resume Next
  If Me.Dynaset.RecordCount > 0 Then
    If Me.Dynaset.AbsolutePosition > -1 Then
        If Me.Dynaset("id").Value = cid Then fnA = 1 Else fnA = 0
    End If
  End If
End Function

Private Sub Form_Current()
    If Not Me.Recordset is Nothing Then
        lngId = Nz(Me.idTB, 0)
        Me.idTB.ControlSource = Me.idTB.ControlSource
    End If
End Sub

Private Sub Form_Open(Cancel As Integer)
  Dim cntrl As control
  
  For Each cntrl In Me.ОбластьДанных.Controls
    If cntrl.ControlType = acTextBox Then
      cntrl.FormatConditions.Delete
      cntrl.FormatConditions.Add acExpression, acEqual, "fnA([id])<>0"
      cntrl.FormatConditions(0).BackColor = 8965045
      cntrl.FormatConditions(0).Enabled = True
    End If
  Next
End Sub

В mdb эта конструкция отлично работала, а в adp при попытке показать в форме данные после фильтра - падает аксесс без объяснения причин. Если закомментировать все в Form_Current, то подсвечивается всегда только первая строка в форме и аксесс не падает.

http://www.sql.ru/forum/1084622/podsvetka-stroki-v-lentochnoy-forme-v-adp