Microsoft KB Archive/209253

= ACC2000: Form Controls to Increment and Decrement a Date =

Article ID: 209253

Article Last Modified on 10/11/2006

-

APPLIES TO


 * Microsoft Access 2000 Standard Edition

-



This article was previously published under Q209253



Moderate: Requires basic macro, coding, and interoperability skills.



SUMMARY
This article shows you how to create form controls that increment or decrement a date. After a date control is initialized to the date stored in the computer, you can use the command buttons to increment or decrement the displayed date.



MORE INFORMATION
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following example demonstrates how to create controls on a form that you can use to increment or decrement a date. It involves a custom function that can be used to increment or decrement any control on the calling form that has a number or date value. The IncOrDecDate function takes a negative or positive integer (in this case a -1 or 1), to indicate how much you want to increment or decrement the date. It also requires the name of the control where the date is located. To try it, follow these steps:  Create a new Access database.  Create a new module and type the following code: Option Compare Database

Function IncOrDecDate(intIncOrDec As Integer, strDateCtrl)

Dim intI As Integer Dim objDateCtrl As Object

For intI = 1 To 1500           ' Start loop. If intI Mod 100 = 0 Then   ' If loop has repeated ' 100 times. DoEvents                ' Yield to operating ' system. End If Next intI

Set objDateCtrl = Screen.ActiveForm.Controls(strDateCtrl)

objDateCtrl.Value = objDateCtrl.Value + intIncOrDec

End Function   Create a form not based on any table or query with the following specifications:   Form: Date Selector --  Caption: Date Selector

Text Box --  Name: Call Date Format: General Date Default Value: =Date Locked: Yes SpecialEffect: Sunken

Object: Command Button ---  Name: Decrease Caption: < AutoRepeat: Yes OnClick: Change Date

Object: Command Button ---  Name: Advance Caption: > AutoRepeat: Yes OnClick: Change Date  Set the OnClick property of the Decrease command button, to the following expression:

=IncOrDecDate(-1,"Call Date")

The "-1" indicates that the Call Date control should be decremented by 1. Set the OnClick property of the Advance command button, to the following expression:

=IncOrDecDate(1,"Call Date")

The "1" indicates that the Call Date control should be incremented by 1. Open the Date Selector form. The date defaults to your computer's system date. Click the > button to increase the date. Click the < button to decrease the date.</li></ol>

The date continues to change while the button is depressed. Note that although the pointer can be moved into the Date text box with the TAB key, the date cannot be changed except by using the command buttons.

<div class="references_section">