ms access - Operation Not Supported on Linked Table -

-

when function below executes '.append fld' produces error 3057. suspect qualified name needed method escaping me. sub calling function passing way of strtablename "tbl_elements" should not enough function.

i have tried fitting bit of code has reached linked table.

currentdb.execute "alter table [" & currentdb.tabledefs(strimportholdingtable).connect & "].[" & strimportholdingtable & "] drop column romis_tran_id;"

function in question below

public function createautonumberfield(byval strtablename string, byval strfieldname string) boolean  on error goto err_createautonumberfield      dim db dao.database     dim fld dao.field     dim tdef dao.tabledef      set db = application.currentdb     set tdef = db.tabledefs(strtablename)     set fld = tdef.createfield(strfieldname, dblong)     fld         .attributes = .attributes or dbautoincrfield     end     tdef.fields         .append fld         .refresh     end      createautonumberfield = true  exit_createautonumberfield:      set fld = nothing     set tdef = nothing     set db = nothing     exit function  err_createautonumberfield:      createautonumberfield = false     err         msgbox "error " & .number & vbcrlf & .description, vbokonly or vbcritical, "createautonumberfield"     end     resume exit_createautonumberfield  end function

with of hansup resolved issue of modifying linked table. new problem autonumber field not resetting 1 without compact , repair end can not during working hours.

public function resetautonumber(byval strtablename string, byval strfieldname string, byval strindexname string) boolean on error goto errtrap  dim db dao.database dim fld dao.field dim tdef dao.tabledef dim strdbpath string  strdbpath = mid(currentdb.tabledefs(strtablename).connect, 11)  set db = dbengine.opendatabase(strdbpath) set tdef = db.tabledefs(strtablename) set fld = tdef.createfield(strfieldname, dblong) set ind = tdef.createindex(strindexname)  'clear table db.execute "delete * " & strtablename 'delete index tdef.indexes.delete strindexname 'delete field tdef.fields.delete strfieldname 're-create field     fld         .attributes = .attributes or dbautoincrfield         .ordinalposition = 0     end     tdef.fields         .append fld         .refresh     end 'recreate index ind.fields.append ind.createfield(strindexname) tdef.indexes.append ind  set ind = nothing set fld = nothing set tdef = nothing set db = nothing  exithere: exit function errtrap: msgbox err.description resume exithere  end function

Comments

Post a Comment

Popular posts from this blog

javascript - Slick Slider width recalculation -

-
i'm trying add slide in panel on slick container css. carousel works except new width not being calculated when space has been added. recalibrate once advance next slide i'd happen each time panel opened or closed. i've tried adding both margin , padding, neither makes difference. ideas? https://jsfiddle.net/mhigley/dpf7mlpl/ html: <button type="button" id="button"><i class="fa fa-arrow-right"></i></button> <aside> <h2>slide in panel</h2> <ol> <li>list item</li> <li>list item</li> <li>list item</li> <li>list item</li> <li>list item</li> </ol> </aside> <main role="main"> <div class="sections"> <section> <article> <h2>first slide</h2> <p>lorem ipsum d...
Read more

jsf - PrimeFaces Datatable - What is f:facet actually doing? -

-
looking through primefaces code in app noticed following line: <f:facet name="header">#{trainsearch.traincount} trains</f:facet> it looks overriding header, makes sense, can explain me in little more detail? what happening line of code? complete code listed below: <p:datatable id = "results" value = "#{trainsearch.trains}" var = "train" rendered="#{not empty trainsearch.trains}" styleclass = "train-search-table horizontal-border"> <f:facet name="header">#{trainsearch.traincount} trains</f:facet> <p:column headertext = "train id"> <p:panelgrid columns="1" styleclass = "train-id-grid" layout = "grid"> <h:outputtext styleclass = "train-id-label" value="#{train.traini}"/> <h:outputtex...
Read more

angular2 services - Angular 2 RC 4 Http post not firing -

-
i trying fire post request app , it's not working, tried multiple ways. don't see request being fired under network tab in chrome. not sure problem is, appreciated. import { injectable } '@angular/core'; import { http, headers } '@angular/http'; @injectable() export class userservice{ private _url="users"; constructor(private _http: http){ } checkifusernameexists(username){ return this._http.get(this._url+"/"+username) .map(response => response.json()) } createuser(user){ let headers = new headers(); headers.append('content-type', 'application/json') console.log(json.stringify(user)); return this._http.post(this._url, json.stringify(user),{headers: headers}) .map(response => response.json()) } } first need capture error , solve error: this._http.post(this._url, json.stringify(user),{headers: headers}) .subscribe( ...
Read more