Run time error no 9

[kaushiks]

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.

[ganeshmoorthy]

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

[shakti5385]

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

[kaushiks]

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.

[westconn1]

use error handling something like this to display message

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

[shakti5385]

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..........

[westconn1]

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

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

i want to show the message in this condition.

how can i handel this error.

[Keithuk]

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.

[shakti5385]

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....

[robbedaya]

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

[Al42]

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.

[JohnDonaldson]

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

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

[brucevde]

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.