unable to get 2nd & 3rd column value from combobox
"Kaoli" schrieb im Newsbeitrag
...
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
|