22-11-2025, 23:43
(22-11-2025, 23:26)osman06 demiş ki:(22-11-2025, 22:37)dsezgin demiş ki:(22-11-2025, 19:22)osman06 demiş ki: hocam bu kodu malzeme alanı güncelleştirme sonrasınamı ekleyecem . orda diğer kodlar var nasıl ekleyecem bu şekilde eklersem malzeme kodu alanından seçim yapamıyorum. örneğe ekleme şansınız varsa çok iyi olur yapılmış bi çalışmada olayı daha iyi anlıyorum
Alt form ALAN özelliklerden kilitlemiş olduğundan seçim yapılamaz. malzeme_kodu alan güncelleme olay yordamı prosedürün en son satırın bir üstüne taşıyabilirsiniz.
hocam malzeme kodunun güncelleştirme sonrasına alttaki gibi yaptım ama çalışmadı . hatta benim koddaki alış_fiyat ve satış fiyatı sildim denedim yine olmadı
Private Sub malzeme_kodu_AfterUpdate()
Me![malzeme_adi] = Me![malzeme_kodu].Column(1)
Me![birimi] = Me![malzeme_kodu].Column(2)
Me![alis_fiyat] = Me![malzeme_kodu].Column(3)
Me![miktar] = Me![malzeme_kodu].Column(5)
Me![yakitgiderii] = Me![malzeme_kodu].Column(6)
Me![iscilikk] = Me![malzeme_kodu].Column(7)
Me![genelgiderr] = Me![malzeme_kodu].Column(8)
Me![satis_fiyat] = Me![malzeme_kodu].Column(4)
Me![maliyet] = Me![malzeme_kodu].Column(10)
Me![tkonu] = Me![malzeme_kodu].Column(9)
Me![serisi] = Me![malzeme_kodu].Column(11)
If Me.Parent.caridurumu = "MÜŞTERİ" Then
Me.alis_fiyat = Me.malzeme_kodu.Column(3)
ElseIf Me.Parent.caridurumu = "BAYİ" Then
Me.satis_fiyat = Me.malzeme_kodu.Column(4)
Else
Me.alis_fiyat = 0
Me.satis_fiyat = 0
End If
End Sub
hocam allah razı olsun çözdüm tşkler
satış fiyatı 4 olanı 3 yaptım çözüldü istediğim gibi alıyor.

