excel vba - Runtime error 9: Subscript out of range -


i'm doing employee leave database , i'm getting this:

runtime error 9: subscript out of range.

this how code looks like. , error occurs in designated part.

private sub cmdadd_click()      dim rowcount long     dim vlabsenceutwpay, vlabsenceutwoutpay, vlbalance single     dim slabsenceutwpay, slabsenceutwoutpay, slbalance single      if me.reg1.value = ""         msgbox "please enter entry no.", vbexclamation, "employee data"         me.reg1.setfocus     end if      '-----vacation leave------     vlabsenceutwpay = reg9.value * 0.00208333333     vlabsenceutwoutpay = reg10.value * 0.00208333333     vlbalance = (reg11.value + reg8.value) - (vlabsenceutwpay + vlabsenceutwoutpay)      '-----sick leave------------     slabsenceutwpay = reg12.value * 0.00208333333     slabsenceutwoutpay = reg13.value * 0.00208333333     slbalance = (reg14.value + reg8.value) - (slabsenceutwpay + slabsenceutwoutpay)     rowcount = worksheets("sheet1").range("b8").currentregion.rows.count ' <<< error line     worksheets("sheet1").range("b8")         .offset(rowcount, 0) = me.reg1.value         .offset(rowcount, 1) = me.reg2.value         .offset(rowcount, 2) = me.reg3.value         .offset(rowcount, 3) = me.reg4.value         .offset(rowcount, 4) = me.reg5.value         .offset(rowcount, 5) = me.reg6.value         .offset(rowcount, 6) = me.reg7.value         .offset(rowcount, 7) = me.reg8.value         .offset(rowcount, 8) = me.reg9.value         .offset(rowcount, 9) = vlabsenceutwpay         .offset(rowcount, 10) = me.reg10.value         .offset(rowcount, 11) = vlabsenceutwoutpay         .offset(rowcount, 12) = me.reg11.value         .offset(rowcount, 13) = vlbalance         .offset(rowcount, 14) = me.reg12.value         .offset(rowcount, 15) = slabsenceutwpay         .offset(rowcount, 16) = me.reg13.value         .offset(rowcount, 17) = slabsenceutwoutpay         .offset(rowcount, 18) = me.reg14.value         .offset(rowcount, 19) = slbalance         .offset(rowcount, 20) = me.reg15.value     end  end sub


Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more