+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Veritabanı (/konu-access-veritabani--87402.html)
RE: Access Veritabanı - emiq16 - 14/06/2020
(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
RE: Access Veritabanı - berduş - 14/06/2020
Benim yukledigim dosyayi denediniz mi?
RE: Access Veritabanı - feraz - 14/06/2020
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.
RE: Access Veritabanı - feraz - 14/06/2020
(14/06/2020, 16:15)emiq16 yazdı:Denedim hata vermedi.(14/06/2020, 16:08)https://dosya.co/ko16udotk8kv/veritabanı_(2).zip.html berduş yazdı: önce kişi eklediniz mi?buyrun
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()RE: Access Veritabanı - feraz - 14/06/2020
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