Runtime error on UserForm

[DJvdW]

I have the following code attached to a button:

Private Sub Add_Acc_Click()

NewAccountUserForm.Show

End Sub

(sorry, I do not know how to put it in code tags)


When I click the button, I get the error message:

Runtime error '-2147467259 (80004005)':
Unspecified Error

It worked fine before, but I have changed the name of 1 field and added a new field. Since then I have been getting this error.

I would appreciate any help in resolving this error.

[Tinbendr]

When the error occurs, click Debug, then press F8 and step through the code until it errors again. Then investigate the conditions of that line.

Post back when you have more details.

[Winon]

Goeie Naand, DJvdW,

Please could you upload a sample Workbook, with your complete Code and changes, for us to have a look at for you.

That takes away any guess work, on our side.

Baie dankie.

[DJvdW]

Hi Tinbendr

I have followed your advice and found the error occurs on initializing the form (see code below). I have remarked out the offending line, and everything works fine now. Could the error have been due to me setting the RowSource property for the ComboBox?

Private Sub UserForm_Initialize()

'AccTypeCodeComboBox.Clear
AccTypeDescrTextBox.Value = ""
AccNumberTextBox.Value = ""
AccDescrTextBox.Value = ""
AccTypeCodeComboBox.SetFocus

End Sub

Thanks for your help

When the error occurs, click Debug, then press F8 and step through the code until it errors again. Then investigate the conditions of that line.

Post back when you have more details.

[Tinbendr]

Could the error have been due to me setting the RowSource property for the ComboBox?

Yes. You can't clear, add, delete, etc items from a combobox/listbox when it's tied to a rowsource. (That's why I rarely use rowsource. But if it works for you, then go for it.)