Hello all,
I am trying to create a form to add new customers to a database for my homework assignment. I keep getting the compile error: member already exists in an object module from which this object module derives.
My codes are as follows:
Form:
Private Sub cmdOK()
'Copy input values to sheet.
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Customer Database")
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 1).Value = Me.Company_Name.Value
.Cells(lRow, 2).Value = Me.Last_Name.Value
.Cells(lRow, 3).Value = Me.First_Name.Value
.Cells(lRow, 4).Value = Me.Address1.Value
.Cells(lRow, 5).Value = Me.Address2.Value
.Cells(lRow, 6).Value = Me.City.Value
.Cells(lRow, 7).Value = Me.State.Value
.Cells(lRow, 8).Value = Me.Zip_Code.Value
End With
'Clear input controls.
Me.Company_Name.Value = ""
Me.Last_Name.Value = ""
Me.First_Name.Value = ""
Me.Address1.Value = ""
Me.Address2.Value = ""
Me.City.Value = ""
Me.State.Value = ""
Me.Zip_Code.Value = ""
End Sub
Private Sub cmdCancel()
'Close UserForm.
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
And Module:
Sub Customer_Database()
'
' Customer_Database Macro
' Go to Customer Database Page
'
'
Sheets("Customer Database").Select
Range("Table1[Company Name]").Select
End Sub
Sub Vendor_Database()
'
' Vendor_Database Macro
' Go to Vendor Database
'
'
Sheets("Vendor Database").Select
Range("B3").Select
End Sub
Sub Main_Menu()
'
' Main_Menu Macro
' Return to Main Menu
'
'
Sheets("Main Menu").Select
Range("A1").Select
End Sub
Sub ShowCustomer()
'Display Customer UserForm.
ufrmCustomers.Show Modal
End Sub
What am I doing wrong?
Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer
Bookmarks