Skip to main content

AccessTr.neT


Ürün koduna göre denetimlere değer getirme

Ürün koduna göre denetimlere değer getirme

#7
Atoz Hocam;

Benim Formumda Vba kodlarında firma isminin otomatik gelme sorgusu mevcut fakat aynı sorgunun içine diğer 4 tane kodu girdiğim zaman onlar gelmiyor.

Örnek olarak;

602-01 yazınca ürün adı (beton) firma (group beton) otomatik geliyor .... fakat aşağıda eklemiş olduğum resimde de göreceksiniz ki sonradan forma dahil ettiğim

Cinsi
Modeli
Pompalı
Mikserli

yazan alanlar otomatik gelmiyor. Sizden ricam formunu da eklediğim çalışmamı inceler misiniz?

 Private Sub txtad2_AfterUpdate()
Me.txturunkodu = [txtad2].[Column](1)
Me.MK = [txtad2].[Column](2)
Me.txtfirma = [txturunkodu].[Column](3)
'Me.txtolcu = [txturunkodu].[Column](3)
'Me.txtkalinlik = [txturunkodu].[Column](3)
'Me.txtkutuiciadet = Me.Liste376.Column(3)
'Me.txtkutum2 = Me.Liste376.Column(3)

End Sub

Private Sub txtad2_Change()
Me.txturunkodu = [txtad2].[Column](1)
End Sub

Private Sub txturunkodu_AfterUpdate()
Me.txtad2 = [txturunkodu].[Column](1)
Me.MK = [txtad2].[Column](2)
Me.txtfirma = [txturunkodu].[Column](3)
'Me.txtolcu = [txturunkodu].[Column](3)
'Me.txtkalinlik = [txturunkodu].[Column](3)
'Me.txtkutuiciadet = Me.Liste376.Column(3)
'Me.txtkutum2 = Me.Liste376.Column(3)

column(3) ler öylesine girilmiştir. Firma ismindeki sayı 3 olduğu için acaba 3 yazsam onlarda da çalışır mı diye ama 3 yazdığım zaman sadece firma Cinsi ve modeli yazan kısımlarda group beton yazdı. pompalı ve mikserli kısmına bişey yazmadı.

Sizden ricam bu kodlardaki Column sorgusu firmada çalışıyor ken neden diğerlerine ekleyince çalışmıyor ... yardımcı olursan sevinirim..

[Resim: do.php?imgf=146830991727741.jpg]
[Resim: do.php?imgf=146830991745052.jpg]
Son Düzenleme: 12/07/2016, 12:18, Düzenleyen: IceMan7.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Depo takip programı - Yazar: atoz112 - 02/07/2016, 13:27
Cvp: Ürün koduna göre denetimlere değer getirme - Yazar: IceMan7 - 12/07/2016, 11:01