WHERE [ContractorDetail].[Area.value] = '" & Me.Area & "'"

Application.CurrentProject.Path

=SUMIF(G:G,"="&C:C,H:H)

=VLOOKUP(C:C,G:H,2,FALSE)

SELECT Table1.Name, Table1.PhoneCell as Phone
FROM Table1
WHERE (((Table1.PhoneCell) Is Not Null))

UNION ALL

SELECT Table1.Name, Table1.PhoneOffice As Phone
FROM Table1
WHERE (((Table1.PhoneOffice) Is Not Null));

CurrentDB.Properties("AllowSpecialKeys") = False

CurrentDb.Properties("AllowByPassKey") = True

=SumIF(G:G,"=" & C2,H:H)

Function ChangeH(SubForm as Control, TotalRecord As Integer)

Debug.Print Subform.Height

Subform.height = Subform.height + (TotalRecord-1) 

End Sub

Sub SlpOut()

Dim xC As Range
Dim xArr() As String
Dim i As Long
Dim LRow As Long

For Each xC In Range("B1:B" & Range("B1").End(xlDown).Row)
    xArr = Split(xC.Cells.Value, ":")

IF Msgbox("Some Warning",vbInformation+vbYesNo) = vbNo then exit sub

Dim i as Integer
Dim xStr as String
Dim xArr() As String

xStr = "1:1"
xArr = Split(xStr, ":")

For i= LBound(xArr) To UBound(xArr)
  Debug.Print xArr(i)
Next