delete button

[msasan1367]

see my program, it has part form with delete button
now I want:
1- for deleting a part needs to select it, like belown image:

2- if part use in sell form, it can't be deleted and warned


3- if part can be deleted, give notice "want to delete or not?" if yes then delete itDatabase19.zip

[June7]

1. If you want to save tblPart ID primary key as foreign key in tblSell, need to change the PartID field in tblSell to number type

2. If you do 1 don't need Part field in tblSell

3. Create relationship between the two tables that links on the ID and PartID fields, join type "Include all records from tblSell and only those from tblParts that match"

4. Check 'Enforce Referential Integrity'

Now if someone tries to delete a part that has been sold, a warning message will pop up and delete won't happen.

Your form/subform arrangement doesn't really make sense. There is no reason for subform unless you absolutely must have Datasheet View. Can make it a solo form and in Continuous View can arrange controls to look like Datasheet. Delete button in Detail or Header section. Code behind delete button:

DoCmd.RunCommand acCmdDeleteRecord

Regardless, binding the main form to table is unnecessary.

[msasan1367]

find it:

Forms!blook_masaleh_frm!unit_sub!IDtxt.SetFocus
Dim delfind, delacc, masID, Eresponse As String

If IsNull(Me.unit_sub.Form.IDtxt) Then
    DoCmd.Beep
Else
    masID = Me.unit_sub.Form.IDtxt
    delfind = DLookup("masaleh_ID", "blook_tolid_tbl", "masaleh_ID='" & masID & "'")
    If IsNull(delfind) Then
        delacc = MsgBox("delete it?", vbYesNo, "Del")
        If delacc = vbYes Then
            Me.unit_sub.Form.Recordset.Delete
            Me.unit_sub.Form.Recordset.MoveNext
        Else
         Exit Sub
        End If
    Else
        Eresponse = MsgBox("it's been used", vbCritical, "warning")
    End If
End If