ActiveGantt Activex control in MS Access 2013/365 - VBA Run-time errors on object methods -


i using ms access 365 (2013) , having run-time errors on simple calls object methods on activeganttvcctl object.

using supplied 'getting started' guide on activegantt website (http://www.sourcecodestore.com/article.aspx?id=15#create3), receiving run-time error (424 object required) on 1 of 4 lines of code following loop. code supplied here again convenience.

option compare database option explicit  public function activeganttvcctl1() activeganttvcctl     set activeganttvcctl1 = activeganttvcctl1a.object end function  private sub form_load()     dim integer     activeganttvcctl1.columns.add "column 1", "", 125, ""     activeganttvcctl1.columns.add "column 2", "", 100, ""     = 1 10         activeganttvcctl1.rows.add "k" & i, "row " & i, true, true, ""     next     activeganttvcctl1.currentviewobject.timeline.position dateserial(2011, 11, 2)     activeganttvcctl1.tasks.add "task 1", "k1", dateserial(2011, 11, 2) + timeserial(0, 0, 0), dateserial(2011, 11, 2) + timeserial(3, 0, 0), "", "", ""     activeganttvcctl1.tasks.add "task 2", "k2", dateserial(2011, 11, 2) + timeserial(1, 0, 0), dateserial(2011, 11, 2) + timeserial(4, 0, 0), "", "", ""     activeganttvcctl1.tasks.add "task 3", "k3", dateserial(2011, 11, 2) + timeserial(2, 0, 0), dateserial(2011, 11, 2) + timeserial(5, 0, 0), "", "", "" end sub

please note error not occur until line 

activeganttvcctl1.currentviewobject.timeline.position dateserial(2011, 11, 2)

the reference activeganttvc scheduler component library has been included (it given compile error otherwise) , activegantt activex control exists on form named activeganttvcctl1a. have tried declaring activeganttvcctl object within form_load() function rather in separate function same result.

i have determined @ point of run-time error, able access activeganttvcctl1.currentviewobject.timeline object can run getxml method on without problems, not position method.

i have tried commenting particular line out, receive same run-time error on next line of code (the call tasks.add). creating further calls columns.add or rows.add methods, however, still appears work fine @ position in code.

is possible there issues in ms access 2013 not appear in ms access 2010 control?

this happening because version of activeganttvc using uses agvc.datetime instead of regular vb/vba date. agvc.datetime introduced in activeganttvc allow millisecond, microsecond , nanosecond accuracy (which turned out not idea @ all), next version of activeganttvc (3.2.0) use regular vb6/vba date (coledatetime c++ users). in meantime have use helper function when specifying date in activeganttvc:

public function fromdate(byval dtdate date) agvc.datetime       dim dtreturn new agvc.datetime       dim lyear long       dim lmonth long       dim lday long       dim lhour long       dim lminute long       dim lsecond long       lyear = year(dtdate)       lmonth = month(dtdate)       lday = day(dtdate)       lhour = hour(dtdate)       lminute = minute(dtdate)       lsecond = second(dtdate)       dtreturn.initialize lyear, lmonth, lday, lhour, lminute, lsecond, 0, 0, 0       set fromdate = dtreturn end function   activeganttvcctl1.currentviewobject.timeline.position fromdate(dateserial(2011, 11, 2))

Comments

Post a Comment

Popular posts from this blog

commonjs - How to write a typescript definition file for a node module that exports a function? -

consider, toml node module can use: // toml.d.ts declare module toml { export function parse(value:string):any; } declare module "toml" { export = toml; } then: /// <reference path="../../../../../defs/toml/toml.d.ts"/> import toml = require('toml'); toml.parse(...); however, node module export single function, such 'glob' ( https://github.com/isaacs/node-glob ). the node usage of module be: var glob = require("glob") glob("*.js", {}, callback(err, files) { ... }); you'd naively expect this: // glob.d.ts declare function globs(paths:string, options:any, callback:{(err:any, files:string[]):void; ...but because typescripts 'import' semantics bit strange, seems can use 'import .. = require()' statement alias modules . trying call: /// <reference path="../../../../../defs/glob/glob.d.ts"/> import blog = require('glob'); results in: error ts2072: mod...
Read more

openid - Okta: Failed to get authorization code through API call -

i'm integrating okta own idp server using okta's api. i'm implementing authorization code flow following steps below: in own server, use /api/v1/authn endpoint sessiontoken. use sessiontoken obtain authorization calling endpoint: /oauth2/v1/authorize?client_id=" + clientid + "&sessiontoken=" + sessiontoken + "&response_type=code&response_mode=query&scope=openid&redirect_uri=" + redirecturl + "&state=evanyang&nonce=" it's supposed return response status code 302 , location header containing redirect url code value. however, keep getting response status code 200 , without location header, html body saying "you using unsupported browser." , "javascript disabled on browser." according api documentation: http://developer.okta.com/docs/api/resources/oidc.html#authentication-request , sessiontoken parameter sufficient this: an okta one-time sessiontoken. allows api-based ...
Read more

ios - Change Storyboard View using Seague -

i have following code checks connection server, , depending on want change views if no connection found. nsstring *connect = [nsstring stringwithcontentsofurl:[nsurl urlwithstring:@"http://myserver.com"] encoding:nsutf8stringencoding error:nil]; if (connect == null) { [self performseguewithidentifier:@"network_failure" sender:self]; } else { // other code here } my problem not change views. have added storyboard segue between 2 views identifier of network_failure . not have navigation controller or that, problem? thanks help! no not problem. first of all, in objectivec exists nil object oriented null . must use that. so: if(connect == nil) or better: if(!connect) so due fact nil not same of null , probably code does't enter in if scope . you have been able discover breakpoint. anyway: be sure set trigger segue (line) 2 view controller , , name network_failure (that not best name. should instead view1toview2 ) as, m...
Read more