Database 使用microsoftaccess的投票系统

谢谢你路过

我只有两个问题。我在上大学，我需要一些帮助

我需要使用Microsoft Access进行投票系统，我有两个问题：

1） 我不知道如何在字段中“添加1” 2） 我无法找到避免用户选择多个候选人的方法（使用复选框）

这就是我到目前为止所做的：

Private Sub Comando25_Click()
Dim Check1 As Boolean
Dim Check2 As Boolean
Dim Check3 As Boolean
Dim Check4 As Boolean

 If (Me.Check1 = True & Me.Check2 = True & Me.Check3 = True & Me.Check4 = True) Then
 MsgBox "You can't select them all, you can only choose one"
DoCmd.Close
DoCmd.OpenForm "Ir a"
End If

If (Me.Check1 = True & Me.Check2 = True & Me.Check3) = True Then
MsgBox "You can't select three, you can only choose one"
DoCmd.Close
DoCmd.OpenForm "Ir a"
End If

 If (Me.Check1 = True & Me.Check2 = True) Then
MsgBox "You can't select two, you can only choose one"
DoCmd.Close
DoCmd.OpenForm "Ir a"
End If

 If (Me.Check2 = True & Me.Check3 = True) Then
MsgBox "You can't select two, you can only choose one"
DoCmd.Close
DoCmd.OpenForm "Ir a"
End If

  If (Me.Check1 = True & Me.Check3) = True Then
MsgBox "You can't select two, you can only choose one"
DoCmd.Close
DoCmd.OpenForm "Ir a"
End If
End Sub

表格如下：

这是表格，我必须在“Votos”部分添加一个。

---

如果你的

陈述有问题，我希望你能帮助我。您没有正确构建逻辑语句<代码>&

将两个字符串连接在一起

和

是一个逻辑运算符，它将两个条件与语句的总体计算联系起来

复选框有一个独特的特性，它允许

如果Me.Check1=True，则表示与
如果Me.Check1，则表示与
相同的意思。这是因为引用
Me.Check1
将计算为True或False，这正是
If
语句所期望的参数


问题是，您不能仅使用
&
从逻辑上比较多个测试。您的第一个
If
语句应为：

如果（Me.Check1=True和Me.Check2=True和Me.Check3=True）则
或更简单的
如果（Me.Check1和Me.Check2和Me.Check3）则
对每个引用的求值将导致True或False，
和
运算符将它们组合在一起，以将整个语句求值为True或False

现在这应该行了


但我不得不问，你真的想等到按下按钮后再给用户反馈吗？在复选框上构建切换例程更简单：

在复选框1的更新后事件中，放置：

If Me.Check1 Then
    Me.Check2 = False
    Me.Check3 = False
    Me.Check4 = False
End If

现在，为其他三个复选框中的每一个调整该代码，首先检查该复选框是否为true，如果为true，则所有其他复选框都必须为false

此方法在用户选中任何复选框时重置所有复选框。这样，您就不需要在提交过程中验证他们的选择，从而使代码更易于管理


至于更新投票记录，您需要两条信息和一条sql
UPDATE
语句。您需要的两条信息是：一种独特的方法，用于确定表中的哪一行需要另一次投票，以及该候选人/行的当前投票计数。你知道如何获得这些信息吗？您知道如何创建和运行Update语句，该语句将在不考虑投票对象的情况下运行吗？提示：我建议使用记录集或查询定义对象，请尝试使用这两种方法中的一种更新记录，这两种方法都有大量的在线资源。
谢谢，我解决了这个问题。尽管我的更新语句不起作用（它说sub不存在）：如果Me.Check1=True，则这是我所拥有的。如果更新无效且未正确调用，则更新候选项设置Votos=Votos+1，其中[Nombre]=Marco End。什么是“宏”？您不能使用Votos=Votos+1。尝试研究如何使用vba执行update sql语句。