Flashing label

[RuralGuy]

Do a Compact and Repair and then you should be able to right click from explorer and "send to Compressed file".

[FJM]

I have just done that but I don't know how to attach to my reply to you....

[RuralGuy]

Are you still using ac2003 and WinME?

[FJM]

Access 2007
What is WinME ?

[RuralGuy]

Win98/ME as your OS.
For attaching Go Advanced and scroll down a bit. Manage Attachments

[FJM]

I hope I have attached the zipped file.....

[RuralGuy]

Well this form is pretty complex. When you attempt to move the MainForm to a new record, All of the SubForms are going to want to move requery their recordsets as well. As there will be no PartNumber yet which is their linking field, that can give this form a problem.

[FJM]

In case it helps at all, the Problem only started when I added the code to the On Current event of the Form.
If you remove this code, things work OK.

[RuralGuy]

That does help. Boy did I get side tracked! I'll need a few minutes.

[RuralGuy]

This may be part of the problem: http://allenbrowne.com/NoYesNo.html

[RuralGuy]

If that's true then you could probably resolve the issue by changing the OnCurrent event code to:

Private Sub Form_Current()
Me.Label279.Visible = Nz(Me.NEWPART, 0)
End Sub

[RuralGuy]

Did that make any difference?

[FJM]

RESULT !!!!!!!!!!!!

It seems to work a treat

I was really testing your ability all of the time............... and I am pleased to say you passed with flying colours................

Seriously, thanks very much for your perseverance. Its a pity I never thought to tell you the important bit until the end.

It looks a good tip about the Yes / NO bits but am I correct in thinking that for future use I can simply modify the code you have sent me ?

[RuralGuy]

I think so but I'm not sure which code you ended up with.

[FJM]

Private Sub Form_Current()
Me.Label279.Visible = Nz(Me.NEWPART, 0)
End Sub