First attempt at basic coding!

[banno1]

Hi again all.

Thank you very much for all the help so far! Still struggling with making my database perfect - so close though!

I am trying a bit of basic code. I don't want forms to be edited after they have been input unless a button that I have labeled 'edit' is pressed. I have got this to work but I want an exception to the editing block. I want two fields called "Booked" and "Appointment Date" to be free to edit until the "Booked" field has been ticked (it is a yes/no box).

This is what I have so far....

Private Sub cmdEdit_Click()
Me.AllowEdits = True



End Sub


Private Sub Form_Current()
If Me.NewRecord Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If
End Sub

Any comments/tips/tricks on changing this code in line with the above request would be greatly appreciated!

Thanks again

[banno1]

Update: Nooo! The above code was workings really well but I have just reloaded the database and now my subforms have disappeared off the form view, but are still visible in the design view. All new records are missing the subforms - any idea what has gone wrong?

[CJ_London]

any idea what has gone wrong?

pure guesswork - you've opened the wrong database? You've removed recordsources from forms?

[ssanfu]

Are the (new) records still in the table(s)?

[davegri]

Maybe you should post your db here for us to look at.
There are so many things that could possibly be wrong that it might take forever to straighten it out via message exchanges here.
If we can see your DB we can get it working and make suggestions on how you might avoid noob mistakes.