vba - How to locate data source for unbound control? -

-

i've inherited access vba code , there controls on form (such listbox named lstorderid, mentioned below) have no rowsource property set (an empty string). in code , find statements in various places:

  • forms!frm_customer.lstorderid = rstcust!orderid ' set record set
  • forms!frm_customer.lstorderid.requery
  • me.lstorderid = me.lstorderid.itemdata(0) ' set first item in self

but in code lstorderid.rowsource being set.

how can requery called on listbox has no rowsource?

how can listbox set single value (rstcust!orderid) record set, unless list of values (although debugger shows integer in lstorderid.value)?

here more code:

dim rstcust recordset set db = currentdb set rstcust = db.openrecordset("select * orders custid=" & id & _                 "and datetaken =date() " & _                 "and vendorid='" & forms!frm_customer.cbovendorid & "'")  forms!frm_customer.lstorderid = rstcust!orderid  rstcust.close db.close

another section:

dim rstcust recordset dim blstatus boolean dim strsql string set db = currentdb        strsql = "select orders.orderid " & _             "from orders " & _         "where (((orders.datetaken)=#" & date & "#) " & _         "and ((orders.vendorid)='" & forms!frm_customer.cbovendorid & "') " & _         "and ((orders.custid)=" & id & "));"  set rstcust = db.openrecordset(strsql) forms!frm_customer.lstorderid = rstcust!orderid  forms!frm_customer.lstorderid.requery forms!frm_customer.lstorderid = rstcust!orderid  rstcust.close db.close

also this:

me.lstorderid.requery me.lstorderid = me.lstorderid.itemdata(0)


Comments

Post a Comment

Popular posts from this blog

javascript - Create websocket without connecting -

-
is there way create websocket without connecting right away? far think var ws = new websocket("ws://ws.my.url.com"); creates , connects right away. i'd create socket, define callbacks, , connect once user clicks connect button. thanks no. creating websocket means you've created connection server (or started process of connecting). there no such thing creating websocket isn't connecting yet. you create object store configuration parameters , tell object connect when wanted to, though i'm not sure why that's better creating actual websocket when connect made. or create function setup work , call function later when user clicks connect button.
Read more

how to do line continuation in perl debugger for entering raw multi-line text (EOT)? -

-
i learning perl. trying in debugger define variable, here-document. not know how enter same code in perl script, in debugger. due new lines present inside eot, makes hard in interactive debugger. here small example. have script: >cat ex1.perl #!/usr/bin/perl -w $s =<<'eot'; first line second line eot print $s now run , gives expected output: >perl ex1.perl first line second line now want same in debugger. tried this: >perl -de0 loading db routines perl5db.pl version 1.39_10 db<1> $s =<<'eot';\ cont: first line\ cont: second line\ cont: eot can't find string terminator "eot" anywhere before eof @ (eval 6) [/usr/share/perl/5.18/perl5db.pl:732] line 2. @ (eval 6)[/usr/share/perl/5.18/perl5db.pl:732] line 2. eval 'no strict; ($@, $!, $^e, $,, $/, $\\, $^w) = @db::saved;package main; $^d = $^d | $db::db_stop; $s =<<\'eot\'; first line second line eot; ' called @ /usr/share/perl...
Read more

android - Linear layout children not scrolling -

-
i'm trying add image views linear layout @ runtime. <linearlayout android:id="@+id/llfolderlayout" android:layout_width="match_parent" android:layout_height="0dp" android:layout_weight=".65" android:orientation="horizontal" android:scrollbars="horizontal" > </linearlayout> linearlayout llfoldertabs = (linearlayout) myfolder.findviewbyid(r.id.llfolderlayout); imageview imgtab = new imageview(activity); imgtab.setid(i); imgtab.settag(i); imgtab.setimagedrawable( mcontext.getresources().getdrawable(r.drawable.icon_folder_inactive)); if (i == 0) { imgtab.setimagedrawable( mcontext.getresources().getdrawable(r.drawable.icon_folder_active)); // imgtab.setpadding(10, 0, 4, 0); linearlayout.layoutparams lp = new linearlayout.layoutparams( 74, layoutparams.match_parent); lp.setmargins(15, 0, 0, 0); imgtab.setlayoutparams(lp); } else { // imgtab....
Read more