vba - MS ACCESS Passing Database Property on creating new database? -


i`m trying create deploying databases distribution. create small databases main database , after attached mail , send guys. why have long story have it.

i can create databases transfer tables queries not know how send properties, below. , if has way of doing thats fine too. have distributes in 10 different places. need there in locked mode , pop form automatically.

public function fnc_createaccesschicago()           dim acapp access.application     set acapp = new access.application     acapp.application.newcurrentdatabase ("c:\testtest\chicagpdatabase")  ------ acapp.properties("startupform") = "frmassetchicago" ----      acapp.quit    end function  public function fnc_transfers()     docmd.transferdatabase acexport, "microsoft access", "c:\testtest\chicagodatabase.accdb", actable, "tblallasset", "tblallasset"     docmd.transferdatabase acexport, "microsoft access", "c:\testtest\chicagodatabase.accdb", acquery, "qryassetchicago", "qryassetchicago"     docmd.transferdatabase acexport, "microsoft access", "c:\testtest\chicagodatabase.accdb", acform, "frmassetchicago", "frmassetchicagof" end function

try this

public sub copyproperties(dstdbname string) ' copy properties currentdb() dstdbname     dim dstdb database     dim srcdb database     dim ws workspace     dim srcp property     dim dstp property      set srcdb = currdb()     set ws = defaultworkspaceclone()     set dstdb = ws.opendatabase(dstdbname)      each srcp in srcdb.properties         debug.print srcp.name,         if (srcp.name <> "name") , (srcp.name <> "connection")             if (nz(srcp.value, "") <> "")                 set dstp = dstdb.createproperty(srcp.name, srcp.type, nz(srcp.value, ""))                 on error resume next                 dstdb.properties.append dstp                 dstdb.properties(srcp.name).value = srcp.value                 on error goto 0             end if             debug.print "set", srcp.value         end if         debug.print     next srcp     dstdb.properties.refresh     dstdb.close     set dstdb = nothing     set srcdb = nothing     set ws = nothing end sub

Comments

Post a Comment

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

rewrite - Trouble with Wordpress multiple custom querystrings -

i'm working on adding multiple querystring , doesn't seem work. i've found codes seems work others might i'm missing something. i want like: http://mydomain.com/board/?getyear=2013&getsometext2=sometext to http://mydomain.com/board/2013/sometext/ i added code below functions.php file. doesn't seem work should though. this works. echoing querystring gets both variable without problem. http://mydomain.com/board/2013/sometext/ but doesn't. tested querystring vis isset() seems nothing being set/get http://mydomain.com/board/2013/ function add_query_vars($vars) { $vars[] = "getyear"; $vars[] = "getsometext2"; return $vars; } add_filter('query_vars', 'add_query_vars'); function add_rewrite_rules($arules) { $anewrules = array('board/([^/]+)/([^/]+)/?$' => 'index.php?pagename=board&getyear=$matches[1]&getsometext2=$matches[2]'); $arules = $a...
Read more