急！请帮我翻译一下以下代码？

YY2008　发表于：2008-03-20 08:57:01 　

Sub Combo42_AfterUpdate()
    ' 找到与此控件匹配的记录。
    Me.RecordsetClone.FindFirst "[用机部门] = '" & Me![Combo42] & "'"
    Me.Bookmark = Me.RecordsetClone.Bookmark
    If Me![Combo42] = "<全部>" Then
      Me![Combo40].RowSource = "SELECT DISTINCTROW 计算机配用信息.现任保管者 FROM 计算机配用信息;"
      Me![Combo307].RowSource = "SELECT DISTINCTROW 计算机配用信息.设备编号 FROM 计算机配用信息;"
    Else
     Me![Combo40].RowSource = "SELECT DISTINCTROW 计算机配用信息.现任保管者 FROM 计算机配用信息 WHERE (((计算机配用信息.用机部门)=[Forms]![计算机配用信息]![Combo42])) ORDER BY 计算机配用信息.现任保管者"
     Me![Combo307].RowSource = "SELECT DISTINCTROW 计算机配用信息.设备编号 FROM 计算机配用信息 WHERE (((计算机配用信息.用机部门)=[Forms]![计算机配用信息]![Combo42]))"
    End If
    Me![Combo40] = Me![现任保管者]
    Me![Combo307] = Me![设备编号]

End Sub

Top

钱玉炜发表于：2008-03-20 09:06:12

好长一段啊

Top

竹笛发表于：2008-03-20 10:37:56

找到与此控件匹配的记录后。根据条件给相应的组合框赋上数据源，给相应的文本框填入相应的值。

Top

竹笛发表于：2008-03-20 10:44:33

使用 RecordsetClone 属性可以独立于窗体本身对窗体上的记录进行导航或操作。例如以下代码的作用是将指针移到第一条饼工的记录，可用来定位。

Me.RecordsetClone.FindFirst "[货物名称] = '饼干'"
Me.Bookmark = Me.RecordsetClone.Bookmark

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

急！请帮我翻译一下以下代码？