Private Sub Kaydagit(ODN)

 Me.RecordSource = "Select * From tbl_odabilgileri where odano = " & ODN

 Me.KONTOP = Me.oda_fiyati * Me.Konaklamasuresi

 'Me.Oda_tipi = Dlookup ("[odatipi]", "tbl_odalistesi", "[odano]=" & [odano])

' Me.oda_fiyati = Dlookup ("[odafiyati]", "tbl_odalistesi", "[odano]=" & [odano])

 Me.Form.Requery

End Sub

Arkadaşlar,kaydetme sorunu ile ilgili hatayı buldum ve artık kaydet demiyene kadar kayıt yapmıyor,Hatalı kod odatipi ve Odafiyatını KAYDAGİT içinde Dlookup kullandığım için,kaldırdım ve hata vermiyor,Dlookup olayını Kaydetme sorunu yaşamadan VB içinde nasıl kullanabilirim.