Alttaki kodu dener misin?
Private Sub ACENTA_AfterUpdate()
Me.ACENTAFIYAT = IIf(Me.ODATIPI = "SINGLE", Dlookup ("SINGLE", "ACENTAFIYAT", "ACENTA=Forms!REZERVASYON!ACENTA"), IIf(Me.ODATIPI = "DOUBLE", Dlookup ("DOUBLE", "ACENTAFIYAT", "ACENTA=Forms!REZERVASYON!ACENTA"), IIf(Me.ODATIPI = "TRIPLE", Dlookup ("TRIPLE", "ACENTAFIYAT", "ACENTA=Forms!REZERVASYON!ACENTA"), "")))
End Sub