[AccessD] one more tip for help...

[Dan Waters]

Hi Kostas,

This is something you could try:

    If Me.NewRecord = False Then
        Me.AllowDeletions = True
        DoCmd.RunCommand acCmdDeleteRecord
        Me.AllowDeletions = False
    End If

Dan

-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kostas Konstantinidis
Sent: Thursday, March 30, 2017 03:46
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] one more tip for help...


HI again,
It works with YES but not in NO
Am I missing something?
Thank's
kostas

If IsNull(date1) Then
Msg = "Select OK to continue or No to delete current record"
Style = vbYesNo
Title = "Choose"
responce = MsgBox(Msg, Style, Title)
If responce = vbYes Then
Me.date1.SetFocus
Cancel = True
Else
DoCmd.RunCommand acCmdDeleteRecord
End If
End If
End If
End Sub



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com