vba - "Subscript out of range" - break mode works fine -


like title says, i'm getting subscript out of range error in code...but odd part when enter break mode debug error never triggers.

to troubleshoot, added breakpoint lower in code until received error. moved breakpoint line line until found spot "breaking" allowed code execute. in these cases code executes through lower function receives error (it's supposed to, i'm still debugging.

this appears offending chunk of code. when break @ end of loop , hold down f5 executes completely. without break mode or break point later in code, throws subscript error.

'get items in desired inbox, add items collection set supportbox = owanamespace.folders("folder name removed").folders("inbox") set allmailitems = supportbox.items  'create array of mailitems hold desired emails dim validitems() outlook.mailitem  'iterate through items valid notices each oitem in allmailitems      'function takes item, confirms if mailitem desired sender     if isvalidnoticeemail(oitem, mail_item, sender_email)          'convert object mailitem before adding array         dim newmail outlook.mailitem         set newmail = oitem          'get current array upper index         dim oldlength integer         oldlength = ubound(validitems)          'expand array 1 @ upper bound , add mail item @ location         redim preserve validitems(oldlength + 1)         set validitems(oldlength + 1) = newmail      end if next oitem

so not sure if user error (returning vba after 5+ years), or if maybe there timing issue break gives enough time initialization step doesn't complete on time when running code without breaks.

you act other way around:

  • first, size array maximum number of possible valid mails

  • then, once loop ends, resize actual number of valid mail items found

as follows: 

'get items in desired inbox, add items collection set supportbox = owanamespace.folders("folder name removed").folders("inbox") set allmailitems = supportbox.items if allmailitems.count = 0 exit sub  'create array of mailitems hold desired emails dim oldlength integer dim newmail outlook.mailitem redim validitems(1 allmailitems.count) outlook.mailitem  'iterate through items valid notices each oitem in allmailitems      'function takes item, confirms if mailitem desired sender     if isvalidnoticeemail(oitem, mail_item, sender_email)         'convert object mailitem before adding array         set newmail = oitem          'update current array upper index         oldlength = oldlength + 1          set validitems(oldlength) = newmail      end if next oitem 'resize array actual number of valid mail items or erase if no valid mail items found if oldlength >0     redim preserve validitems(1 oldlength) else     erase validitems end if

Comments

Post a Comment

Popular posts from this blog

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more