excel - check for user input data in dynamically added ComboBoxes -

-

i using user form display acronyms found in document , definitions of acronyms. because won't know in advance how many there have created of labels, check boxes , comboboxes dynamically using loop below.

i stuck in want allow user able type in combobox new definition example 1 didn't exist in excel database or want use different definition 1 there (i aware bad practice unfortunately people don't stick standard list). works fine set problem want check if user has entered new or not.

so question is, there built in function or variable this? or there simple way it? (i have tried , tested code add string database not issue, checking if wasn't there before without running through entire database scratch again)

    = 1 n          checkboxi = "checkbox" &         labeli = "label" &         comboboxi = "combobox" &          'add checkbox, label , combobox         .multipage1.pages("page1").controls.add "forms.checkbox.1", checkboxi         .multipage1.pages("page1").controls.add "forms.label.1", labeli         .multipage1.pages("page1").controls.add "forms.combobox.1", comboboxi          'position check box         .multipage1.pages("page1").controls(checkboxi).left = leftspacing         .multipage1.pages("page1").controls(checkboxi).top = topspacing + rowheight *          'position labels         .multipage1.pages("page1").controls(labeli).left = leftspacing + 15         .multipage1.pages("page1").controls(labeli).top = topspacing + 2 + rowheight *         .multipage1.pages("page1").controls(labeli).caption = acronyms(i - 1)         .multipage1.pages("page1").controls(labeli).width = 70          'position combobox         .multipage1.pages("page1").controls(comboboxi).left = leftspacing + 100         .multipage1.pages("page1").controls(comboboxi).top = topspacing + rowheight *         .multipage1.pages("page1").controls(comboboxi).width = 300  'find definitions combobox     ' find definition excel document     objwbk.sheets("sheet1")         ' find range of cells data in excel doc         set rngsearch = .range(.range("a1"), .range("a" & .rows.count).end(-4162))          ' search in found range         set rngfound = rngsearch.find(what:=acronyms(i - 1), after:=.range("a1"), lookat:=1)          ' if nothing found count number of acronyms without definitions         if rngfound nothing               ' set cell variable in new table blank             redim targetcellvalue(0) string             targetcellvalue(0) = ""          ' if definition found enter cell variable         else              targetcellvalue(0) = .cells(rngfound.row, 2).value             'msgbox (targetcellvalue(0) & " " & 0)             firstaddress = rngfound.address               until rngfound nothing                 set rngfound = rngsearch.findnext(after:=rngfound)                  if rngfound.address = firstaddress                     exit                 elseif rngfound.address <> firstaddress                     j = j + 1                     redim preserve targetcellvalue(0 j) string                     targetcellvalue(j) = .cells(rngfound.row, 2).value                     'msgbox (targetcellvalue(j) & " " & j)                  end if             loop              end if         end          dim k integer         k = 0 j             .multipage1.pages("page1").controls(comboboxi).additem targetcellvalue(k)         next k         j = 0       next

i found way it. value typed in user not automatically included in combobox list therefore can check against list see if there before.

code:

for intcomboitem = 0 .multipage1.pages("page1").controls(comboboxi).listcount - 1     if .multipage1.pages("page1").controls(comboboxi).value = .multipage1.pages("page1").controls(comboboxi).list(intcomboitem)       newdef = false       exit    else       newdef = true    end if  next  if newdef    msgbox ("new def: " & .multipage1.pages("page1").controls(comboboxi).value) end if

Comments

Post a Comment

Popular posts from this blog

database - VFP Grid + SQL server 2008 - grid not showing correctly -

-
i having problem, have grid called "gridbasica" , this: thisform.gridbase.recordsource = "sgviemp" sgviemp cursor made executing select sqlserver command sqlexec. when want modify registry, go form , the update there. so, when come form grid, grid isnt grid anymore, big white rectangle. reading around said: delete recordsource , asingt again. thisform.gridbase.recordsource = "" *--i sqlexe here thisform.gridbase.recordsource = "sgviemp" i , works, but, when click button modify again cursos updated modify form doesnt load fields did first time. could me out that? thanks in advance. --------------- edit ------------------ i have been doing recommended: lnselect = select(0) n = sqlexec(thisform.conexion,"select emp_ccodigo codigo, emp_cnombre 'nombre o razon social', emp_cnumrif 'r.i.f' sgviempr","sgviemp1") set echo on suspend select sgviemp zap in sgviemp *-- browse *--zaps correct
Read more

jquery - Set jPicker field to empty value -

-
im using jpicker color selector in form. have clear value set window/icon 'no color selected' state. i've tried following: $(':input[name="color"]').val(''); //access value directly. (does not affect jpicker) 2: $.jpicker.list[0].color.active.val('hex', '', this); //set color black , input value 000000, instead of empty string 3: $.jpicker.list[0].color.active.val(null, '', this); //does nothing none of 3 methods seems behave properly. in advance. this works me :) $.jpicker.list[0].color.active.val('v', null); here example: http://jsfiddle.net/3up7n/
Read more

.htaccess - htaccess convert request to clean url and add slash at the end of the url -

-
ok , searched more 4 days , more 20 posts here in stach or in websites without kind of success first here htaccess file rewriteengine on rewriterule ^([a-za-z0-9_]+)/?$ index.php?page=$1 [nc] rewriterule ^([a-za-z0-9_]+)\/([a-za-z0-9_]+)\/?$ index.php?page=$1&action=$2 [nc] i tried many codes 1 worked me can call request , works me www.example.com/pagename => www.example.com/index.php?page=pagename here questions , please provide me information "in detail" understand code well 1- how convert request automatically www.example.com/index.php?page=pagename www.example.com/pagename 2- if tried add slash @ end shows me page without images or styling mean www.example.com/pagename => works www.example.com/pagename/ => doesn't work that's :) for first part need 301 rule this: rewritecond %{the_request} /index\.php\?page=([^\s&]+) [nc] rewriterule ^ /%1? [r=301,l] for second part use absolute path in css, js, images files r
Read more