Question

我们的学校项目是在MS Access中建立投票系统。到目前为止，这是我所做的：

Private Sub Command7_Click()
    Dim President1 As Integer
    Dim President2 As Integer

    President1 = 0
    President2 = 0

    If Frame0.Value = 1 Then
        DoCmd.Close
        DoCmd.OpenForm "RESULTS"
        President1 = President1 + 1
        Me.lblpresresults1.Caption = President1
        DoEvents
    Else
        DoCmd.Close
        DoCmd.OpenForm "RESULTS"
        President2 = President2 + 1
        Me.lblpresresults2.Caption = President2
        DoEvents
    End If
End Sub

有两种形式，voting1和RESULTS 投票形式有两个投票选项。单击两个选项下的按钮时，应将+1添加到计数器。并且所得的数字应以RESULTS形式出现在文本框中。

但是每当我运行它时，它都会显示“未找到方法或数据成员”。有人可以帮忙指出代码出了什么问题吗？缺少什么吗？预先感谢。

编辑：上面的代码是上述按钮中的代码

Answer 1

调试。

尝试在行首使用'注释掉所有可疑行。

一次取消注释，以找出哪个破坏了系统。

Answer 2

您要在打开下一个表单之前关闭表单，从而将脚踩在代码下面。试试：

Private Sub Command7_Click()

    Dim President1 As Integer
    Dim President2 As Integer

    DoCmd.OpenForm "RESULTS"
    If Frame0.Value = 1 Then
        President1 = President1 + 1
        Forms!RESULTS!lblpresresults1.Caption = President1
    Else
        President2 = President2 + 1
        Forms!RESULTS!lblpresresults2.Caption = President2
    End If
    DoCmd.Close

End Sub

但是，这总是将标题设置为“ 1”，而不添加任何内容。所以也许：

Private Sub Command7_Click()

    Dim President As Label
    Dim Votes     As Long

    DoCmd.OpenForm "RESULTS"      
    If Frame0.Value = 1 Then
        Set President = Forms!RESULTS!lblpresresults1
    Else
        Set President = Forms!RESULTS!lblpresresults2
    End If
    Votes = Val(President.Caption) + 1
    President.Caption = CStr(Votes)

    DoCmd.Close

End Sub

那不会在任何地方保存选票，但是-我想-这是下一个任务。

MS Access-无法识别其他形式的对象

2 个答案: