AfterUpdate组合框找到并替换

时间:2015-03-18 17:34:18

标签: ms-access access-vba

我试图找出如何在组合框中使用AfterUpdate让它从表中找到记录" Userdata" where field" Recall_position"等于" 1"并用" 0"替换它。

然后找到在组合框中选择的记录(已更新为)和"用户数据"在" Recall_position"把数字" 1"

2 个答案:

答案 0 :(得分:1)

喜欢这个吗?

Private Sub cmbTest_AfterUpdate()

    CurrentDb.Execute "update Userdata set Recall_position = 0 where Recall_position = 1"
    CurrentDb.Execute "update Userdata set Recall_position = 1 where ID = " & Me.cmbTest.Column(0)

End Sub

第一个查询将Recall_position = 1的所有记录更新为Recall_position = 0

第二个查询使用组合框中所选项目的第一列中的ID将记录更新为Recall_position = 1
(我认为它是一个数值,表格中的列称为ID

答案 1 :(得分:0)

所以使用我的代码

Private Sub Combo1_AfterUpdate()
    CurrentDb.Execute "UPDATE Userdata SET Recall_position = 0 WHERE Recall_position = 10"
CurrentDb.Execute "UPDATE Userdata SET Recall_position = 10 WHERE Lastname = '" & Me.Combo1.Column(1)  & "'"
End Sub

这样可以清除10并将右行更新为 10也是。但是,它也在Lastname

中使用随机数更新第二行