ACC: Can't Paste Append Using Input Mask Based on Short Date |
The information in this article applies to:
-
Microsoft Access versions 7.0, 97
SYMPTOMS
Moderate: Requires basic macro, coding, and interoperability skills.
When you use the Paste Append command to append a record in Form view of a
form containing a control with any variation of the Short Date in its
InputMask property, the appended record contains a Null value in that
control.
The Short Date format appears in the InputMask property as something
resembling "99/99/00;0;_".
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.
- Start Microsoft Access and open the sample database Northwind.mdb.
- Open the Employees (page break) form in Design view (or the Employees
form in version 7.0).
- Select the HireDate text box control, and then view its properties.
- Click the Build button next to the InputMask property to invoke the
Input Mask Wizard. Click Short Date, and then click Finish.
- On the View menu, click Code.
- Type the following line in the Declarations section of the form module:
Dim mstrIMask As String
- Type the following procedures:
Private Sub Form_BeforeInsert(Cancel As Integer)
mstrIMask = Me!HireDate.InputMask
Me!HireDate.InputMask = ""
End Sub
Private Sub HireDate_Enter()
If mstrIMask <> "" Then Me!HireDate.InputMask = mstrIMask
End Sub - Close the form module and switch to Form view.
- On the Edit menu, click Select Record.
- On the Edit menu, click Copy.
- On the Edit menu, click Paste Append.
- On the Edit menu, point to Go To and then click Last. Note that the
HireDate value is appended correctly.
STATUS
Microsoft has confirmed this to be a problem in Microsoft Access 7.0
and 97.
MORE INFORMATIONSteps to Reproduce Problem
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.
- Follow steps 1 through 4 in the "Resolutions" section of this article.
- Switch the form to Form view.
- On the Edit menu, click Select Record.
- On the Edit menu, click Copy.
- On the Edit menu, click Paste Append.
- On the Edit menu, point to GoTo and then click Last. Note that the
HireDate field is empty.
REFERENCES
For more information about input masks, search the Help Index for
"InputMask property," or ask the Microsoft Access 97 Office Assistant.
Keywords : FmsProb GnlDe GnlInpt
Version : 7.0 97
Platform : WINDOWS
Issue type : kbbug
|
|
![](/file/18315/Y2K_Resource_Nov99.iso/webcon~1/usa/year2k/kb/images/1ptrans.gif) |