Public Function RegularExp(strPattern As String, strText As String) As String
    Static objRegExp As Object
    
    If objRegExp Is Nothing Then
        Set objRegExp = CreateObject("VBScript.RegExp")
        objRegExp.Global = True
    End If
    objRegExp.Pattern = strPattern
    RegularExp = objRegExp.Replace(strText, "")
End Function

?RegularExp("[^0-9]", "qweqw676q aw76^,eабвгд")
 67676 

?RegularExp("[^A-z]", "qweqw676q aw76^,eабвгд")
qweqwqaw^e

?RegularExp("[^A-Za-z]", "qweqw676q aw76^,eабвгд")
qweqwqawe

SELECT
    '123^456' Like '*[A-z]*' AS Test1,
    '12z^456' Like '*[A-z]*' AS Test2,
    '[\]^_`' Like '*[A-z]*' AS Test3;

 0 , - 1 ,  0 

Public Function RegularExp(strPattern As String, strText As String) As String
    Static objRegExp As Object
    
    If objRegExp Is Nothing Then
        Set objRegExp = CreateObject("VBScript.RegExp")
        objRegExp.Global = True
        objRegExp.IgnoreCase = True
    End If
    objRegExp.Pattern = strPattern
    RegularExp = objRegExp.Replace(strText, "")
End Function

?RegularExp("[^A-Z]", "[\]^_`{}Aa")
Aa

ALTER TABLE dbo.Table1 WITH CHECK ADD  CONSTRAINT [CK_Table1] CHECK 
    ((CASE WHEN Field1 Is Null THEN  1  ELSE  2  END) +
    (CASE WHEN Field2 Is Null THEN  2  ELSE  3  END) +
    (CASE WHEN Field3 Is Null THEN  3  ELSE  4  END) +
    (CASE WHEN Field4 Is Null THEN  4  ELSE  1  END) =  10 )
GO

ALTER TABLE dbo.Table1 CHECK CONSTRAINT [CK_Table1]
GO

Sub SetCheckConstraint()
    Dim strSQL AS String

    strSQL = "ALTER TABLE Table1 ADD CONSTRAINT CK_Table1 CHECK (" & _
        "IIf(IsNull(Field1), 1, 2) + IIf(IsNull(Field2), 2, 3) + " & _
        "IIf(IsNull(Field3), 3, 4) + IIf(IsNull(Field4), 4, 1) = 10);"
    CurrentProject.Connection.Execute strSQL
End Sub

strSQL = "ALTER TABLE Table1 ADD CONSTRAINT CK_Table1 CHECK (" & _
    "IIf(IsNull(Field1), 1, 0) + IIf(IsNull(Field2), 1, 0) + " & _
    "IIf(IsNull(Field3), 1, 0) + IIf(IsNull(Field4), 1, 0) IN (0, 4));"
End Sub

WHERE Month([SomeDate]) = Month(Date()) AND Year([SomeDate]) = Year(Date())

WHERE Format([SomeDate], "yyyymm") = Format(Date(), "yyyymm")

WHERE DATEDIFF("m", [SomeDate], Date()) =  0 

alter table #t add check 
(
	(f1 is null and f2 is null and f3 is null and f4 is null)
	or
	(f1 is not null and f2 is not null and f3 is not null and f4 is not null)
);

Sub Test()
    Dim S As String
    
    S = "Test!!!"
    Mid(S,  5 ,  3 ) = "..."
    MsgBox S
End Sub

Function SomeRange(Address As String) As Range
    Set SomeRange = Range(Address)
End Function

Sub Test()
    Dim R As Range
    
    Set R = Cells( 1 ,  1 )
    SomeRange("A2") = R
End Sub