If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
unable to get 2nd & 3rd column value from combobox
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 |
#2
|
|||
|
|||
unable to get 2nd & 3rd column value from combobox
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 |
#3
|
|||
|
|||
unable to get 2nd & 3rd column value from combobox
Dear Dorian,
Do you mean Column Count? Yes I already set Column Count 3 "Dorian" wrote: 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 |
#4
|
|||
|
|||
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 |
Thread Tools | |
Display Modes | |
|
|