VBA Ambiguous Name Detected: RunUserForm

[n_mae]

Hi there,

Total VBA newbie here. I'm creating an accounts ledger spreadsheet and have created 3 user forms: Add Invoice, Add Current Expense, Add Future Expense. I did 'Add Current Expense' first and have a button in my spreadsheet which opens the relevant User Form. It worked totally fine. Have since created the other two forms, again each with their own button to open their respective User Forms. When testing this afternoon, both 'Add Future Expense' and 'Add Invoice' work fine but 'Add Current Expense' is giving me the error:

Ambiguous Name Detected: RunUserForm

This is the code for both opening the User Form (module)...

Private Sub RunUserForm()

LedgerEntry.Show


End Sub

...and for my User Form (form)

Private Sub Enter_Click()


Dim lngRow As Long
Worksheets("Ledger").Activate
lngRow = Worksheets("Ledger").Range("B1048576").End(xlUp).Row + 1


Cells(lngRow, 2) = CEDate.Value
Cells(lngRow, 6) = CESupplier.Value
Cells(lngRow, 9) = CEAccount.Value
Cells(lngRow, 17) = CECredit.Value
CEDate.Value = ""
CESupplier.Value = ""
CEAccount.Value = ""
CECredit.Value = ""


End Sub


Private Sub UserForm_Click()

End Sub

FYI, I added the "Private" bit after the problem occurred after reading around online and not understanding a thing I have the problem both with and without "Private" added.

Thanks in advance!

 

[V_Malkoti]

That's is a compilation error thrown by VBA because it found more than one procedure defined with same name.

Did you write more than one RunUserName procedure - maybe one for each form?

 

[n_mae]

That's is a compilation error thrown by VBA because it found more than one procedure defined with same name.

Did you write more than one RunUserName procedure - maybe one for each form?

Yeah I did, all 3 forms are activated in the same way. But I thought that was just how you did it?? :S How do I get around that if I need them all to run the same procedure? Also, I wonder what is different about my problematic one, when the other 2 will run quite happily? Thanks!

 

[RoryA]

You can't have more than one routine with the same name and the same scope. All you really need to do is change the name of one of the routines, assuming you actually need both.

 

[n_mae]

For reference, these are the codes for all 3 'Show Form' modules/macros:

The Problematic One:

Private Sub RunUserForm()


LedgerEntry.Show


End Sub

The 2 Working Fine:

Private Sub RunUserForm()


Invoice.Show


End Sub

Private Sub RunUserForm()


FutureExpense.Show


End Sub

 

[n_mae]

You can't have more than one routine with the same name and the same scope. All you really need to do is change the name of one of the routines, assuming you actually need both.

But how do I do that? The routine is the 'Private Sub RunUserForm()' bit, correct? I'm not sure what I can change this to where it will still do what I want..?

 

[RoryA]

Which module(s) are those three routines in?

 

[n_mae]

Which module(s) are those three routines in?

A separate module each, as per the below (is that what you mean?):
https://www.dropbox.com/s/eryulboa5gggxji/Screenshot 2016-10-14 08.24.26.png?dl=0

 

[RoryA]

What is the full code in the ShowLedgerEntryForm module? (it would have been easier if you'd posted the workbook rather than a picture of your VBE!)