设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 6997|回复: 7
打印 上一主题 下一主题

[Access本身] 关于“选择唯一的记录标识符”的问题

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2013-2-19 10:33:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我在SQL中建了一些视图,在access通过VBA重链接表时,系统会跳出选择唯一的记录标识符的窗体让手工选择,请问能不能通过代码自动选择第一个,我的重链接代码如下(因为有些表的特殊性,所以视图无法建索引视图):
  1. Dim i As Integer
  2. Dim j As String
  3. Dim k As Integer
  4. k = DFirst("[A001_ZJLX]", "A_AA_A006")
  5. For i = 1 To k
  6. j = DLookup("BM", "A_AA_A001", "BMNO =" & i)
  7.     On Error GoTo fb:
  8.    DoCmd.DeleteObject acTable, j
  9.     On Error GoTo fb:
  10. fb:
  11. DoCmd.TransferDatabase acLink, "ODBC", _
  12.     "ODBC;DRIVER=SQL Server;SERVER=" & E_Co_ServerIP & ";UID=" & E_Co_user & ";PWD=" & E_Co_password & ";LANGUAGE=us_english;" & "DATABASE=" & E_Co_KM & "", acTable, j, j, True
  13. Next i

  14.     MsgBox "数据表更新成功,系统将进入登录画面!", vbInformation + vbOKOnly, Erp_提示
  15.     DoCmd.OpenForm "C_AA_Login"
  16.     'DoCmd.Close acForm, Me.Name


  17. On Error GoTo Err_CmdLink_Click_Click
  18. Exit_CmdLink_Click_Click:
  19.     Exit Sub
  20. Err_CmdLink_Click_Click:
  21.     MsgBox Err.Description
  22.     Resume Exit_CmdLink_Click_Click
复制代码
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2013-2-19 10:39:41 | 只看该作者
所有表建立主键即可. 有主键即不会提示

点击这里给我发消息

3#
 楼主| 发表于 2013-2-19 10:41:41 | 只看该作者
本帖最后由 真主 于 2013-2-19 10:44 编辑
tmtony 发表于 2013-2-19 10:39
所有表建立主键即可. 有主键即不会提示


视图无法建立主键

点击这里给我发消息

4#
发表于 2013-2-19 11:01:00 | 只看该作者
表有主键, 相关的视图就有主键了

点击这里给我发消息

5#
 楼主| 发表于 2013-2-19 11:31:45 | 只看该作者
本帖最后由 真主 于 2013-2-19 11:38 编辑
tmtony 发表于 2013-2-19 11:01
表有主键, 相关的视图就有主键了


不行,表有主键,建的视图也还是会没有,要手工选择

点击这里给我发消息

6#
发表于 2013-2-19 12:27:31 | 只看该作者
你的视图有否包含这个表的主键字段 ,把它加进去

点击这里给我发消息

7#
 楼主| 发表于 2013-2-19 12:50:06 | 只看该作者
tmtony 发表于 2013-2-19 12:27
你的视图有否包含这个表的主键字段 ,把它加进去

包含了,但链接时还是提示

点击这里给我发消息

8#
发表于 2013-2-20 12:34:27 | 只看该作者
应该不会啊.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-6-5 21:23 , Processed in 0.100618 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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