Problem with adding new record using a Split Form

[jcc285]

I have the following problem - Setting Allow Additions, Allow Edits, Allow Deletions to 'No' in Form Properties then, from a Add Record button, writing Me.AllowAdditions = True, Me.AllowEdits = True, has no effect the screen just locks. The Property SplitFormDatasheet = Allow Edits is set. The same appears to be true for an 'Edit' button (AllowEdits = True) or a Delete button (AllowDeletions = True)

The only way to make this work seems to be if Allow Additions, Allow Edits, Allow Deletions are all set to 'Yes' in Form Properties.



This is not very good for controlling what a user does, i.e. A new record should only be added by clicking the Add Record button to which user access is controlled elsewhere.

Any one have any ideas please?

[Missinglinq]

Cannot reproduce the problem in v2007. You're sure that you can add a new record if the Form's AllowAdditions Property, in the Property Pane, is set to Yes?

Linq ;0)>

[jcc285]

Thank you for your response. I have set out below the behavior I am seeing

Form Properties
Split Form Datasheet - Allow Edits

AllowAdditions - Yes
Allow Edits –Yes
AllowDeletions – Yes

Add Recordbutton code
Private SubcmdAdd_Click()
On ErrorGoTo ErrorHandler
DoCmd.GoToRecord , "", acNewRec
Me.Entry_Title.SetFocus
Call Button_Control(False, False, True, False,False, True, True, False, True)
'Errorhandling
ErrorHandlerExit:
Exit Sub
ErrorHandler:
strFormProc= strModule & "/cmd_Add_Click"
CallLogError(strFormProc)
Resume ErrorHandlerExit
End Sub

All works fine– record is added

But….

Form Properties

Split Form Datasheet - Allow Edits

AllowAdditions - No
Allow Edits –No
AllowDeletions – No

Add Recordbutton code
Private SubcmdAdd_Click()
On ErrorGoTo ErrorHandler
Me.AllowAdditions= True
Me.AllowEdits= True
DoCmd.GoToRecord , "", acNewRec
Me.Entry_Title.SetFocus
Call Button_Control(False, False, True, False,False, True, True, False, True)
'Errorhandling
ErrorHandlerExit:
Exit Sub
ErrorHandler:
strFormProc= strModule & "/cmd_Add_Click"
CallLogError(strFormProc)
Resume ErrorHandlerExit
End Sub



Does notwork – The Form just ‘locks’ all controls are inaccessible, the SetFocus command does not operate, only the ‘CloseForm’ button actually works!!.
I have noticed that a whilst a ‘new’ empty record isgenerated in the form view i.e. a set of blank fields, no new line,coloured blue, is generated in the datasheet view.

I don't think this is me unless I am missing another Property which needs to be set in code.

Thanks for your help

[Micron]

Suggest that you start here if you are not completely aware of the settings and their interaction with each other. Perhaps you should be using Data Entry property in some situations, or a snapshot recordset.

[jcc285]

Thank you for a most unhelpful response!!

[Micron]

Ok. I will quit trying to help you since you find it so aggravating.

[Missinglinq]

We probably need to see the code behind the procedure that the posted code calls (Button_Control) to see what it does.

Also, I guess, behind the procedure CallLogError...or is that supposed to be

Call LogError

with the space? If the latter, first correct that and see what happens.

Linq ;0)>

[davegri]

It's a bit hard to judge whether your code syntax is OK, since it seems to be not pasted from actual code, and is not using the forum tags.

I would comment out the ON ERROR GOTO line while debugging. Try it and see if it shows an error like "Unable to to to specified record" or some such...