Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何实现这样的情况?

MRP开发  发表于:2010-12-17 09:58:06  
复制

如何实现当我勾选新记录的"标识"时,自动将原来勾选的"标识"清空?也就是要实现表中的"标识"只能有一勾选项.

 

Top
煮江品茶 发表于:2010-12-17 10:14:20

你说的是两级表还是一级表?

如果是两级表的话,勾选父表的标识的同时计算子表的标识,可以在窗体中通过父表标识字段的更新后事件做子表的更新查询;如果就只有一级表的话,你可以在窗体中用该字段的更新后事件处理该表其他记录的更新查询。



MRP开发 发表于:2010-12-18 13:57:38

不好意思,忘了上传附件了.还请煮老师在例子上示范一下,谢了!

点击下载此附件

煮江品茶 发表于:2010-12-18 15:41:42

 

Private Sub 当前_AfterUpdate()
Dim i As Long
Dim n As Long
n = Me.Form.CurrentRecord
For i = 1 To Me.Form.RecordsetClone.RecordCount
    Me.Form.SelTop = i
    If i <> n Then
        Me.当前.Value = 0
    End If
Next
Me.Form.SelTop = n
End Sub

 

 

点击下载此附件

小胡 发表于:2010-12-18 23:13:57

谢谢版主,正是我想要的结果!



MRP开发 发表于:2010-12-21 08:19:13
煮老师,学了,谢谢!

总记录:5篇  页次:1/1 9 1 :