user forms

[steveshos]

Hi,

I am building a user form for a journal entry sheet. I am trying to
use the next index value in user chosen combo field. for example, if
the user choices Jan-06 from a combo box, I want the reverse date to be
automatically chosen as 'feb-06. any ideas

 

[Tom Ogilvy]

Dim dt as Date, dt1 as Date
dt = cDate(Combobox1.Value)
dt1 = DateSerial(year(date),month(date)+1,1)
Combobox2.Value = format(dt1,"mmm-yy")

 

[steveshos]

I am running into another problem. I want to use the date in a for
with the following MM-YY, The combo box is populated with AddITems suc
as JAN-06, FEB-06. The problem that I am having is that when I d
cdate, it is recognizing the dates as january 6, 2005, and february 6
2005. The research that I have done, says that if a year is no
specified, than the year is assumed to be the systems current year. i
there a way to specify that JAN-06 that the Jan represents the month, 0
represents the year and the day is missing