Question

我在表单上有以下功能：

Function StringsHaveAMatchingCharacter(String1 As Variant, String2 As Variant) As Boolean

     ' Return True if the two strings have at least one character in common;
     ' otherwise return False.

     Dim lngX As Long

     If IsNull(String1) Or IsNull(String2) Then
         ' No point checking for a match.
     Else
         For lngX = 1 To Len(String1)
             If InStr(String2, Mid$(String1, lngX, 1)) <> 0 Then
                 StringsHaveAMatchingCharacter = True
                 Exit Function
             End If
         Next lngX
     End If

     StringsHaveAMatchingCharacter = False

 End Function

我可以在窗体上使用commandbutton调用此函数。但是如果函数返回“false”或“true”，如果函数返回“false”或“true”，如何使用指定我的事件，因为如果函数返回“True”我想要打开新的对话框表单，否则我想要msgbox并取消打开对话框表单。

Answer 1

我不确定我是否理解这个问题。您只需调用该函数并使用其返回值。

Private Sub cmdOpenDialog_Click()

    Dim isMatch As Boolean

    isMatch = StringsHaveAMatchingCharacter(Me!Text1.Value, Me!Text2.Value)

    If isMatch Then
        DoCmd.OpenForm "myDialog"
    Else
        MsgBox "Nope."
    End If

End Sub

使用按钮onclick事件的MS Access功能

1 个答案: