make sure you have 3 in the 'number of columns' property of the combo box.
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".


"Kaoli" wrote:

I have a unbound combobox(cboPeriod) in header, I call the recordsource from
a table call tblPeriod which contain 3 fields 1st
[Period],2nd[FromDate],3rd[ToDate]

I have a validation which transaction date must within the FromDate and ToDate
but when I do as per below,

Let say in cboPeriod value = 201004(1st Value), 1/4/2010(2nd
value),30/4/2010(3rd Value)
1st Part to fill in the Yearmonth =me.cboperiod is ok, I can get the value
as 201004

but 2nd Part to validate the date with 1/4/2010 & 30/4/2010 I unable to get
the value, which return the value null.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.YearMonth) Then
Me.YearMonth = Me.CboPeriod
Else
End If

If Me.TranDate Me.CboPeriod.column(1) Or Me.TranDate
Me.CboPeriod.column(2) Then
MsgBox "Date not within the Period."
Cancel = True
End If
End Sub