hai, im trying to fill up textbox and combobox from selected index in listbox. but when i click the button , it display the Could not get list property. invalid argument error. here is my code. highlight error is at txtYOB.value
Code
If ListBox1.ListIndex <> -1 Then
With ListBox1
txtID.Value = .List(.ListIndex, 0)
cmbProvince.Value = .List(.ListIndex, 1)
cmbDistrict.Value = .List(.ListIndex, 2)
cmbCommune.Value = .List(.ListIndex, 3)
cmbVillage.Value = .List(.ListIndex, 4)
txtClient.Value = .List(.ListIndex, 5)
txtClientID.Value = .List(.ListIndex, 6)
txtDate.Value = .List(.ListIndex, 7)
cmbSex.Value = .List(.ListIndex, 8)
txtDOB.Value = .List(.ListIndex, 9)
txtYOB.Value = .List(.ListIndex, 10)
cmbClientType.Value = .List(.ListIndex, 11)
txtClientDS.Value = .List(.ListIndex, 12)
cmbClientStatus.Value = .List(.ListIndex, 13)
cmbBusinessType.Value = .List(.ListIndex, 14)
cmbClientCategory.Value = .List(.ListIndex, 15)
cmbGenderedHHType.Value = .List(.ListIndex, 16)
txtAdultF.Value = .List(.ListIndex, 17)
txtAdultM.Value = .List(.ListIndex, 18)
txtChildF.Value = .List(.ListIndex, 19)
txtChildM.Value = .List(.ListIndex, 20)
txtHeadName.Value = .List(.ListIndex, 21)
txtBeneficiary.Value = .List(.ListIndex, 22)
txtLatitude.Value = .List(.ListIndex, 23)
txtLongitude.Value = .List(.ListIndex, 24)
txtAlt.Value = .List(.ListIndex, 25)
txtPhone.Value = .List(.ListIndex, 26)
End With
Else
MsgBox " Any listbox item isn't selected !", vbCritical, ""
End If