excel vba - Acces VBA: Discard "can't append" message (Primary Key Violation) -

-

i'm trying create macro in access 2010 opens excel file, runs macro in excel , imports given results. have 2 problems process.

  1. application.displayalerts = false in excel nevertheless displayalerts keep popping up. need special in macro access?
  2. alert "can't append due primary key violations" keeps popping up. know problem is, want ignore it. can use on error resume? want @ end messagebox the table hasn't append to. possible , can point me in right direction. tried errorhandeling don't know how make message popup @ end without interrupting process.

code:

private sub main_btn_click()          dim fileimport(0 3, 0 2) string          fileimport(0, 0) = "stock_cc"         fileimport(0, 1) = "f:\370\hyperviseur\situatie\macro\stock_getdata.xlsm"         fileimport(0, 2) = "getstock"          fileimport(1, 0) = "wips_cc"         fileimport(1, 1) = "f:\370\hyperviseur\situatie\macro\wips_getdata.xlsm"         fileimport(1, 2) = "update"          fileimport(2, 0) = "cca_cc"         fileimport(2, 1) = "f:\370\hyperviseur\situatie\macro\slacc.xls"         fileimport(2, 2) = "read_cca"          fileimport(3, 0) = "eps_cc"         fileimport(3, 1) = "f:\370\hyperviseur\situatie\macro\eps.xlsm"         fileimport(3, 2) = "update"           dim integer         = 0 ubound(fileimport, 1)             runmacroinxcel fileimport(i, 1), fileimport(i, 2)             transferspreadsheetfunction fileimport(i, 0), fileimport(i, 1)         next     end sub      private sub runmacroinexcel(fname string, macroname string)       dim xl object      'step 1:  start excel, open target workbook.        set xl = createobject("excel.application")         xl.workbooks.open (fname)         xl.visible = true           xl.run (macroname)            xl.activeworkbook.close (true)             xl.quit           set xl = nothing       end sub      private sub transferspreadsheetfunction(byval tablename string, byval filename string)         if fileexist(filename)             docmd.transferspreadsheet acimport, , tablename, filename, true         else         dim msg string             msg = "bestand niet gevonden" & str(err.number) & err.source & err.description             msgbox (msg)           end if     end sub       function fileexist(stestfile string) boolean        dim lsize long        on error resume next           lsize = -1           lsize = filelen(stestfile)        if lsize > -1           fileexist = true        else           fileexist = false        end if     end function

add error handling within loop, concatenate string variable, message box string:

dim integer, failedfiles string  failedfiles = "list of failed tables: " & vbnewline & vbnewline  = 0 ubound(fileimport, 1)     on error goto nextfile       call runmacroinxcel(fileimport(i, 1), fileimport(i, 2))       call transferspreadsheetfunction(fileimport(i, 0), fileimport(i, 1))   nextfile:       failedfiles = failedfiles & " " & fileimport(i,0) & vbnewline        resume nextfile2 nextfile2: next  msgbox failedfiles, vbinformation, "failed tables list"

Comments

Post a Comment

Popular posts from this blog

Java 3D LWJGL collision -

-
i making 3d java game lwjgl library, , wondering how add collision detection, player not go through models. i using obj models. here objloader class, loads models: package renderengine; import java.io.bufferedreader; import java.io.file; import java.io.filenotfoundexception; import java.io.filereader; import java.util.arraylist; import java.util.list; import models.rawmodel; import org.lwjgl.util.vector.vector2f; import org.lwjgl.util.vector.vector3f; public class objloader { public static rawmodel loadobjmodel(string filename, loader loader){ filereader fr = null; try { fr = new filereader(new file("res/"+filename+".obj")); } catch (filenotfoundexception e) { system.err.println("couldn't load file!"); e.printstacktrace(); } bufferedreader reader = new bufferedreader(fr); string line; list<vector3f> vertices = new arraylist<vector3f...
Read more

spring - SubProtocolWebSocketHandler - No handlers -

-
i have ugly error during deploying spring app on jboss. 18:11:16,025 error [org.apache.catalina.core.containerbase.[jboss.web].[default-host].[/consumer]] (msc service thread 1-7) exception sending context initialized event listener instance of class org.springframework.web.context.contextloaderlistener: org.springframework.context.applicationcontextexception: failed start bean 'subprotocolwebsockethandler'; nested exception java.lang.illegalargumentexception: no handlers @ org.springframework.context.support.defaultlifecycleprocessor.dostart(defaultlifecycleprocessor.java:176) [spring-context-4.1.3.release.jar:4.1.3.release] @ org.springframework.context.support.defaultlifecycleprocessor.access$200(defaultlifecycleprocessor.java:51) [spring-context-4.1.3.release.jar:4.1.3.release] @ org.springframework.context.support.defaultlifecycleprocessor$lifecyclegroup.start(defaultlifecycleprocessor.java:346) [spring-context-4.1.3.release.jar:4.1.3.release] @ org.s...
Read more

methods - python can't use function in submodule -

-
my folder structure this: pythonstuff/ program.py modulea/ __init__.py foo.py bar.py here's code bar.py : def hello(): print("hello, world!") here's code program.py : #!/usr/bin/env python3 modulea import bar bar.hello() i run $ python3 program.py somehow error: file "program.py", line 3, in <module> bar.hello() attributeerror: 'module' object has no attribute 'hello' edit: __init__.py file empty. edit2: after trying realized had bar.py in root directory contained hello() method. bar.py in modulea/ directory empty. add it import os __all__ = [] module in os.listdir(os.path.dirname(__file__)): if module != '__init__.py' , module[-3:] == '.py': __all__.append(module[:-3]) the init .py files required make python treat directories containing packages; done prevent directories common name, such string, unintentionally hiding v...
Read more