BUG 修正-链接表管理器(ONLY MDB FILE)

secowu · 发表于 2005-8-23 20:57:00

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编辑过]

LucasLynn · 发表于 2005-8-23 21:11:00

收藏一个

dhwx · 发表于 2005-8-28 04:31:00

好东东

120HYH · 发表于 2005-11-26 03:25:00

好的,谢

阿智 · 发表于 2005-11-26 16:05:00

zyz218 · 发表于 2005-11-26 21:09:00

[em01]

tanhong · 发表于 2005-12-1 00:17:00

我下载来看看！

fengtao666 · 发表于 2005-12-4 20:04:00

haroldchan · 发表于 2005-12-8 17:59:00

大哥，看看

chsimon · 发表于 2005-12-10 23:15:00

我顶一下

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

BUG 修正-链接表管理器(ONLY MDB FILE)

群介绍
主题无相 (随机显示版	同地区群块其他地区)

主题相关群

地区相关群[您还没设置居住地]

BUG 修正-链接表管理器(ONLY&nbsp;MDB&nbsp;FILE)

BUG 修正-链接表管理器(ONLY MDB FILE)