(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