按鈕

Question

的點擊數事件MS艾策斯使用函數I具有低於功能上形式：

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 

我可以調用此函數對形式命令按鈕。但如何使用指定我的事件，如果函數返回「假」或「真」，因爲我希望新的對話框窗體打開，如果函數返回「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