更新查询的奇怪问题

Question

我正在尝试创建一个按钮，用于更新字段“goalsdialnumber”，将数字从1到6更改为1.不幸的是，它不起作用，我不明白为什么。我已经用这种格式编写了其他查询，它们始终有效。

Private Sub Comando36_Click()

    If [objectivesdialnumber] = 1 Then
     [objectivesdialnumber] = 2
    ElseIf objectivesdialnumber = 2 Then
     objectivesdialnumber = 3
    ElseIf objectivesdialnumber = 3 Then
     objectivesdialnumber = 4
    ElseIf objectivesdialnumber = 4 Then
     objectivesdialnumber = 5
    ElseIf objectivesdialnumber = 5 Then
     objectivesdialnumber = 6
    ElseIf objectivesdialnumber = 6 Then 
     objectivesdialnumber = 1

  End If


End Sub

Answer 1

一个小技巧，可以免除所有if个。

您可以使用Mod来挤压所有这些比较：

txtObjectivesDialNumber = (CInt(txtObjectivesDialNumber) Mod 6) + 1

考虑Remou的评论并重命名您的控件