2003 e çevirdim ancak eksik çeviriyor. mesela Form1 formunu göstermiyor.
yinede gönderiyorum.
magmar, 02-10-2009 tarihinden beri AccessTr.neT üyesidir.
Private Sub Durum_AfterUpdate()
If Me.Durum = "Gönderildi" Then
cevap = MsgBox("Seçilen kayıt silinecek devam edilsin mi?", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
ElseIf cevap = vbNo Then
MsgBox ("Kayıt Silinmedi")
End If
End If
End Sub
(24/02/2010, 14:29)Puletin yazdı: Buyrun bu şekilde deneyiniz örnek alttadır.
Kod:Private Sub Durum_AfterUpdate()
If Me.Durum = "Gönderildi" Then
cevap = MsgBox("Seçilen kayıt silinecek devam edilsin mi?", vbYesNo + vbQuestion, "DİKKAT")
If cevap = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
ElseIf cevap = vbNo Then
MsgBox ("Kayıt Silinmedi")
End If
End If
End Sub