1

我有一个问题，直到现在我都无法解决。我在表格上放了一个按钮。如果不写代码。我可以毫无问题地点击它。如果我编写了一些代码然后注释此代码，我会收到此错误：未定义子或函数。我怎么解决这个问题？

Private Sub Command40_Click()
'Dim fso As New FileSystemObject
'Dim ts As TextStream
'Dim Name, Line As String
'Dim regn As New regexp
'Dim regx As New regexp
'Dim regend As New regexp
'Dim regxnum As New regexp
'Dim swknnf As Boolean
'Dim matchkennfeld, matchstx, matchend, matchxnum As MatchCollection
' Name = util1.fDateiName("*.DCM", "Text")
' Set ts = fso.OpenTextFile(Name, ForReading)
'Do While Not ts.AtEndOfStream
' set Line = ts.ReadLine
 'regn.Pattern = "KENNFELD\s+([A-Z 0-9]*)"
  ' regx.Pattern = "\s*(ST/X)\s*([0-9]*\.[0-9]*\s*)+"
  ' regxnum.Pattern = "\s*[0-9]*\.[0-9]*\s*"
  ' regend.Pattern = "\s*(END)\s*"
 ' Set matchkennfeld = regn.Execute(Line)
 ' Set matchstx = regx.Execute(Line)
 ' Set matchend = regend.Execute(Line)
 ' If matchkennfeld.Count <> 0 Then
 '   swknnf = True
 ' End If
 ' If matchend.Count <> 0 Then
 '   swknnf = False
 ' End If
' If matchstx.Count <> 0 And swknnf = True Then
'    Set matchxnum = regxnum.Execute(Mid(Trim(matchstx.Item(0)), 5))
'    For Each Match In matchxnum
'      MsgBox Match
'    Next Match
' End If
'Loop
End Sub
4

1 回答 1

0

复制现有代码（仅限注释行）并将其粘贴到记事本中。在设计视图中打开您的表单。如果“属性表”窗口已经打开，则只需单击Command40按钮将其选中，否则右键单击按钮并选择“属性”。

在属性表的“事件”选项卡上，删除 的任何现有值On Click，然后单击省略号按钮 ( ...) 并选择“代码生成器”。这将在Sub现在定义为.OnClick按钮的事件处理程序的位置打开 VBA 编辑器。将您的（注释掉的）代码粘贴到那里。

返回 Access 并验证按钮的On Click条目现在是否显示[Event Procedure]。切换到表单视图并单击按钮。在这一点上，它仍然不应该做任何事情（因为你的代码仍然被注释掉了），但它也不应该产生错误。

于 2013-06-04T10:11:17.387 回答