急！一个简单的小问题，居然……

Question

那位能给出使用APPLICATION对象的代码？给代码的一定加分！

Answer 1

Application 和 DBEngine 属性示例以下示例在消息框中显示 DBEngine 的属性。Private Sub Command1_Click()
    DisplayApplicationInfo Me
End SubFunction DisplayApplicationInfo(obj As Object) As Integer
    Dim objApp As Object, intI As Integer, strProps As String
    On Error Resume Next
        ' 窗体 Application 属性。
        Set objApp = obj.Application
        MsgBox "Application Visible property = " & objApp.Visible
        If objApp.UserControl = True Then
        For intI = 0 To objApp.DBEngine.Properties.Count - 1
            strProps = strProps & objApp.DBEngine.Properties(intI).Name & ", "
        Next intI
        End If
        MsgBox Left(strProps, Len(strProps) - 2) & ".", vbOK, "DBEngine Properties"
End Function
Report 对象、Reports 集合示例以下示例将新建报表并设置某些属性：Sub NewReport()
    Dim rpt As Report    ' 返回指向新的 Report 对象报表 
    ' 数据类型的变量。
    Set rpt = CreateReport
    ' 设置新报表的属性。
    With rpt
        .RecordSource = "Products"
        .Caption = "Products Report"
    End With
    ' 恢复新报表。
    DoCmd.Restore
End Sub
以下示例将列举 Reports 集合，并打印 Reports 集合中每个报表的名称，然后列举每一个报表的 Controls 集合，并打印出报表中每个控件的名称。Sub AllOpenReports()
    Dim rpt As Report, ctl As Control    ' 列举 Reports 集合中的报表。
    For Each rpt In Reports
        ' 打印报表的名称。
        Debug.Print rpt.Name
        ' 列举每个报表中的 Controls 集合中的控件。
        For Each ctl In rpt.Controls
            ' 打印每个控件的名称。
            Debug.Print ">>>"; ctl.Name
        Next ctl
    Next rpt
End SubForm、Report 属性示例以下示例使用 Form 和 Report 属性引用子窗体和子报表中的控件。Dim curTotalAmount As Currency
Dim curTotalSales As Currency
curTotalAmount = Forms!Orders!OrderDetails.Form!TotalAmount
curTotalSales = Reports!Sales!Employees.Report!TotalSales

Answer 2

gpo20..兄啊，这些代码我也知道，只能获取控件名称、数据。我要的是控件绑定的字段啊。麻烦，再查查看。
还有，在VB中在怎么引用ACCESS的报表？

Answer 3

你用ADo控件不就可以帮定数据库的字段了吗？
看看网上的关于VB中在怎么引用ACCESS的报表,到处都是！