(14/06/2020, 19:12)berduş yazdı: @feraz beyin kodu dogru tasarimsal bir hataniz var o nedenle dosyanizi bastan olusturmak zorunda kaldim.

aynı kodu yine alıyorum olmuyor ya anlamadım teşekkürler yinede

Benim yukledigim dosyayi denediniz mi?

berduş hocamızın dosyasıda çalışlıyor benimkide.
En mantıklısı resimdeki gibi formu değiştirebilirsiniz.
O kadar denedim hiç hata vermedi.

---

(14/06/2020, 16:15)emiq16 yazdı:

(14/06/2020, 16:08)https://dosya.co/ko16udotk8kv/veritabanı_(2).zip.html berduş yazdı: önce kişi eklediniz mi?

buyrun

Denedim hata vermedi.

Private Sub Açılan_Kutu18_Click()

satırını alttaki kodlardan herhangi birisiyle değiştirin.Bende değişitirmeyi unutmuşum10.mesajdaki dosya güncellendi.

Private Sub Açılan_Kutu18_Change()

Private Sub Açılan_Kutu18_AfterUpdate()

Buda DAO ile kod örneği.

Private Sub Açýlan_Kutu18_AfterUpdate()

    Dim rs As dao.Recordset

    Set rs = CurrentDb.OpenRecordset("Select * From ILLER Where [ILLER]= '" & Me.Açýlan_Kutu18.Value & "'")

    Me.FIYAT.Value = Empty

    If Not rs.EOF = True Then Me.FIYAT.Value = rs("FIYAT").Value

    rs.Close

    Set rs = Nothing

End Sub