access vba - VBA code does not work in some versions of Office, works in others -


number of query values , destination fields not same. debug redirects me line: dbs.execute strsql, dbfailonerror

here code:

public function getmatches(column1 string, column2 string)      dim dbs dao.database     dim rcrdstcolumn1 recordset     dim rcrdstcolumn2 recordset     dim defaulttable1 string     dim defaulttable2 string     dim strsql string     dim strsqlcolumn1 string     dim strsqlcolumn2 string     dim firstcurrentvalue string     dim secondcurrentvalue string     dim currentresultcomparison double     dim maxresultcomparison double      dim checkcolumn1 boolean     dim checkcolumn2 boolean      set dbs = currentdb      defaulttable1 = "cee_names_for_cust_des"     defaulttable2 = "gsndg_names"      'check  if column exists in table 1     checkcolumn1 = checkcolumn(column1, defaulttable1)     checkcolumn2 = checkcolumn(column2, defaulttable2)      if checkcolumn1 = false         msgbox ("column 1  not exist")     elseif checkcolumn2 = false         msgbox ("column 2 not exist")     else         strsqlcolumn1 = "select " & column1 & "  " & defaulttable1 & "  ;"         set rcrdstcolumn1 = dbs.openrecordset(strsqlcolumn1)          strsqlcolumn2 = "select " & column2 & " " & defaulttable2 & "  ;"           while not rcrdstcolumn1.eof             firstcurrentvalue = rcrdstcolumn1.fields(column1)             maxresultcomparison = 0              set rcrdstcolumn2 = dbs.openrecordset(strsqlcolumn2)              while not rcrdstcolumn2.eof                 secondcurrentvalue = rcrdstcolumn2.fields(column2)                  currentresultcomparison = modsimil.simil(firstcurrentvalue, secondcurrentvalue)                  strsql = "insert results(column1, column2, similarities)" _                         & " values( '" & clearstring(firstcurrentvalue) & "', '" & clearstring(secondcurrentvalue) & "', " & round(currentresultcomparison, 2) & " )"                 dbs.execute strsql, dbfailonerror                  if currentresultcomparison > maxresultcomparison                     maxresultcomparison = currentresultcomparison                 end if                  rcrdstcolumn2.movenext             loop             rcrdstcolumn1.movenext         loop      end if      dbs.close     set dbs = nothing  end function  function checkcolumn(strcolumn string, strtable string) boolean on error goto checkcolumnerror     if (dcount(strcolumn, strtable) = 0)         checkcolumn = false     else         checkcolumn = true     end if  checkcolumnerror:     if err.number = 2741         msgbox ("2741")     elseif checkcolumn         checkcolumn = true     else         checkcolumn = false     end if  end function  function clearresult()     dim dbs dao.database     dim strsql string      set dbs = currentdb      strsql = "delete results"     dbs.execute strsql, dbfailonerror      dbs.close     set dbs = nothing end function  function clearstring(str string) string     clearstring = replace(str, "'", "")   end function


Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more