Revert "[admin] merge changes"

This reverts commit 08fd6af.

Author: cdietschrun

Language/Reference/User-Interface-Help/atn-function.md

@@ -24,29 +24,16 @@ The required _number_ [argument](../../Glossary/vbe-glossary.md#argument) is a [
 
 The **Atn** function takes the ratio of two sides of a right triangle (_number_) and returns the corresponding angle in radians. The ratio is the length of the side opposite the angle divided by the length of the side adjacent to the angle.
 
+> [NOTE!] 
+> This is the equivalent of the **ATAN()** function in Excel. Oddly, **Excel.WorksheetFunctions.ATAN()** does not exist (as with other Excel formula functions). You can instead use this VBA **Atn()** function.
+
 The range of the result is **-**[pi](../../Glossary/vbe-glossary.md#pi)/2 to pi/2 radians. To convert degrees to radians, multiply degrees by pi/180. To convert radians to degrees, multiply radians by 180/pi.
 
 > [!NOTE] 
 > **Atn** is the inverse trigonometric function of **[Tan](tan-function.md)**, which takes an angle as its argument and returns the ratio of two sides of a right triangle. Do not confuse **Atn** with the cotangent, which is the simple inverse of a tangent (1/tangent).
 
-
-## Example
-
-This example uses the **Atn** function to calculate the value of pi.
-
-
-```vb
-Dim IntVar, StrVar, DateVar, MyCheck
-' Initialize variables.
-IntVar = 459: StrVar = "Hello World": DateVar = #2/12/69# 
-MyCheck = VarType(IntVar)    ' Returns 2.
-MyCheck = VarType(DateVar)    ' Returns 7.
-MyCheck = VarType(StrVar)    ' Returns 8.
-
-```
-
 ## See also
 
 - [Functions (Visual Basic for Applications)](../functions-visual-basic-for-applications.md)
 
-[!include[Support and feedback](~/includes/feedback-boilerplate.md)]
+[!include[Support and feedback](~/includes/feedback-boilerplate.md)]

Language/Reference/User-Interface-Help/copyfile-method.md

@@ -58,6 +58,12 @@ If _source_ contains wildcard characters, or _destination_ ends with a path sepa
 
 An error also occurs if a _source_ using wildcard characters doesn't match any files. The **CopyFile** method stops on the first error it encounters. No attempt is made to roll back or undo any changes made before an error occurs.
 
+Files copied to a new destination path will keep the same file name. To rename the copied file, simply include the new file name in the destination path. For example, this will copy the file to a new location _and_ the file in the new location will have a different name:
+
+```vb
+FileSystemObject.CopyFile "c:\mydocuments\letters\sample.doc", "c:\tempfolder\sample_new.doc"
+```
+
 ## See also
 
 - [Objects (Visual Basic for Applications)](../objects-visual-basic-for-applications.md)

Language/Reference/User-Interface-Help/createobject-function.md

@@ -126,6 +126,8 @@ Set xlApp = CreateObject("excel.application")
 xlApp.Visible = True
     ' Use xlApp to access Microsoft Excel's 
     ' other objects.
+    ' Closes the application using the Quit method
+xlApp.Quit    
 
 ```
 

Language/Reference/User-Interface-Help/like-operator.md

@@ -87,7 +87,7 @@ MyCheck = "aBBBa" Like "a*a"    ' Returns True.
 MyCheck = "F" Like "[A-Z]"    ' Returns True.
 MyCheck = "F" Like "[!A-Z]"    ' Returns False.
 MyCheck = "a2a" Like "a#a"    ' Returns True.
-MyCheck = "aM5b" Like "a [L-P]#[!c-e]"    ' Returns True.
+MyCheck = "aM5b" Like "a[L-P]#[!c-e]"    ' Returns True.
 MyCheck = "BAT123khg" Like "B?T*"    ' Returns True.
 MyCheck = "CAT123khg" Like "B?T*"    ' Returns False.
 MyCheck = "ab" Like "a*b"    ' Returns True.

Language/Reference/User-Interface-Help/split-function.md

@@ -53,7 +53,7 @@ Dim strSingleString2 As String
 Dim strSingleString3 As String
 Dim i As Long
 
-strFull = "Some - Old - Hags - Can - Always - Hide - Their - Old - Age"    ' String that will be used. 
+strFull = "Dow - Fonseca - Graham - Kopke - Noval - Offley - Sandeman - Taylor - Warre"    ' String that will be used. 
 
 arrSplitStrings1 = Split(strFull, "-")      ' arrSplitStrings1 will be an array from 0 To 8. 
                                             ' arrSplitStrings1(0) = "Some " and arrSplitStrings1(1) = " Old ". 

Language/Reference/User-Interface-Help/variant-data-type.md

@@ -18,6 +18,8 @@ The **Variant** data type has no [type-declaration character](../../Glossary/vbe
 
 A **Variant** is a special data type that can contain any kind of data except fixed-length [String](../../Glossary/vbe-glossary.md#string-data-type) data. (**Variant** types now support [user-defined types](../../Glossary/vbe-glossary.md#user-defined-type).) A **Variant** can also contain the special values [Empty](../../Glossary/vbe-glossary.md#empty), **Error**, **Nothing**, and [Null](../../Glossary/vbe-glossary.md#null). You can determine how the data in a **Variant** is treated by using the **VarType** function or **TypeName** function.
 
+Use the [VarType function](https://docs.microsoft.com/office/vba/language/reference/user-interface-help/vartype-function) to test what type of data is held in a Variant.
+
 Numeric data can be any integer or real number value ranging from -1.797693134862315E308 to -4.94066E-324 for negative values and from 4.94066E-324 to 1.797693134862315E308 for positive values. 
 
 Generally, numeric **Variant** data is maintained in its original data type within the **Variant**. For example, if you assign an [Integer](../../Glossary/vbe-glossary.md#integer-data-type) to a **Variant**, subsequent operations treat the **Variant** as an **Integer**. However, if an arithmetic operation is performed on a **Variant** containing a [Byte](../../Glossary/vbe-glossary.md#byte-data-type), an **Integer**, a [Long](../../Glossary/vbe-glossary.md#long-data-type), or a [Single](../../Glossary/vbe-glossary.md#single-data-type), and the result exceeds the normal range for the original data type, the result is promoted within the **Variant** to the next larger data type. A **Byte** is promoted to an **Integer**, an **Integer** is promoted to a **Long**, and a **Long** and a **Single** are promoted to a [Double](../../Glossary/vbe-glossary.md#double-data-type). 

README.md

@@ -1,3 +1,16 @@
+# About VBA-docs repo
+We no longer have resources to respond to new issues. We welcome PRs that include documentation fixes, code samples, or improved comments. Please create a branch, make your changes, then open a PR to merge your change to master. We try to review new PRs monthly, but you can tag @lindalu-MSFT in a comment for faster response!
+
+## Get Office VBA support on Microsoft Q&A
+There is a new forum on Microsoft Q&A for your VBA questions. To ask the developer community questions about your VBA code, go to the [Microsoft Q&A office-vba-dev forum](https://docs.microsoft.com/en-us/answers/questions/topics/single/192523.html). 
+
+## Join the Microsoft 365 Developer Program
+Get a free sandbox, tools, and other resources you need to build solutions for the Microsoft 365 platform.
+- [Free developer sandbox](https://developer.microsoft.com/microsoft-365/dev-program#Subscription) Get a free, renewable 90-day Microsoft 365 E5 developer subscription.
+- [Sample data packs](https://developer.microsoft.com/microsoft-365/dev-program#Sample) Automatically configure your sandbox by installing user data and content to help you build your solutions.
+- [Access to experts](https://developer.microsoft.com/microsoft-365/dev-program#Experts) Access community events to learn from Microsoft 365 experts.
+- [Personalized recommendations](https://developer.microsoft.com/microsoft-365/dev-program#Recommendations) Find developer resources quickly from your personalized dashboard.
+
 ## Microsoft Open Source Code of Conduct
 
 This project has adopted the [Microsoft Open Source Code of Conduct](https://opensource.microsoft.com/codeofconduct/).
@@ -7,4 +20,3 @@ For more information, see the [Code of Conduct FAQ](https://opensource.microsoft
 The live docs for this repo can be accessed at https://docs.microsoft.com/office/vba/api/overview/.
 
 For information about how to contribute to this documentation, see [Contributing](contributing.md).
-

access/Concepts/Miscellaneous/ado-for-visual-c-plus-plus-syntax-index-for-com.md

@@ -2,14 +2,14 @@
 title: ADO for Visual C++ syntax index for COM
 ms.prod: access
 ms.assetid: e016746e-07a8-10a1-b8e4-7dbb7f6cdaf2
-ms.date: 10/12/2018
+ms.date: 05/12/2021
 localization_priority: Normal
 ---
 
 
 # ADO for Visual C++ syntax index for COM
 
-**Applies to:** Access 2013 | Access 2016
+**Applies to:** Access 2013 | Access 2016 | Access 2019
 
 This index is a cross-reference to the ADO Language Reference based on Microsoft Visual C++.
 
@@ -31,7 +31,7 @@ Method and property syntax in Visual C++ is listed for the following elements:
 
 ## See also
 
-- [Access for developers forum](https://social.msdn.microsoft.com/Forums/office/home?forum=accessdev)
+- [Access for developers forum on Microsoft Q&A](https://docs.microsoft.com/answers/topics/office-access-dev.html)
 - [Access help on support.office.com](https://support.office.com/search/results?query=Access)
 - [Access help on answers.microsoft.com](https://answers.microsoft.com/)
 - [Access forums on UtterAccess](https://www.utteraccess.com/forum/index.php?act=idx)

api/Access.AcFileFormat.md

@@ -20,11 +20,11 @@ Specifies the Microsoft Access file format to use when converting an Access file
 
 |Name|Value|Description|
 |:-----|:-----|:-----|
-|**acFileFormatAccess12**|12|Microsoft Access 2007 format|
 |**acFileFormatAccess2**|2|Microsoft Access 2.0 format|
-|**acFileFormatAccess2000**|9|Microsoft Access 2000 format|
-|**acFileFormatAccess2002**|10|Microsoft Access 2002 format|
 |**acFileFormatAccess95**|7|Microsoft Access 95 format|
 |**acFileFormatAccess97**|8|Microsoft Access 97 format|
+|**acFileFormatAccess2000**|9|Microsoft Access 2000 format|
+|**acFileFormatAccess2002**|10|Microsoft Access 2002 format|
+|**acFileFormatAccess2007**|12|Microsoft Access 2007 format|
 
-[!include[Support and feedback](~/includes/feedback-boilerplate.md)]
+[!include[Support and feedback](~/includes/feedback-boilerplate.md)]

api/Access.Application.Nz.md

@@ -38,7 +38,7 @@ Variant
 
 ## Remarks
 
-If the _Value_ of the variant argument is **Null**, the **Nz** function returns an unassigned **Variant**, the special value **[Empty](../language/glossary/vbe-glossary#empty)**. In VBA, **Empty** evaluates to the number zero or a zero-length string, depending on whether the context indicates that the _Value_ should be a number or a string. For example:
+If the _Value_ of the variant argument is **Null**, the **Nz** function returns an unassigned **Variant**, the special value **[Empty](../language/glossary/vbe-glossary.md#empty)**. In VBA, **Empty** evaluates the number zero or a zero-length string, depending on whether the context indicates that the _Value_ should be a number or a string. For example:
 
 ```vb
 Nz(Null) + 2    ' returns 2
@@ -47,7 +47,7 @@ Nz(Null) + "2"  ' returns "2"
 Nz(Null) & "2"  ' returns "2"
 ```
 
-When used in a query expression, however, **Nz** always returns a zero-length string. 
+When used in a query expression, **Nz** will return similar result values. 
 
 If the optional _ValueIfNull_ argument is included, the **Nz** function will return the value specified by that argument if the variant argument is **Null**.
 

api/Access.DoCmd.Hourglass.md

@@ -38,6 +38,8 @@ You often use this method if you've turned echo off by using the **Echo** method
 
 Access automatically resets the _HourglassOn_ argument to **False** when the procedure finishes running.
 
+To determine the current state of the hourglass, you can check the value of [Screen.MousePointer](https://docs.microsoft.com/office/vba/api/access.screen.mousepointer). If `Screen.MousePointer = 11`, the hourglass is currently being displayed.
+
 
 
 [!include[Support and feedback](~/includes/feedback-boilerplate.md)]

api/Access.DoCmd.SendObject.md

@@ -87,23 +87,19 @@ Public Function CreateEmailWithOutlook( _
 
     ' Define app variable and get Outlook using the "New" keyword
     Dim olApp As New Outlook.Application
-    Dim olMailItem As Outlook.MailItem  ' An Outlook Mail item
+    Dim olEmail As Outlook.MailItem  ' An Outlook Mail item
 
     ' Create a new email object
-    Set olMailItem = olApp.CreateItem(olMailItem)
+    Set olEmail = olApp.CreateItem(olMailItem)
 
     ' Add the To/Subject/Body to the message and display the message
-    With olMailItem
+    With olEmail
         .To = MessageTo
         .Subject = Subject
         .Body = MessageBody
         .Display    ' To show the email message to the user
     End With
 
-    ' Release all object variables
-    Set olMailItem = Nothing
-    Set olApp = Nothing
-
 End Function
 ```
 
@@ -119,23 +115,19 @@ Public Function SendEmailWithOutlook( _
 
     ' Define app variable and get Outlook using the "New" keyword
     Dim olApp As New Outlook.Application
-    Dim olMailItem As Outlook.MailItem  ' An Outlook Mail item
+    Dim olEmail As Outlook.MailItem  ' An Outlook Mail item
 
     ' Create a new email object
-    Set olMailItem = olApp.CreateItem(olMailItem)
+    Set olEmail = olApp.CreateItem(olMailItem)
 
     ' Add the To/Subject/Body to the message and display the message
-    With olMailItem
+    With olEmail
         .To = MessageTo
         .Subject = Subject
         .Body = MessageBody
         .Send       ' Send the message immediately
     End With
 
-    ' Release all object variables
-    Set olMailItem = Nothing
-    Set olApp = Nothing
-
 End Function
 ```
 

api/Access.Module.ProcStartLine.md

@@ -40,17 +40,17 @@ The _ProcKind_ argument can be one of the following **vbext_ProcKind** constants
 |**vbext_pk_Get**|A **Property Get** procedure.|
 |**vbext_pk_Let**|A **Property Let** procedure.|
 |**vbext_pk_Proc**|A **Sub** or **Function** procedure.|
-|**vbext_pk_Set**|A **Property Se** t procedure.|
+|**vbext_pk_Set**|A **Property Set** procedure.|
 
-A procedure begins with any comments and compilation constants that immediately precede the procedure definition, denoted by one of the following:
+A procedure begins with any blank lines, comments and compilation constants that immediately precede the procedure definition, denoted by one of the following:
 
 - A **Sub** statement  
 - A **Function** statement    
 - A **Property Get** statement    
 - A **Property Let** statement  
 - A **Property Set** statement
 
-The **ProcStartLine** property returns the number of the line on which the specified procedure begins. The beginning of the procedure may include comments or compilation constants that precede the procedure definition.
+The **ProcStartLine** property returns the number of the line on which the specified procedure begins. The beginning of the procedure may include blank lines, comments or compilation constants that precede the procedure definition.
 
 To determine the line on which the procedure definition begins, use the **[ProcBodyLine](Access.Module.ProcBodyLine.md)** property. This property returns the number of the line that begins with a **Sub**, **Function**, **Property Get**, **Property Let**, or **Property Set** statement.
 
@@ -59,7 +59,7 @@ The **ProcStartLine** and **ProcBodyLine** properties can have the same value if
 It may be easier to determine where a procedure begins if you have the **Procedure Separator** option selected. With this option selected, there is a line between the end of a procedure and the beginning of the next procedure. The first line of code (or blank line) below the procedure separator is the first line of the following procedure, which is the line returned by the **ProcStartLine** property. The **Procedure Separator** option is located on the **Editor** tab of the **Options** dialog box, available by choosing **Options** on the **Tools** menu.
 
 > [!NOTE] 
-> The **ProcStartLine** property treats **Sub** and **Function** procedures similarly, but distinguishes between each type of Property procedure.
+> The **ProcStartLine** property treats **Sub** and **Function** procedures similarly, but distinguishes between each type of **Property** procedure.
 
 
 ## Example
@@ -79,4 +79,4 @@ MsgBox "The procedure " & strProc & " starts on line " & _
 
 
 
-[!include[Support and feedback](~/includes/feedback-boilerplate.md)]
+[!include[Support and feedback](~/includes/feedback-boilerplate.md)]

api/Access.RowSourceType.md

@@ -63,26 +63,32 @@ The following user-defined function returns a list of the next four Mondays foll
 
 
 ```vb
-Function ListMondays(fld As Control,id As Variant, _ 
- row As Variant,col As Variant,code As Variant) _ 
- As Variant 
- Dim intOffset As Integer 
- Select Case code 
- Case acLBInitialize ' Initialize. 
- ListMondays = True 
- Case acLBOpen ' Open. 
- ListMondays = Timer ' Unique ID. 
- Case acLBGetRowCount ' Get rows. 
- ListMondays = 4 
- Case acLBGetColumnCount ' Get columns. 
- ListMondays = 1 
- Case acLBGetColumnWidth ' Get column width. 
- ListMondays = -1 ' Use default width. 
- Case acLBGetValue ' Get the data. 
- intOffset = Abs((9 - Weekday(Now))Mod 7) 
- ListMondays = Format(Now() + _ 
- intOffset + 7 * row,"mmmm d") 
- End Select 
+Public Function ListMondays(fld As Control, id As Variant, _
+    row As Variant, col As Variant, code As Variant) _ 
+    As Variant 
+
+    Dim Offset      As Integer
+    Dim WeekdayDate As Date 
+ 
+    Select Case code 
+        Case acLBInitialize     ' Initialize. 
+            ListMondays = True 
+        Case acLBOpen           ' Open. 
+            ListMondays = Timer ' Unique ID. 
+        Case acLBGetRowCount    ' Get rows. 
+            ListMondays = 4 
+        Case acLBGetColumnCount ' Get columns. 
+            ListMondays = 1 
+        Case acLBGetColumnWidth ' Get column width. 
+            ListMondays = -1    ' Use default width. 
+        Case acLBGetValue       ' Get the data. 
+            Offset = Abs((9 - Weekday(Date)) Mod 7) 
+            WeekdayDate = DateAdd("d", _
+                Offset + 7 * row, Date) 
+            ListMondays = Format(WeekdayDate, _
+                "mmmm d") 
+    End Select 
+
 End Function
 ```
 
@@ -91,39 +97,43 @@ End Function
 The next example uses a static array to store the names of the databases in the current directory. To call this function, enter **ListMDBs** as the **RowSourceType** property setting and leave the **RowSource** property setting blank.
 
 ```vb
-Function ListMDBs(fld As Control, id As Variant, _ 
- row As Variant, col As Variant, _ 
- code As Variant) As Variant 
- Static dbs(127) As String, Entries As Integer 
- Dim ReturnVal As Variant 
- ReturnVal = Null 
- Select Case code 
- Case acLBInitialize ' Initialize. 
- Entries = 0 
- dbs(Entries ) = Dir("*.MDB") 
- Do Until dbs(Entries) = "" Or Entries >= 127 
- Entries = Entries+1 
- dbs(Entries) = Dir 
- Loop 
- ReturnVal = Entries 
- Case acLBOpen ' Open. 
- ' Generate unique ID for control. 
- ReturnVal = Timer 
- Case acLBGetRowCount ' Get number of rows. 
- ReturnVal = Entries 
- Case acLBGetColumnCount ' Get number of columns. 
- ReturnVal = 1 
- Case acLBGetColumnWidth ' Column width. 
- ' -1 forces use of default width. 
- ReturnVal = -1 
- Case acLBGetValue ' Get data. 
- ReturnVal = dbs(row) 
- Case acLBEnd ' End. 
- Erase dbs 
- End Select 
- ListMDBs = ReturnVal 
+Public Function ListMDBs(fld As Control, id As Variant, _ 
+    row As Variant, col As Variant, code As Variant) _
+    As Variant 
+    
+    Static dbs(127) As String
+    Static Entries  As Integer 
+    Dim ReturnVal   As Variant 
+
+    ReturnVal = Null 
+    Select Case code 
+        Case acLBInitialize     ' Initialize. 
+            Entries = 0 
+            dbs(Entries ) = Dir("*.MDB") 
+            Do Until dbs(Entries) = "" Or Entries >= 127 
+                Entries = Entries + 1 
+                dbs(Entries) = Dir 
+            Loop 
+            ReturnVal = Entries 
+        Case acLBOpen           ' Open. 
+            ' Generate unique ID for control. 
+            ReturnVal = Timer 
+        Case acLBGetRowCount    ' Get number of rows. 
+            ReturnVal = Entries 
+        Case acLBGetColumnCount ' Get number of columns. 
+            ReturnVal = 1 
+        Case acLBGetColumnWidth ' Column width. 
+            ' -1 forces use of default width. 
+            ReturnVal = -1 
+        Case acLBGetValue       ' Get data. 
+            ReturnVal = dbs(row) 
+        Case acLBEnd            ' End. 
+            Erase dbs 
+    End Select 
+    ListMDBs = ReturnVal 
+    
 End Function
 ```
 
 
-[!include[Support and feedback](~/includes/feedback-boilerplate.md)]
+[!include[Support and feedback](~/includes/feedback-boilerplate.md)]