ACC: Cannot Paste Append Using Input Mask Based on Short Date (160575)

RESOLUTION

There a three workarounds:

• Change the control's InputMask property from Short Date to a different input mask, such as Medium Date.
• Open the form in Datasheet view before you execute the Paste Append command.
• Write code to temporarily move the control's input mask to a form level variable before you execute Paste Append, and then reassign the input mask from the variable to the control's InputMask property using the OnEnter property of the control.

Follow these steps to implement the third workaround:

The following example assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.

CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file, or perform these steps on a copy of the Northwind.mdb database.

1. Start Microsoft Access and open the sample database Northwind.mdb.
2. Open the Employees (page break) form in Design view (or the Employees form in version 7.0).
3. Select the HireDate text box control, and then view its properties.
4. Click the Build button next to the InputMask property to invoke the Input Mask Wizard. Click Short Date, and then click Finish.
5. On the View menu, click Code.
6. Type the following line in the Declarations section of the form module:
   
   Dim mstrIMask As String
7. Type the following procedures:

   Private Sub Form_BeforeInsert(Cancel As Integer)
      mstrIMask = Me!HireDate.InputMask
      Me!HireDate.InputMask = ""
   End Sub
   
   Private Sub Form_AfterInsert()
     If mstrIMask<> "" Then Me!Hiredate.Inputmask=mstrImask
   End Sub
   					

8. Close the form module and switch to Form view.
9. On the Edit menu, click Select Record.
10. On the Edit menu, click Copy.
11. On the Edit menu, click Paste Append.
12. On the Edit menu, point to Go To and then click Last. Note that the HireDate value is appended correctly.