merhaba
örnegini ekleseydin daha net cevap olurdu ama yinede,Müsterino yoksa,boşsa uyarı vermesi yapılabilir.
Private Sub Command72_Click()
If txtmusno.Text = "" Then
MsgBox("Silmek için önce Kayıt seçmelisin..!", MsgBoxStyle.Information, "Sil Seç")
Exit Sub
End If
If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo, "Kayıt Silme") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
Else
txtCurrentRecord.SetFocus
End If
End Sub
kodları kendine uyarlayarak yapabilirsiniz.
Adı Soyadı:
Ce.... Ya....
Konum:
Ankara
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
Bugün,21:28
Cevapla