excel vba - run time error 3251 current recordset does not support updating -


i using excel 2007. have updated record sets in past using code don't know why start getting "run time error 3251" on one. can me find out. please.

for information, fetching data access excel vba user form & doing updation & deletion per requirement.

 private sub update_finance_return_details_click()  dim rs adodb.recordset dim strsql string dim mydb string dim cn object  on error goto errorhandler    set cn = createobject("adodb.connection")    mydb = "x:\commercial\new automated invioce    tracker\commercial_invoice_tracker.accdb"    cn.cursorlocation = aduseserver    cn     .provider = "microsoft.ace.oledb.12.0"    'for *.accdb databases     .connectionstring = mydb     .open   end    set rs = new adodb.recordset   if rs.state <> adstateclosed rs.close    strsql = "select * [ct] [invoice_id] = " & me.id.value & ""    rs.cursorlocation = aduseserver   rs.open strsql, cn, adopenkeyset, adlockoptimistic    rs     if (me.clarification_rec_date_return.visible = true)         !fin_query_dt = me.clarification_rec_date_return.value     else         !fin_query_dt = null     end if      !fin_query = me.clarification_received_finance_return.value      if (me.clarification_resolve_date_return.visible = true)       !fin_query_resolve_dt =  me.clarification_resolve_date_return.value     else         !fin_query_resolve_dt = null     end if     !last_updated_by = environ("username")     !last_updated_on =     .update    .close  end   msgbox ("record updated successfully")  cleanexit:    cn.close    set rs = nothing    set cn = nothing    application.screenupdating = true     exit sub errorhandler:    msgbox err.description    resume cleanexit end sub

i know old thread had same issue sometime ago , felt worth updating resolved me.

similar situation yourself, working fine of sudden unable write access db. issue me down migration happend , users had read ntfs access access db. giving users write ntfs access resolved issue.


Comments

Post a Comment

Popular posts from this blog

Payment information shows nothing in one page checkout page magento -

i using magento ver. 1.9.1.0 want remove shipping information , shipping method step 1 page checkout page. changed code in core file like in app\code\core\mage\checkout\block\onepage.php public function getsteps() { $steps = array(); $stepcodes = $this->_getstepcodes(); /* remove shipping address , shipping method */ $excludestep=array_diff($stepcodes,array('shipping','shipping_method')); //$excludestep=$stepcodes; if ($this->iscustomerloggedin()) { $stepcodes = array_diff($excludestep, array('login')); } foreach ($excludestep $step) { $steps[$step] = $this->getcheckout()->getstepdata($step); } return $steps; } and in app\code\core\mage\checkout\controllers\onepagecontroller.php public function savebillingaction() { if ($this->_expireajax()) { return; } if ($this->getrequest()-...
Read more

tcpdump - How to check if server received packet (acknowledged) -

Image
i running tcpdump on server capture traffic between server (servera) , remote server (serverb). not know how read output tcpdump. point out if serverb acknowledging packets being sent servera being received serverb? here tcpdump log: 2015-03-31 11:32:18.038284 ip (tos 0x0, ttl 64, id 30781, offset 0, flags [df], proto tcp (6), length 60) servera.14033 > serverb.8004: flags [s], cksum 0x02bd (correct), seq 337482636, win 14600, options [mss 1460,nop,nop,ts val 506588081 ecr 0,nop,wscale 7], length 0 0x0000: 4500 003c 783d 4000 4006 bae4 0a04 7a0e e.. servera.14033: flags [s.], cksum 0x3b2a (correct), seq 1742982091, ack 337482637, win 4140, options [mss 1380,nop,wscale 0], length 0 0x0000: 4500 0030 5ff2 0000 f606 5d3b cefd b48a e..0_.....];.... 0x0010: 0a04 7a0e 1f44 36d1 67e3 cbcb 141d 938d ..z..d6.g....... 0x0020: 7012 102c 3b2a 0000 0204 0564 0103 0300 p..,;*.....d.... 2015-03-31 11:32:18.078622 ip (tos 0x0, ttl 64, id 30782, offset 0, flags [...
Read more