"Save Record" button not working after adding "Edit" button.

Hello all,

First of all, thanks to everyone for their previous support :>) I have more
advice to ask.

In order to prevent accidental loss of data (from inadvertent keystrokes)
I've locked the Main Form from editing using the form Properties. Instead,
I've added a button to edit the form. You click the button, which
temporarily unlocks the form, make your changes and click the same button
when you're finished making changes. The code for this function was
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/10559-save-record-button-not-working-after.html
provided to me by someone (from this board, I think) about 2 years ago for
another DB I was working on. I copied and pasted the code to the current DB
I'm working on.

Now, the "Edit" button works fine, but the "Save Record" button doesn't
work. I keep on getting an error message saying that the save feature "...is
not available at this time". I added the "Save Record" button using the
auto-Wizard that appears when you create a new button.

Here's some relevant code:

1) The "Edit" button:

Private Sub EditRecord_Click()
If Me.EditRecord.Caption = "Edit Record" Then
With Me
.AllowAdditions = True
.AllowEdits = True
.AllowDeletions = True
End With

Me.EditRecord.Caption = "Ok"
Else
DoCmd.Save
With Me
.AllowAdditions = False
.AllowEdits = False
.AllowDeletions = False
End With
Me.EditRecord.Caption = "Edit Record"
End If
End Sub


2) The "Save Record" button:

Private Sub Bttn_Save_Record_Click()
On Error GoTo Err_Bttn_Save_Record_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Bttn_Save_Record_Click:
Exit Sub

Err_Bttn_Save_Record_Click:
MsgBox Err.Description
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10559
Resume Exit_Bttn_Save_Record_Click

End Sub


Any input is greatly appreciated.

--
Viken K.
http://www.vikenk.com

Do you agree or disagree with the writer above? Why not share your immediate thoughts with us! Login Now! or Sign Up Today! to share your views... Gurfateh!

Try this and see if it works for you:

Private Sub EditRecord_Click()
If Me.EditRecord.Caption = "Edit Record" Then
With Me
.AllowAdditions = True
.AllowEdits = True
.AllowDeletions = True
.EditRecord.Caption = "Save"
End With

Else
DoCmd.RunCommand acCmdSaveRecord
With Me
.AllowAdditions = False
.AllowEdits = False
.AllowDeletions = False
.EditRecord.Caption = "Edit Record"
End With
End If
End Sub
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access

"Viken Karaguesian" wrote in message
news:xYSdneGv4YfFU-HZnZ2dnUVZ_sGdnZ2d@comcast.com...
> Hello all,
>
> First of all, thanks to everyone for their previous support :>) I have
more
> advice to ask.
>
> In order to prevent accidental loss of data (from inadvertent keystrokes)
> I've locked the Main Form from editing using the form Properties. Instead,
> I've added a button to edit the form. You click the button, which
> temporarily unlocks the form, make your changes and click the same button
> when you're finished making changes. The code for this function was
> provided to me by someone (from this board, I think) about 2 years ago for
> another DB I was working on. I copied and pasted the code to the current
DB
> I'm working on.
>
> Now, the "Edit" button works fine, but the "Save Record" button doesn't
> work. I keep on getting an error message saying that the save feature
"...is
> not available at this time". I added the "Save Record" button using the
> auto-Wizard that appears when you create a new button.
>
> Here's some relevant code:
>
> 1) The "Edit" button:
>
> Private Sub EditRecord_Click()
> If Me.EditRecord.Caption = "Edit Record" Then
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10559
> With Me
> .AllowAdditions = True
> .AllowEdits = True
> .AllowDeletions = True
> End With
>
> Me.EditRecord.Caption = "Ok"
> Else
> DoCmd.Save
> With Me
> .AllowAdditions = False
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10559
> .AllowEdits = False
> .AllowDeletions = False
> End With
> Me.EditRecord.Caption = "Edit Record"
> End If
> End Sub
>
>
> 2) The "Save Record" button:
>
> Private Sub Bttn_Save_Record_Click()
> On Error GoTo Err_Bttn_Save_Record_Click
>
>
> DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
>
> Exit_Bttn_Save_Record_Click:
> Exit Sub
>
> Err_Bttn_Save_Record_Click:
> MsgBox Err.Description
> Resume Exit_Bttn_Save_Record_Click
>
> End Sub
>
>
> Any input is greatly appreciated.
>
> --
> Viken K.
> http://www.vikenk.com
>
>

Arvin,

Worked like a charm. Thanks!

--
Viken K.
http://www.vikenk.com


"Arvin Meyer [MVP]" wrote in message
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10559
news:udrvn6EhGHA.5068@TK2MSFTNGP05.phx.gbl...
> Try this and see if it works for you:
>
> Private Sub EditRecord_Click()
> If Me.EditRecord.Caption = "Edit Record" Then
> With Me
> .AllowAdditions = True
> .AllowEdits = True
> .AllowDeletions = True
> .EditRecord.Caption = "Save"
> End With
>
> Else
> DoCmd.RunCommand acCmdSaveRecord
> With Me
> .AllowAdditions = False
> .AllowEdits = False
> .AllowDeletions = False
> .EditRecord.Caption = "Edit Record"
> End With
> End If
> End Sub
> --
> Arvin Meyer, MCP, MVP
> Microsoft Access
> Free Access downloads
> http://www.datastrat.com
> http://www.mvps.org/access
>
> "Viken Karaguesian" wrote in message
> news:xYSdneGv4YfFU-HZnZ2dnUVZ_sGdnZ2d@comcast.com...
>> Hello all,
>>
>> First of all, thanks to everyone for their previous support :>) I have
> more
>> advice to ask.
>>
>> In order to prevent accidental loss of data (from inadvertent keystrokes)
>> I've locked the Main Form from editing using the form Properties.
>> Instead,
>> I've added a button to edit the form. You click the button, which
>> temporarily unlocks the form, make your changes and click the same button
>> when you're finished making changes. The code for this function was
>> provided to me by someone (from this board, I think) about 2 years ago
>> for
>> another DB I was working on. I copied and pasted the code to the current
> DB
>> I'm working on.
>>
>> Now, the "Edit" button works fine, but the "Save Record" button doesn't
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10559
>> work. I keep on getting an error message saying that the save feature
> "...is
>> not available at this time". I added the "Save Record" button using the
>> auto-Wizard that appears when you create a new button.
>>
>> Here's some relevant code:
>>
>> 1) The "Edit" button:
>>
>> Private Sub EditRecord_Click()
>> If Me.EditRecord.Caption = "Edit Record" Then
>> With Me
>> .AllowAdditions = True
>> .AllowEdits = True
>> .AllowDeletions = True
>> End With
>>
>> Me.EditRecord.Caption = "Ok"
>> Else
>> DoCmd.Save
>> With Me
>> .AllowAdditions = False
>> .AllowEdits = False
>> .AllowDeletions = False
>> End With
>> Me.EditRecord.Caption = "Edit Record"
>> End If
>> End Sub
>>
>>
>> 2) The "Save Record" button:
>>
>> Private Sub Bttn_Save_Record_Click()
>> On Error GoTo Err_Bttn_Save_Record_Click
>>
>>
>> DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
>> acMenuVer70
>>
>> Exit_Bttn_Save_Record_Click:
>> Exit Sub
>>
>> Err_Bttn_Save_Record_Click:
>> MsgBox Err.Description
>> Resume Exit_Bttn_Save_Record_Click
>>
>> End Sub
>>
>>
>> Any input is greatly appreciated.
>>
>> --
>> Viken K.
>> http://www.vikenk.com
>>
>>
>
>