database - Passing selected items from list box to a control source -


i'm trying pass selected items list box mover , assign control source "vocabularyfocus" junction table.

the "vocabularyfocus" junction table has 2 primary key fields "vocabidfk" , "unitidfk". intent assign selected items specific unit within course book.

i have following code list box, need vba procedure cmdassign_click() in order pass selected items unit specified in "txtunt" unbound box.

i have following code below:

option compare database option explicit  private sub cmdadd_click()  dim in_clause string: in_clause = "" dim strsql string, n integer  ' iterate build comma-separated list sql in() clause me.lfmvocabulary     n = 0 .listcount - 1        if .selected(n) = true            in_clause = in_clause & .itemdata(n) & ", "        end if     next n end  ' remove last comma , space in_clause = left(in_clause, len(in_clause) - 2)  strsql = "select * vocabulary" _            & " vocabid in (" & in_clause & ")"  me.lfmvocabularyassign.rowsource = strsql me.lfmvocabularyassign.rowsourcetype = "table/query" me.lfmvocabularyassign.requery  end sub  private sub cmdassign_click()    end sub  private sub cmdclearall1_click()   dim n integer      me.lfmvocabulary         n = 0 .listcount - 1             .selected(n) = false         next n     end  end sub  private sub cmdclearall2_click()   dim n integer      me.lfmvocabularyassign         n = 0 .listcount - 1             .selected(n) = false         next n     end  end sub  private sub cmdremove_click()  dim in_clause string: in_clause = "" dim strsql string, n integer 'set sql current sql strsql = me.lfmvocabularyassign.rowsource   ' iterate remove items comma-separated list sql in() clause me.lfmvocabularyassign     n = 0 .listcount - 1        if .selected(n) = true            if instr(1, strsql, ", " & .itemdata(n)) <> 0                 'not first item, nor item                 strsql = replace(strsql, ", " & .itemdata(n), "")            elseif instr(1, strsql, .itemdata(n) & ", ") <> 0                 'it's first item                 strsql = replace(strsql, .itemdata(n) & ", ", "")             else                 'it's item                 strsql = replace(strsql, .itemdata(n), "")             end if        end if     next n end   me.lfmvocabularyassign.rowsource = strsql me.lfmvocabularyassign.rowsourcetype = "table/query" me.lfmvocabularyassign.requery  end sub private sub cmdselectall1_click()   dim n integer      me.lfmvocabulary         n = 0 .listcount - 1             .selected(n) = true         next n     end  end sub   private sub cmdselectall2_click()  dim n integer      me.lfmvocabularyassign         n = 0 .listcount - 1             .selected(n) = true         next n     end end sub   private sub form_load()      me.lfmvocabularyassign.rowsource = ""     me.lfmvocabulary.rowsource = "vocabulary"     me.lfmvocabulary.rowsourcetype = "table/query"     me.lfmvocabulary.requery  end sub  private sub txtsearchbox_change()      dim strwhere string         me.txtsearchbox           if .text = vbnullstring           strwhere = "(false)"         else           strwhere = "vocabulary """ & .text & "*"""         end if         end          me.lfmvocabulary         .filter = strwhere         .filteron = true         end  end sub


Comments

Post a Comment

Popular posts from this blog

node.js - Node js - Trying to send POST request, but it is not loading javascript content -

i have been trying send post request website, , has not been loading full site. i guessing problem node js not loading javascript content, executing it. can see javascript in response, though never loads content javascript files producing in html. what mean is, doesn't execute javascript. how make node js code overcome this, , wait the full website load? have tried native code, , "request' module, both producing same errors. if helps, don't need native javascript. modules fine. some code have tried (request module): var options = { method: 'post', uri: 'https://url', formdata: { 'email': 'email', 'prize': '0', 'transactional': 'on' }, headers: { /* 'content-type': 'application/x-www-form-urlencoded' */ // set automatically } }; rp(options) .then(function (body) { console.log(body) }) .catch(function (err) { console.log(err) }); when fetch content...
Read more

javascript - Replicate keyboard event with html button -

i have tried few ways make happen. have javascript pinball game uses keyboard keys controls. converting application touch screen display. workaround, hoping overlay buttons when clicked simulate keyboard strokes. have done research , sounds should work. using jquery v3.2.1 here things have tried far... html element: <input type="button" class="coil"></input> $('.coil').trigger({type: 'keydown', which: 40, keycode: 40}); with this, not errors, nothing happens. var coilkey = $('body').keydown(function(e) { switch (e.keycode) { case 40: break;} }) $('.coil').click(coilkey); this 1 returns error in console... ((jquery.event.special[handleobj.origtype] || (intermediate value)).handle || handleobj.handler).apply not function below javascript game engine handles key listeners... addkeylistener: function (keyandlistener) { this.keylisteners.push(keyandlistener); }, // gi...
Read more

javascript - Web audio api 5.1 surround example not working in firefox -

i've been playing lott lately web audio api on both firefox , chrome. few days ago started experiment surround set. when trying surround audio in web audio api came notice example works fine in chrome v59 not in firefox v54. // create web audio api context var audioctx = new (window.audiocontext || window.webkitaudiocontext)(); audioctx.destination.channelinterpretation = 'discrete'; audioctx.destination.channelcountmode = 'explicit'; audioctx.destination.channelcount = 6; var oscillators = []; var merger = audioctx.createchannelmerger(6); console.log(audioctx.destination, merger); //merger.channelinterpretation = 'discrete'; //merger.channelcountmode = 'explicit'; //merger.channelcount = 6; var addoscilator = function(channel, frequency) { var oscillator = audioctx.createoscillator(); oscillator.frequency.value = frequency; // value in hertz oscillator.connect(merger,0,channel); oscillator.start(); oscillators.push(o...
Read more