设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: zhuyiwen
打印 上一主题 下一主题

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

[复制链接]
31#
发表于 2004-8-4 00:07:00 | 只看该作者
哦,搞明白了,Access2003里面的系统表的名字改了
32#
发表于 2005-2-18 23:15:00 | 只看该作者
看看
33#
发表于 2005-2-19 02:13:00 | 只看该作者
ok
34#
发表于 2005-6-13 19:22:00 | 只看该作者

是怎样做得阿?

可以教教我吗?
35#
发表于 2005-6-13 23:35:00 | 只看该作者
谢谢!
36#
发表于 2005-6-14 18:52:00 | 只看该作者
ok
37#
发表于 2005-6-15 01:44:00 | 只看该作者
萨对分散对方
38#
发表于 2005-6-15 16:14:00 | 只看该作者
无私啊,伟大啊
39#
发表于 2005-8-23 20:47:00 | 只看该作者
仍旧有问题只能刷新一个表需要手动一个一个的刷新
40#
发表于 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编辑过]

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-11 10:51 , Processed in 0.111544 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表