oda kayır formunda kayıt olmamasına rağmen gerek raporlara gereksede form tablosuna boş kayıt yapmaktadır,ve silme komut butonuna tıklanınca yazma hata msj.geliyor,sorunu çözerseniz memnun olurum.
![Çözüldü](images/icons/cozuldu.png)
Private Sub Form_Current()
'If Not IsNull(Me.ÇIKIŞ_TARİHİ) Then
'MsgBox ("deneme")
'End If
Call KutuRenk
Me.ADİSYON_TUTARI = [frm_adisyon].Form![Metin5]
If NewRecord = True Then
If MsgBox("Yeni oda kaydını onaylıyormusunuz ?", vbQuestion + vbYesNo, "Kayıt Onayı") = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End If
End Sub