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