how to solve liListItem As ListItem this userdefinend is not type error in vb0.6

[gayatri mahajan]

Dim liListItem As ListItem
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
 
End Sub
 
Private Sub cboAccNo_Change()
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblCustomers Where AccountNo='" & cboAccNo.Text & "'", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
cboAccNo = !AccountNo
cboCustomerID = !CustomerID
cboFirst = !FirstName
Else
MsgBox "Invalid customer ID/Name/Account NO. Please Try Again", vbInformation
Exit Sub
End If
.Close
End With
 
 
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblTransactions Where AccountNo='" & cboAccNo.Text & "'", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
lvwDeposit.ListItems.Clear
Call LoadListView(rsTemp)
'cboAccNo = !AccountNo
'cboCustomerID = !CustomerID
'cboFirst = !FirstName
Else
MsgBox "Invalid customer ID/Name/Account NO. Please Try Again", vbInformation
Exit Sub
End If
.Close
End With
 
End Sub
 
Private Sub cboCustomerID_Change()
 
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblCustomers Where customerID='" & cboCustomerID.Text & "'", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
cboAccNo = !AccountNo
cboCustomerID = !CustomerID
cboFirst = !FirstName
Else
MsgBox "Invalid customer ID/Name/Account NO. Please Try Again", vbInformation
Exit Sub
End If
.Close
End With
 
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblTransactions Where customerID='" & cboCustomerID.Text & "'", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
lvwDeposit.ListItems.Clear
Call LoadListView(rsTemp)
Else
MsgBox "No Transactions bearing this customer ID. Please Try Again", vbInformation
Exit Sub
End If
.Close
End With
End Sub
 
Private Sub cboFirst_Change()
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblCustomers Where FirstName='" & cboFirst.Text & "'", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
cboAccNo = !AccountNo
cboCustomerID = !CustomerID
cboFirst = !FirstName
Else
MsgBox "Invalid customer ID/Name/Account NO. Please Try Again", vbInformation
Exit Sub
End If
.Close
End With
 
 
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblTransactions Where CustomerID='" & cboCustomerID.Text & "'", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
lvwDeposit.ListItems .Clear
Call LoadListView(rsTemp)
Else
MsgBox "No Transactions bearing this customers' first name. Please Try Again", vbInformation
Exit Sub
End If
.Close
End With
 
End Sub
 
Private Sub Cmdedit_Click()
frmDeposits.Show
frmCustomers.Hide
frmWithdrawal.Hide
frmTransactions.Hide
frmTransactions.Hide
frmAccTypes.Hide
frmSearch.Hide
frmDepositlst.Hide
End Sub
 
Private Sub cmdPrint_Click()
MsgBox "Report Is Under Construction Please Try After Some Time", vbInformation
Unload Me
End Sub
 
Private Sub CmdPrnall_Click()
'Set rptDeposits.DataSource = Nothing
'Set rptDeposits.DataSource = rsDeposit
'rptDeposits.Show
FrmDepoRepoFull.Show
Unload Me
End Sub
 
Private Sub CmdProceed_Click()
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblDeposits Where Dated BETWEEN #" & DtFrom.Value & "# AND #" & DtTo.Value & "#", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
lvwDeposit.ListItems.Clear
Call LoadListView(rsTemp)
Else
MsgBox "No Transactions Were carried out between these Dates. Please Try Again", vbInformation
Exit Sub
End If
.Close
End With
End Sub
 
 
Private Sub Cmdqt_Click()
Unload Me
End Sub
 
Private Sub cmdquit_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
Call connectDatabase
Call LoadListView(rsDeposit)
With rsDeposit
.MoveFirst
'For X = 1 To .RecordCount
 '   CboCustome.AddItem !CustomerID
  '  cboFirst.AddItem !FirstName
   ' cboAccNo.AddItem !AccountNo
    '.MoveNext
'Next X
End With
'FrmDate.Enabled = True
End Sub
 
Private Sub lvwDeposit_ColumnClick(ByVal ColumnHeader As MSComCtlLib.ColumnHeader)
' Sort according to data in this column.
    If lvwDeposit.Sorted And _
        ColumnHeader.Index - 1 = lvwDeposit.SortKey Then
        ' Already sorted on this column, just invert the sort order.
        lvwDeposit.SortOrder = 1 - lvwDeposit.SortOrder
    Else
        lvwDeposit.SortOrder = lvwAscending
        lvwDeposit.SortKey = ColumnHeader.Index - 1
    End If
    lvwDeposit.Sorted = True
End Sub
 
Public Sub LoadListView(myRs As Recordset)
With myRs
While Not .EOF
'lvwDeposit.ListItems.Add , , !CustomerID & " " & !AccountNo ' & " " & !Narration & " " & !Dated & " " & !Debit & " " & !Credit
'Set lstItem = lvwDeposit.ListItems.Add(, , !TransactionID)
Set lstItem = lvwDeposit.ListItems.Add(, , !CustomerID)
'lstItem.SubItems(1) = !TransactionID
lstItem.SubItems(1) = !CustomerID
lstItem.SubItems(2) = !AccountNo
lstItem.SubItems(3) = !Narration
lstItem.SubItems(4) = !AmountDeposited
lstItem.SubItems(5) = !Mode
lstItem.SubItems(6) = !CheckNO
lstItem.SubItems(7) = !Dated
.MoveNext
Wend
End With
End Sub
 
Private Sub lvwDeposit_Click()
 
End Sub
 
Private Sub OptAcc_Click()
FrmDate.Enabled = False
'FrmDate.Enabled = True
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblDeposits", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
lvwDeposit.ListItems.Clear
Call LoadListView(rsTemp)
Else
MsgBox "Database Empty..", vbInformation
Exit Sub
End If
.Close
End With
End Sub
 
Private Sub OptDate_Click()
FrmDate.Enabled = True
Set rsTemp = New ADODB.Recordset
rsTemp.Open "Select * from tblDeposits", cnBank, adOpenKeyset, adLockOptimistic
With rsTemp
If .RecordCount > 0 Then
lvwDeposit.ListItems.Clear
Call LoadListView(rsTemp)
Else
MsgBox "Database Empty..", vbInformation
Exit Sub
End If
.Close
End With
 
End Sub
 

how to solve liListItem As ListItem this userdefinend is not type error in vb0.6

[Stewart Ross]

You have not said where your error is occurring, and I won't read 200 lines of code to try to debug what you should have done for yourself.

The most likely problem is that you have no definition of the type ListItem which you use throughout your code. You certainly don't show any definition of what ListItem is. If the type ListItem is defined in a class module then it does not appear to be present or in scope at the time you are referring to it.

-Stewart

[Killer42]

When asking a question, please try to be as clear as possible. You need to include specific details of what's wrong (important: be precise - for instance, I'm pretty sure VB6 has never said "this userdefinend is not type error") and indicate where and under what circumstances the problem occurs. When compiling? When executing? What line?