![[Resim: do.php?imgf=15456737626651.jpg]](https://accesstr.net/resim/do.php?imgf=15456737626651.jpg)
![[Resim: do.php?imgf=154567376284052.jpg]](https://accesstr.net/resim/do.php?imgf=154567376284052.jpg)
If MsgBox(Me.TeklifNo & " Sayılı Teklif silinsin mi", vbCritical + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE TeklifNo From T_02_TeklifDetay WHERE (((TeklifNo)=" & TeklifNo & "));"
DoCmd.RunSQL "DELETE TeklifNo From T_01_Teklifler WHERE (((TeklifNo)=" & TeklifNo & "));"
DoCmd.SetWarnings True
Me.Requery
End If
(24/12/2018, 21:08)ozanakkaya yazdı:Ozan bey teşekkür ederim. Sorunum çözülmüştür.If MsgBox(Me.TeklifNo & " Sayılı Teklif silinsin mi", vbCritical + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE TeklifNo From T_02_TeklifDetay WHERE (((TeklifNo)=" & TeklifNo & "));"
DoCmd.RunSQL "DELETE TeklifNo From T_01_Teklifler WHERE (((TeklifNo)=" & TeklifNo & "));"
DoCmd.SetWarnings True
Me.Requery
End If