0

I am newbies in VBA. Recently I have created a "Search Form". The search data have 21 columns which will display in the "Search List Box". Unfortunately, it only can show until 9 columns and will return an error for the 10 and above data. Your guidance is very much appreciated. Below is my code:

Private Sub dtlist_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    CDSv1.dptname.Text = CDSv1.dtlist.Column(1)
    CDSv1.dptadd.Text = CDSv1.dtlist.Column(2)
    CDSv1.divcom.Text = CDSv1.dtlist.Column(3)
    CDSv1.ctcname.Text = CDSv1.dtlist.Column(4)
    CDSv1.ctcno.Text = CDSv1.dtlist.Column(5)
    CDSv1.nid.Text = CDSv1.dtlist.Column(6)
    CDSv1.serno.Text = CDSv1.dtlist.Column(7)
    CDSv1.ipinfo.Text = CDSv1.dtlist.Column(8)
    CDSv1.snet.Text = CDSv1.dtlist.Column(9)
    CDSv1.gateway.Text = CDSv1.dtlist.Column(10) '<---- The error starts here.
    CDSv1.vlinfo.Text = CDSv1.dtlist.Column(11)
    CDSv1.netcatcom.Text = CDSv1.dtlist.Column(12)
    CDSv1.netsubcatcom.Text = CDSv1.dtlist.Column(13)
    CDSv1.ispcom.Text = CDSv1.dtlist.Column(14)
    CDSv1.snscom.Text = CDSv1.dtlist.Column(15)
    CDSv1.cirt.Text = CDSv1.dtlist.Column(16)
    CDSv1.bdwh.Text = CDSv1.dtlist.Column(17)
    CDSv1.statcom.Text = CDSv1.dtlist.Column(18)
    CDSv1.remf.Text = CDSv1.dtlist.Column(20)
        
End Sub
Darren Bartrup-Cook
  • 18,362
  • 1
  • 23
  • 45
user20171875
  • 1
  • Guessing this is Excel or Word as sub is _(ByVal Cancel As MSForms.ReturnBoolean)_. Access would be _(Cancel As Integer)_.... I'll add an Excel tag as is most likely. – Darren Bartrup-Cook Oct 06 '22 at 10:11
  • What error does it return? I take it you're ignoring the first column - `Column(0)`? – Darren Bartrup-Cook Oct 06 '22 at 10:19
  • Run-time error"-2147024809(80070057)': Could not get column property. Invalid Argument. – user20171875 Oct 07 '22 at 02:47
  • These are Excel files. – user20171875 Oct 07 '22 at 06:18
  • Tried to reconstruct the line but still error. Totally NOOB :) CDSv1.recno.Text = CDSv1.dtlist.Column(0) CDSv1.dptname.Text = CDSv1.dtlist.Column(1) CDSv1.dptadd.Text = CDSv1.dtlist.Column(2) CDSv1.divcom.Text = CDSv1.dtlist.Column(3) CDSv1.ctcname.Text = CDSv1.dtlist.Column(4) CDSv1.ctcno.Text = CDSv1.dtlist.Column(5) CDSv1.nid.Text = CDSv1.dtlist.Column(6) CDSv1.serno.Text = CDSv1.dtlist.Column(7) CDSv1.ipinfo.Text = CDSv1.dtlist.Column(8) CDSv1.snet.Text = CDSv1.dtlist.Column(9) CDSv1.gateway.Text = CDSv1.dtlist.Column(10) CDSv1.vlinfo.Text = CDSv1.dtlist.Column(11) – user20171875 Oct 07 '22 at 06:20

0 Answers0