如何双击文本框，打开窗体1中的数据表，高亮度显示出相应记录

电话号码的双击事件：

Private Sub 电话号码_DblClick(Cancel As Integer)
Dim frm As Form
Dim i As Long
DoCmd.OpenForm "窗体1"
Set frm = Forms("窗体1").Controls("[表1 子窗体]").Form
For i = 1 To frm.RecordsetClone.RecordCount
    frm.SelTop = i
    If frm.Controls("ID").Value = Me.ID.Value Then
        frm.SelLeft = 1
        frm.SelWidth = frm.Controls.Count / 2
        Exit For
    End If
Next
End Sub