Hi
I am using Visual Basic 6.0 and
I am getting error "Subscript of range runtime error "9"
Please refer the code below
I am using arrays.Pleas help me to fix the error and I have pointed the line in bold which is showing error
Thanks and Regards
N.Ram
I am using Visual Basic 6.0 and
I am getting error "Subscript of range runtime error "9"
Please refer the code below
I am using arrays.Pleas help me to fix the error and I have pointed the line in bold which is showing error
Code:
Private Sub saveDetailsofRemovalsForExportCurrentMonth()
Dim i As Integer
Dim varARE1DateNumber As String
Dim varDutyAmount As Double
Dim varBondDateSerialNo As Double
Dim varDailyStockEntryNo As Double
Dim varExportProofDateNo As String
Dim SqlStr As String
Dim strARE1DateNumber() As String
Dim str1() As String
Dim a As Variant
Dim str12 As Variant
For i = 1 To lvwRemovals.ListItems.Count
If lvwRemovals.ListItems(i).Text <> "" Then
varARE1DateNumber = lvwRemovals.ListItems(i).SubItems(1)
If (varARE1DateNumber <> "") Then
strARE1DateNumber = Split(varARE1DateNumber, "-")
str12 = Format$(CDate(strARE1DateNumber(1)), "yyyy-MM-dd")
Else
strARE1DateNumber(0) = 0
str12 = ""
End If
If (Trim(lvwRemovals.ListItems(i).SubItems(2)) = "") Then
varDutyAmount = 0
Else
varDutyAmount = lvwRemovals.ListItems(i).SubItems(2)
End If
If (Trim(lvwRemovals.ListItems(i).SubItems(3)) = "") Then
varBondDateSerialNo = 0
Else
varBondDateSerialNo = lvwRemovals.ListItems(i).SubItems(3)
End If
If (Trim(lvwRemovals.ListItems(i).SubItems(4)) = "") Then
varDailyStockEntryNo = 0
Else
varDailyStockEntryNo = lvwRemovals.ListItems(i).SubItems(4)
End If
varExportProofDateNo = lvwRemovals.ListItems(i).SubItems(5)
If (varExportProofDateNo <> "") Then
str1 = Split(varExportProofDateNo, "-")
a = Format(CDate(str1(1)), "yyyy-MM-dd")
Else
str1(0) = 0
a = ""
End If
SqlStr = "Insert into EXCISEANNEXUREXIXPI(ReturnNumber,ARE1Number, ARE1Date ,DutyAmount," _
& " BondDebitSerialNo,DailyStockEntryNo,ExportProofNumber,ExportProofDate,FinYearCode,BranchCode)" _
& " Values(" & txtEEGNumber & ",'" & strARE1DateNumber(0) & "','" & str12 & "'," & varDutyAmount & " ," _
& " " & varBondDateSerialNo & "," & varDailyStockEntryNo & ",'" & str1(0) & "','" & a & "'," _
& " " & cpFinYearCode & "," & cpBraCode & ")"
'MsgBox SqlStr
CN.Execute SqlStr
End If
Next
End SubN.Ram