I keep getting this Error but don't undersand why
Would someone please help me??
Code:Option Explicit
Dim db As Database
Dim rs As Recordset
Dim lstmain1 As ListItem
Dim lstmain2 As ListItem
Dim clmhead1 As ColumnHeader
Dim clmhead2 As ColumnHeader
Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\PatsInventory.mdb")
Set clmhead1 = lvwSuppliers.ColumnHeaders.Add(, , "Supplier ID", lvwSuppliers.Width)
SupplierView
End Sub
Private Sub cmdEdit_Click()
cmdCSave.Visible = True
txtSupplierName.Locked = False
txtContactName.Locked = False
txtContactTitle.Locked = False
txtAddress.Locked = False
txtCity.Locked = False
txtState.Locked = False
txtPostal.Locked = False
txtCountry.Locked = False
txtPhone.Locked = False
txtFax.Locked = False
txtSupplierName.SetFocus
End Sub
Private Sub cmdSave_Click()
Set rs = db.OpenRecordset("Suppliers")
cmdSave.Visible = False
txtSupplierName.Locked = True
txtContactName.Locked = True
txtContactTitle.Locked = True
txtAddress.Locked = True
txtCity.Locked = True
txtState.Locked = True
txtPostal.Locked = True
txtCountry.Locked = True
txtPhone.Locked = True
txtFax.Locked = True
While Not rs.EOF
If lvwSupplier.SelectedItem.Text = rs!ContactID Then
rs.Edit
rs!SupplierName = txtSupplierName.Text
rs!ContactName = txtContactName.Text
rs!ContactTitle = txtContactTitle.Text
rs!Address = txtAddress.Text
rs!City = txtCity.Text
rs!State = txtState.Text
rs!Postal = txtPostal.Text
rs!Country = txtCountry.Text
rs!Phone = txtPhone.Text
rs!Fax = txtFax.Text
rs.Update
rs.MoveLast
rs.MoveNext
Else
rs.MoveNext
End If
Wend
End Sub
Private Sub cmdAdd_Click()
frmAddSuppliers.Show vbModal
End Sub
Private Sub cmdView_Click()
ContactView
rs.Close
End Sub
Private Sub lvwSuppliers_Click()
Set rs = db.OpenRecordset("Suppliers")
While Not rs.EOF
If lvwSuppliers.SelectedItem.Text = rs!SupplierID Then
txtSupplierName.Text = rs!SupplierName
txtContactName.Text = rs!ContactName
txtContactTitle.Text = rs!ContactTitle
txtAddress.Text = rs!Address
txtCity.Text = rs!City
txtState.Text = rs!State
txtPostal.Text = rs!Postal
txtCountry.Text = rs!Country
txtPhone.Text = rs!Phone
txtFax.Text = rs!Fax
rs.MoveLast
rs.MoveNext
Else
rs.MoveNext
End If
Wend
End Sub
Private Sub txtFax_Change()
Dim dig$, i, digi$, digits$
If txtFax.Text <> "" Then
dig$ = Mid(txtFax.Text, Len(txtFax.Text), 1)
If Asc(dig$) < 46 Or Asc(dig$) > 57 Then
For i = 1 To Len(txtFax.Text) - 1
digi$ = Mid(txtFax.Text, i, 1)
digits$ = digits$ & digi$
Next i
txtFax.Text = digits$
txtFax.SelStart = Len(txtFax.Text)
End If
End If
End Sub
Private Sub txtPhone_Change()
Dim dig$, i, digi$, digits$
If txtPhone.Text <> "" Then
dig$ = Mid(txtPhone.Text, Len(txtPhone.Text), 1)
If Asc(dig$) < 46 Or Asc(dig$) > 57 Then
For i = 1 To Len(txtPhone.Text) - 1
digi$ = Mid(txtPhone.Text, i, 1)
digits$ = digits$ & digi$
Next i
txtPhone.Text = digits$
txtPhone.SelStart = Len(txtPhone.Text)
End If
End If
End Sub
Public Sub cmdDelete_Click()
Set rs = db.OpenRecordset("Suppliers")
txtSupplierName.Text = ""
txtContactName.Text = ""
txtContactTitle.Text = ""
txtAddress.Text = ""
txtCity.Text = ""
txtState.Text = ""
txtPostal.Text = ""
txtCountry.Text = ""
txtPhone.Text = ""
txtFax.Text = ""
cmdDelete.Enabled = False
cmdEdit.Enabled = False
While Not rs.EOF
If frmMain.lvwSuppliers.SelectedItem.Text = rs!SupplierID Then
rs.Delete
ContactView
If rs.RecordCount = 0 Then
Exit Sub
Else
rs.MoveLast
End If
rs.MoveNext
Else
rs.MoveNext
End If
Wend
rs.Close
End Sub
Public Sub SupplierView() '<<<<<<<<-------------- Iam getting my Error here Somone please Help Thanks!!
Set rs = db.OpenRecordset("Suppliers")
frmSuppliers.lvwSuppliers.ListItems.Clear
While Not rs.EOF
Set lstmain1 = frmSuppliers.lvwSuppliers.ListItems.Add(, , rs!SupplierID)
rs.MoveNext
Wend
If rs.RecordCount = 0 Then
MsgBox "There are no records on the database"
Else
frmSuppliers.lvwSuppliers.Enabled = True
frmSuppliers.cmdCDelete.Enabled = True
frmSuppliers.cmdCEdit.Enabled = True
End If
End Sub
