点击下载此附件

Public Function AinB(ByVal a As String, b As

String) As Boolean
    Dim Index As Integer
    If Trim(a) <> "" And Trim(b) <> "" Then
        For Index = 1 To Len(b)
            If InStr(a, Mid$(b, Index, 1)) = 0

Then Exit Function
        Next Index
        AinB = True
    End If
End Function

Private Sub 比较_Click()
    If AinB(a, b) = True Then
        c = "包含"
    Else
        c = "不包含"
    End If
    DoCmd.RunCommand acCmdSaveRecord   '保存

End Sub