Getting value of listbox

[Ben2k]

Hi,

I have two listboxes, populated as follows

Sub Form_Load()

Me.trade1.RowSource = "SELECT COUNT(Qry_Summary_GetAllDeals.Type) FROM Qry_Summary_GetAllDeals WHERE (((Qry_Summary_GetAllDeals.Type)=""trade""));"

Me.trade4.RowSource = "SELECT COUNT(Qry_Summary_GetAllDeals.Type) FROM Qry_Summary_GetAllDeals WHERE (((Qry_Summary_GetAllDeals.Type)=""trade"") AND ((Qry_Summary_GetAllDeals.Finance)>0));"

I then want to use the values of the two listboxes in a calculation

Dim trade5value As Integer
trade5value = (trade4.Value / trade1.Value) * 100
Me.trade5.Value = trade5value

This returns an error "invalid use of null",

Is this due to the listbox having nothing selected? If so how can I select its value in code?

Thanks

 

[smozgur]

Hi Ben2k

Is this due to the listbox having nothing selected?

Yes.

If so how can I select its value in code?

To select a default item (if the listbox is not empty)

Me.trade1.RowSource = "SELECT COUNT(Qry_Summary_GetAllDeals.Type) FROM Qry_Summary_GetAllDeals WHERE (((Qry_Summary_GetAllDeals.Type)=""trade""));" 

if Me.trade1.listcount>0 then
 Me.trade1.selected(0)=True
end if

Me.trade4.RowSource = "SELECT COUNT(Qry_Summary_GetAllDeals.Type) FROM Qry_Summary_GetAllDeals WHERE (((Qry_Summary_GetAllDeals.Type)=""trade"") AND ((Qry_Summary_GetAllDeals.Finance)>0));" 

if Me.trade4.listcount>0 then
 Me.trade4.selected(0)=True
end if

I hope it helps.

Suat