[AccessD] A2002: DateAdd From a Combo box

Rocky Smolin rockysmolin at bchacc.com
Tue Nov 27 19:19:08 CST 2012


Yes, much more compact.   

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Tuesday, November 27, 2012 4:47 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] A2002: DateAdd From a Combo box


I'd build the combobox with 3 columns - 2 with length 0 so that they don't
display.

 Every Day; "d"; 1
Every Week; "ww";1
Every Month; "m"; 1
Every 3 months; "m", 3
Every 6 months; "m", 6

Then make
txtNewDate = DateAdd(combo.column(2),combo.column(2),Date())

--
Stuart

On 27 Nov 2012 at 16:29, Rocky Smolin wrote:

>  
> I'd use the Select Case Function.  In your combo - 2 columns - width 
> 0";1.5"; row source:
> 
> 1;Every Day;2;Every Week;3;Every Month;...etc.
> 
> Then in the After Update event of the combo box
> 
> Select Case Me.ComboBox
>      Case 1
>           Me.txtNewDateDue = DateAdd("d",1,NextDueDate)
>      Case 2
>           Me.txtNewDateDue = DateAdd("d",7,NextDueDate)
>      .
>      .
>      .
>      .
>      .
> End Select
> 
> That work?
> 
> Rocky
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren
> Sent: Tuesday, November 27, 2012 4:04 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2002: DateAdd From a Combo box
> 
> Hi David and Rocky
> 
> Thanks for the swift replies.
> 
> David, I may need to look at your method.
> Problem is, general users will be 'adding or editing' these items for 
> the combo (via a popup).
> So I think it would mean writing more code (mids and lefts etc.) to 
> determine the bits (Integers/months) from the Date Add function.
> I don't really want them doing the individual data entry for the 
> integers/months. The DateAdd edits are more than enough.
> 
> Rocky, yes that's what I'm trying to do -  without the case functions. 
> So something like...
> 
> Me.txtNewDateDue = DateAdd("m", 2, Now())
> 
> Works fine - But how do I do...
> 
> Me.txtNewDateDue = Me.cboDateAddValue.Column(1)
> 
> Many thanks in advance
> 
> Darren
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> Sent: Wednesday, 28 November 2012 10:41 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2002: DateAdd From a Combo box
> 
> How about a hidden column in the combo box with a sequence number and 
> when the user selects one from the combo box, in the after update 
> event put a Select Case and run the Date Add that you want?
> 
> Rocky
>  
> 
> -----Original Message-----From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren
> Sent: Tuesday, November 27, 2012 3:08 PM
> To: AccessD
> Subject: [AccessD] A2002: DateAdd From a Combo box
> 
> Hi Y'all
> 
> I am storing some DateAdd functions in a 2 column table to give users 
> a list of choices for automatically creating a new "next due date"
> Values in the table look like this
> 
> DateAddDescription   DateAddvalue
> -----------------------------------------------------
> Every Day                     DateAdd("d",1,NextDueDate)
> Every Week                  DateAdd("d",7,NextDueDate)
> Every Month                DateAdd("m",1,NextDueDate)
> Every 3 Months           DateAdd("m",3,NextDueDate)
> Every 6 Months           DateAdd("m",6,NextDueDate)
> 
> When a user selects one of these items from the combo I'd like the 
> actual Date Add function selected, to be applied to the actual "next 
> due date" on the form Assume the "next due date" is blank in a new 
> record, once a user selects a value from the combo, say....the 4th one
>       DateAdd("m",1,NextDueDate)
> I'd like the new due date on the form to be "2013-2-28"
> Make sense?
> Many thanks in advance
> Darren
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list