Run time error no 9

I have a DataGrid name 'dgrIntems' and TextBox name 'txtsubcode' .
Datagrid shows the details when i enter the code in TextBox.otherwise datagrid is empty.

I write folowing code on dgrIntems_Click()

[vb code]
Private Sub dgrIntems_Click()

TxtPar.Text = dgrIntems.Columns(2).Text
TxtRate.Text = dgrIntems.Columns(5).Text
TxtPieces.Text = dgrIntems.Columns(6).Text
checkid = dgrIntems.Columns(0).Text
itemco = dgrIntems.Columns(1).Text
subitemcode = dgrIntems.Columns(3).Text
MonthVal = dgrIntems.Columns(15).Text
QuanV = dgrIntems.Columns(4).Text
End Sub

[/vb code]


If the DataGrid is empty and I click on DataGrid it shows an run time error '9'
i want to show the message in this condition.

how can i handel this error.

what is the Err.Description you are getting...

VB Code:

Private Sub dgrIntems_Click()
[B]If dgrIntems.Row = 1 Then Exit Sub
'Check If there is any data or not in the datagrid[/B]
TxtPar.Text = dgrIntems.Columns(2).Text
TxtRate.Text = dgrIntems.Columns(5).Text
TxtPieces.Text = dgrIntems.Columns(6).Text
checkid = dgrIntems.Columns(0).Text
itemco = dgrIntems.Columns(1).Text
subitemcode = dgrIntems.Columns(3).Text
MonthVal = dgrIntems.Columns(15).Text
QuanV = dgrIntems.Columns(4).Text
End Sub

Quote:

---

Originally Posted by shakti5385

VB Code:

Private Sub dgrIntems_Click()
[B]If dgrIntems.Row = 1 Then Exit Sub
'Check If there is any data or not in the datagrid[/B]
TxtPar.Text = dgrIntems.Columns(2).Text
TxtRate.Text = dgrIntems.Columns(5).Text
TxtPieces.Text = dgrIntems.Columns(6).Text
checkid = dgrIntems.Columns(0).Text
itemco = dgrIntems.Columns(1).Text
subitemcode = dgrIntems.Columns(3).Text
MonthVal = dgrIntems.Columns(15).Text
QuanV = dgrIntems.Columns(4).Text
End Sub

---

Sorry boss but the same error is repeatedly coming. The Error is Run time error '9' Subscript Out of range.

use error handling something like this to display message

VB Code:

Private Sub dgrIntems_Click()
On Error GoTo errh
TxtPar.Text = dgrIntems.Columns(2).Text
TxtRate.Text = dgrIntems.Columns(5).Text
TxtPieces.Text = dgrIntems.Columns(6).Text
checkid = dgrIntems.Columns(0).Text
itemco = dgrIntems.Columns(1).Text
subitemcode = dgrIntems.Columns(3).Text
MonthVal = dgrIntems.Columns(15).Text
QuanV = dgrIntems.Columns(4).Text
 
Exit Sub
errh:
If Err.Number = 9 Then MsgBox "no data", vbCritical
End Sub

VB Code:

Exit Sub
errh:
If Err.Number = 9 Then MsgBox "no data", vbCritical

It is not the batter solution.. ......

@Koshiks
Can you tell in which line error is occuring..........

Quote:

---

It is not the batter solution.. ......

---

but it appears to be what he asks for in his original post

Quote:

---

i want to show the message in this condition.

how can i handel this error.

---

Quote:

---

Originally Posted by kaushiks

I have a DataGrid name 'dgrIntems' and TextBox
[vb code]
[/vb code]

---

You need to remove the space in between vb code to show the vbcode. ;)

Quote:

---

Originally Posted by westconn1

but it appears to be what he asks for in his original post

---

You have to check the condition that on which line error is occuring and what is the reason of this error..
Kosiks not specify the error line number... it is possible that error will be occuring through other reason..
Error handler is batter for showing the error... so we have to use according to the condition if there is no any solution then use the error handler.... :wave:

Quote:

---

Originally Posted by kaushiks

The Error is Run time error '9' Subscript Out of range.

---

one of the columns you are using doesn't exist.
check if each column-number exists. probably column 15 doesn't exist.

MonthVal = dgrIntems.Columns(15).Text

Quote:

---

Originally Posted by robbedaya

one of the columns you are using doesn't exist.

---

Or there's no datga at all, so the row (there's an assumed row if one isn't specified) doesn't exist, so the row subscript (probably 0 in this case) is out of range, since UBound(Rows) is (effectively) -1.

If your getting your data from a Database you could use:

VB Code:

If Object.BOF or Object.EOF then
   'No Data
   Exit Sub
else
   'Do grid work
End If

The DataGrid.Row property will equal -1 if there is no selected row (either the grid is empty or the user is not clicking on a row).

Regardless, your code belongs in the RowColChange event, not the click event.