vba - Linking Excel Tables in Access Gives Read-Only Error -

-

i have couple of excel 2010 files mapped , linked access 2010 database. need add file 3 mapped instead of two. linked excel file import , link tab under external database. seems okay. when run code re-maps excel file, gives me runtime error 3027: database or object read only. none of files or database read-only.

this code re-map files new location (ex. x-drive mail w-drive), add new excel file. should added here let me add new files?

private sub cmdacceptpath_click()  dim db dao.database dim rs dao.recordset dim strsql string dim strpath string dim strfilename string dim strsourcedb string dim strtablename string dim slist string dim gmsgboxtitle string on error goto error_handler:  docmd.setwarnings false strsourcedb = me.texcelpath.value set db = currentdb strsql = "update tblbackendfiles set setting=" & setdata(strsourcedb) & " code='sourceexcel'" docmd.runsql strsql  '-- verify linked tables refreshing strsql = "select setting, excelpath, excelrange tblbackendfiles code='sourceexcelwb'" set rs = db.openrecordset(strsql, dbopendynaset)  'open remapprogress docmd.openform "frmremapprogress"  slist = "" rs.movefirst while not rs.eof     strtablename = rs!setting     slist = slist & vbnewline & "deleting table: " & strtablename     forms!frmremapprogress.tbprogress = slist     if tableexists(strtablename)         docmd.deleteobject actable, strtablename     end if     rs.movenext wend  slist = "" '-- relink inventory database rs.movefirst while not rs.eof     slist = slist & vbnewline & "linking table: " & strtablename     forms!frmremapprogress.tbprogress = slist     forms!frmremapprogress.refresh     strtablename = rs!setting     strpath = strsourcedb & "\" & rs!excelpath     debug.print strpath     docmd.transferspreadsheet aclink, acspreadsheettypeexcel9, strtablename, strpath, true, rs!excelrange     rs.movenext wend rs.close msgbox "re-mapping excel links complete!"  goto exit_sub:  'if error occurs error_handler:     msgbox err.number & ": " & err.description, vbinformation + vbokonly, gmsgboxtitle  exit_sub: set db = nothing set rs = nothing docmd.setwarnings true  docmd.close acform, "frmremapprogress" docmd.close acform, "frmremapexcel"   end sub

you don't need delete , recreate link excel file. close linked table (if open) , replace excel file new copy.

when open linked table, read new file.


Comments

Post a Comment

Popular posts from this blog

javascript - gulp-nodemon - nodejs restart after file change - Error: listen EADDRINUSE events.js:85 -

-
i'm running nodejs 0.12.3 - gulp 3.10.8 , gulp-nodemon 2.0.3. gulpfile.js : gulp.task('serve', ['build'], function() { gulp.start('fb-flo'); nodemon({ script: paths.server, env: { 'node_env': 'development' }, // env: { 'node_env': 'production' }, execmap: { 'js': 'node_modules/babel/bin/babel-node --stage 1' //es7 cote server }, delay: '0ms', watch: ['src/shared/', 'src/server/'], ignore: ['src/shared/components'], tasks: function (changedfiles) { var tasks = []; changedfiles.foreach(function (file) { if (path.extname(file) === '.jsx' && !~tasks.indexof('bundlejs')) tasks.push('bundlejs'); if (path.extname(file) === '.less' && !~tasks.indexof('compileless')) tasks.push('compileless'); }); return tasks; } ...
Read more

Fatal Python error: Py_Initialize: unable to load the file system codec. ImportError: No module named 'encodings' -

-
i trying make simple python program opening list of webpages user manually download reports site. don't have previous experience preparing exe files.. , i'm in learning process python coding. of done on windows 7 x64 this python code: #!c:/python34/python.exe -u splinter import * import time import os import csv #---------------------------------- raporty = [] open('../raporty.csv', newline='') csvfile: contents = csv.reader(csvfile, delimiter=' ', quotechar='|') row in contents: r = ', '.join(row) r = r.replace(',','') raporty.append(r) #--not implemented yet zmienne = [] open('../zmienne.csv', newline='') csvfile: contents = csv.reader(csvfile, delimiter=' ', quotechar='|') row in contents: r = ', '.join(row) r = r.replace(',','') zmienne.append(r) print("start") browser = browser(...
Read more

javascript - oscilloscope of speaker input stops rendering after a few seconds -

-
the following script reads audio user's microphone , renders oscilloscope on html canvas. the source taken example of mozilla developer network: visualizations web audio api and here fiddle: http://jsfiddle.net/b7j8pktp/ mozgetusermedia (note: code has no fork mechanism different browsers: works firefox) it works fine few seconds , stops rendering. whereas works totally stable: http://mdn.github.io/voice-change-o-matic/ the problem can reduced following code. microphone activation icon (next the address bar in firefox) disappears after 5 seconds: navigator.mozgetusermedia({audio: true}, function() {}, function() {} ); ( http://jsfiddle.net/b7j8pktp/2/ ) this known bug in firefox. take stream getusermedia call , hook window so: navigator.mozgetusermedia({audio: true}, function(stream) { window.stream = stream; // rest of code }, function err() { // handle error }); hopefully can fixed soon. problem we're f...
Read more