Deletion button on subform for a selected record

[Khalil Handal]

Hi to All,



A subForm (Default View: Continuous View) on a main Form has records. The subForm has Allow Edits = No and Allow Deletions=No. This is done to prevent editing after the record is saved and to prevent deletion by mistake. Beside each record on the sub Form there are two buttons: Print button to print the selected record (Is functional) and a delete button.

If the delete button is clicked for a saved record then a message box shows asking to confirm the operation or not. If deletion is confirmed then a check box is turned on for a field named MarkedDeleted (Yes/No) and the subform is re query.

If the delete button is clicked while editing a new record then cancel the editing of this new record.

The third case is if record selector is on new record, message box saying you need to select a record before deletion.


How can this be done?

Khalil

[ranman256]

something like:
update query : "quMark4Delete" is Update table set [mark] = true

sub btnDelete_click()

if ask("Delete ID:" & txtID ) then
   Hrglass
     docmd.openquery "quMark4Delete"
   Hrglass false
endif
end sub



Public Function Ask(ByVal pvMsg) As Boolean
Ask = MsgBox(pvMsg & "?", vbQuestion + vbYesNo, "Confirm") = vbYes
End Function



Public Sub HrGlass(Optional ByVal pbOn As Boolean = True)
DoCmd.Hourglass pbOn
DoCmd.SetWarnings Not pbOn
DoEvents
End Sub

[pbaldy]

You can check if you're on a new record with

If Me.NewRecord = True Then

[Khalil Handal]

Hi,
Thank you guys for the ideas. I am still working on it. I will keep you posted.

Question:
What VBA code for Sub Form to enable the AllowEdits property?
Thanks

[orange]

Have you reviewed this M$oft "allow..." material?

[Khalil Handal]

Hi,
Thank you all for the help.
I reviewed: https://docs.microsoft.com/en-us/off...orm.allowedits

Khalil