sql - BeforeDoubleClick to run Macro with the cell value as a variable -


the below code have in sheets ("view code") page , calls macro in module page. double click variable target reason doesn't pull it. 

private sub gobeforedoubleclick3(byval target range, cancel boolean)   if intersect(target, range("a3:a1000")) nothing exit sub     lot = target.value     cancel = true     call lsrpull      'worksheets("lsr").activate end sub

my first 2 events work fine simple go page macros. 

private sub gobeforedoubleclick2(byval target range, cancel boolean)      if intersect(target, range("i3:i1000")) nothing exit sub         prc = target.value         cancel = true         worksheets("tools").activate         activesheet.range("$a$2:$g$3000").autofilter field:=2, criteria1:=prc  end sub   private sub worksheet_beforedoubleclick(byval target range, cancel boolean)     on error resume next     gobeforedoubleclick1 target, cancel     gobeforedoubleclick2 target, cancel     gobeforedoubleclick3 target, cancel     application.enableevents = true     end sub

below code macro: im not sure if im suppose build sheet page or module code page.

sub lsrpull() '     application.screenupdating = false     application.calculation = xlmanual     dim sesora object    'declare object variable create instance view database     dim dbora object     'declare object variable open database     dim rsora object     'delcare object variable create snapshot of database      dim sql1 string      'declare string variable of sql query     'dim lottarget string      'dim adscexclude string      set sesora = createobject("oracleinprocserver.xorasession")     'sets database session     set dbora = sesora.opendatabase("mfginfo.world", "u_msas2/sa1sfby", 0)    'assign database session      sheets("lsr").select     range("$a$3:$m$65000").select             'selects possible previous data     selection.clearcontents         sql1 = " select count(reason) nmb, max(date), reason adsc, message_key tool "     sql1 = sql1 + " table"     sql1 = sql1 + " date > sysdate - 1/24 "     sql1 = sql1 + " , inventory  '%" & lot & "%' "     sql1 = sql1 + " group reason, message_key  "     sql1 = sql1 + " order max(date) desc "       set rsora = dbora.dbcreatedynaset(sql1, 0)  'sets snapshot of query script have written     rsora.copytoclipboard                       'copies snapshot of database clipboard     sheets("lsr").select     on error resume next     range("a3").pastespecial                    'pastes snapshot excel     range("a3").select     end sub


Comments

Post a Comment

Popular posts from this blog

jOOQ update returning clause with Oracle -

according http://www.jooq.org/doc/3.8/manual/sql-building/sql-statements/update-statement/ jooq doesn't support returning clause in update statements databases except firebird , postgres. does know, still correct oracle jooq? according oracle's documentation, oracle db supports returning clase delete, insert, or update statements. incorrect manual you're right - manual wrong , should fixed: https://github.com/jooq/jooq/issues/5470 single row update returning jooq 3.8 added support single row update .. returning statements. internally, uses callablestatement , pl/sql block of form: begin update "my_table" set "my_table"."column" = 'xyz' "my_table"."id" = 1 returning "my_table"."id", "my_table"."column" ?, ?; ? := sql%rowcount; end; the relevant issue is: https://github.com/jooq/jooq/issues/5190 multi row update returning a...
Read more

java - Warning equals/hashCode on @Data annotation lombok with inheritance -

i have entity inherits other. on other hand, i'm using lombok project reduce boilerplate code, put @data annotation. annotation @data inheritance produces next warning: generating equals/hashcode implementation without call superclass, though class not extend java.lang.object. if intentional, add '@equalsandhashcode(callsuper=false)' type. is advisable add annotation @equalsandhashcode (callsuper = true) or @equalsandhashcode (callsuper = false) ? if not added, 1 callsuper=false or callsuper=true ? the default value false . 1 if don't specify , ignore warning. yes, recommended add @equalsandhashcode annotation on @data annotated classes extend else object. cannot tell if need true or false , depends on class hierarchy, , need examined on case-by-case basis. however, project or package, can configure in lombok.config call super methods if not direct subclass of object. lombok.equalsandhashcode.callsuper = call for configuration system ...
Read more

java - BasicPathUsageException: Cannot join to attribute of basic type -

i using java 8 jpa (hibernate 5.2.1). have clause works perfectly, until introduce clause make use foreign key table values too. i getting following error: basicpathusageexception: cannot join attribute of basic type i think problem related fact have join table, , not sure how create join using join table. employee - employee_category - category model (employee.java): @manytomany(cascade = cascadetype.all, fetch=fetchtype.eager) @jointable ( name="employee_category", joincolumns={ @joincolumn(name="emp_id", referencedcolumnname="id") }, inversejoincolumns={ @joincolumn(name="cat_id", referencedcolumnname="id") } ) private set<category> categories; model (category.java): @id private string id; jpa when introduce following code, fails error above (i think problem new piece of code): join<t, category> category = from.join("id"); predicates.add(criteriabuilder.like(category....
Read more