循环浏览报告中的记录并比较值

时间:2019-07-11 14:41:05

标签: vba ms-access

我试图遍历报告记录集(行),并将控件的标题与字段中的值进行比较。我尝试过的一切都没有用。

代码

Private Sub Report_Load()

    Dim rstForm As DAO.Recordset
    Dim fldName As String
    Set rstForm = Forms!ChangedData.Form.Recordset

    Do While Not rstForm.EOF
    If (Me.lblCompetitive.Caption = FieldModified.value) Then
        Me.Competitive.BackColor = vbYellow
    End If

    rstForm.MoveNext
    Loop

End Sub

0 个答案:

没有答案