txtOutPut alanı dolu olduğunda bu hatayı veriyor sanırım. şöyle bir düzenleme yaptım bu sefer de run-time 2046 hatası verdi. alttaki mantıkta bir hata var mıdır sizce?
If Me.frmOrderDetail!txtOutPut > 0 Then
MsgBox ("Bu Siparişe Ait Çıkış Yapılmış! Kaydı Silemezsiniz!")
Else
If MsgBox("Kaydı Silmek istediğinizden Emin misiniz?", vbYesNo, "Dikkat") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.OpenQuery "srgOrderDelete"
Me.frmOrderDetail!txtRezerve = 0
DoCmd.GoToRecord , , acLast
TumDenetimlerPasif
Exit Sub
Else
Me.Undo
End If
Exit Sub
End If
End Sub
magmar, 02-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla