excel - Handle many ComboBox_Change Event -


well i'm new in vba programming. i'm creating form helps me quotations, , there part of form shows items i've registered, this:

my form comboboxes

so purpose of comboboxes change or delete correponding item according option choose, , have lot of them in userform, making hard create many combobox event programs (like combobox1_change, combobox2_change, ... combobox50_change). , then, main question is: how in vba without loosing lot of time making same code different objects? create 1 code comboboxes.

i understand can in way below, i'm sure has better way do.

sub combobox1_change()   call mycode end sub  sub combobox2_change()   call mycode end sub  sub combobox50_change()   call mycode end sub  sub mycode() i=1 50    if controls("combobox" & i).value = "change"       call mysecondcode    end if next end sub

i spent 30 minutes searching question, didn't find me. hope guys understood question. in advance.

update:

axel richter, said in comments, i'm having problem in this:

private function isnoktest()  if prod1.value = "" or _     prod2.value = "" or _     tecido.value = "" or _     tamanhos.value = "" or _     unitario.value = "" or _     quantidade.value = ""          isnoktest = true end if  end function   private mycbswithevents collection private sub userform_initialize()  set mycbswithevents = new collection  each c in me.controls   if left(c.name, 8) = "combobox"    c.additem "change"    c.additem "delete"    set mycbwithevents = new clscbwithevents    set mycbwithevents.mycb = c    mycbswithevents.add mycbwithevents   end if  next   end sub  ' ' ' 'datatext.value = format(now, "dd/mm/yyyy") 'bordadoqty.value = 1 'estampaqty.value = 1 'itemlab.caption = 1 '

when code added project, event in class module doesn't work, apparently isn't linked "events", don't know happened.

this can achieved using class module handles events.

insert class module in project. name clscbwithevents. in class module have following code:

public withevents mycb combobox  private sub mycb_change()  if me.mycb.value = "change"   msgbox me.mycb.name & " has changed ""change"""  elseif me.mycb.value = "delete"   msgbox me.mycb.name & " has changed ""delete"""  end if end sub

in user form have following code:

private mycbswithevents collection  private sub userform_initialize()  set mycbswithevents = new collection  each c in me.controls   if typename(c) = "combobox"    c.additem "change"    c.additem "delete"    set mycbwithevents = new clscbwithevents    set mycbwithevents.mycb = c    mycbswithevents.add mycbwithevents   end if  next end sub

now every combobox in user form use event handling.


Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more

ruby on rails - Seeing duplicate requests handled with Unicorn -

recently upgraded our ec2 instances c3.large in order boost more unicorn workers handle increased traffic our site. (6xworkers per machine - 2 ec2 instances). when did this, started seeing duplicate records being created! looks somehow, maybe 2 unicorn workers attempting process same request? in nginx logs see 1 [post] request particular rails controller - yet 2 records being created in database. i'm hitting kind of race condition issue - have no idea how debug this. doesn't happen time, when it's frustrating well. noticed 2 database records within 5 seconds of each other. (and yes disable button when user clicks submit button). unicorn 4.8.2 ruby 1.9.3 rails 3.2.14 any great! thanks! although may not fix problem, upgrade ruby 2.0.0. there blog mentioning idea upgrade ruby 2.0.0 if using unicorn. for example: https://www.digitalocean.com/community/articles/how-to-optimize-unicorn-workers-in-a-ruby-on-rails-app specifically: if using ruby 1.9, ...
Read more