Private Sub cmdRefresh_Click()
Dim rst As Recordset
Dim id As Integer
If IsNull(txtName) Or txtName = "" Then
Beep
Else
id = Me.subForm.Form!id
If ReLink(Me.txtName, Me.txtPath, Me.txtPWD, id) Then
Me.subForm.Form.Requery
Set rst = Me.subForm.Form.RecordsetClone
rst.FindFirst "ID = " & id
If rst.NoMatch Then
'这里是不是还少了什么?
Else
Me.subForm.Form.Bookmark = rst.Bookmark
End If
rst.Close
End If
End If
End Sub
哪位高手将上面的代码,改成程序自动刷新所有链接?
全部MDB程序见下面: 点击浏览该文件
[此贴子已经被作者于2005-8-23 12:59:05编辑过]
|