UserForm Methods

[j_Southern]

Dear Members

I have been unable to solve a problem concerning a UserForm used to pickup data from one list, to enable the addition of further data ,and lastly to load the complete record to another list.
The problem appeared when I tried to institute a check to prevent the loading of the complete record if some fields had been left empty. I use a message box to give a warning, and when this is cleared the userform is available for completion. Unfortunately all the fields that had been correctly entered in the first place are now empty when I wanted them retained.

I have attached a copy of the application which I hope will make all this clear.
The password is magpie. The sequence Open/Enter Record/Enter Record will get you to the problem.
The top row of fields in userform1 are populated by selecting an order in the listbox.
The lower row of fields are populated manualy. The problem occurs if you leave one of these blank and then press "Enter Record".
Any help would be very appreciated
John

[romperstomper]

Your code proceeds with EnterRecord even if frmCheck fails and raises the message. I suggest you change frmCheck to a function that returns True if it succeeds and False otherwise, then you can use:

If frmCheck then EnterRecord

[j_Southern]

RomperStomper
Many thanks, using a function was just what I needed to do
John