firma bilgilerini text box a nasıl aktarabilirim

[selcukkahya]

Arkadaşlar Merhaba,

Hepinize Kolay gelsin.

Resimdeki dosyada da anlatmaya çalıştım fakat özetleyeyim konuyu;

malzemeler için 3 farklı firmadan fiyat teklifi alındıktan sonra, hangi firma teklifleri uygunsa o firmaya ait tutarların altında bulunan check box işaretlenince o firmanın bilgilerinin resimde belirttiğim text box alanına gelmesini nasıl sağlarım.

Bu konuda yardımcı olabilirseniz çok sevinirim.

Çok teşekkürler.

Hepinize tekrar kolay gelsin.

 

[selcukkahya]

arkadaşlar bana bu konuda yardımcı olacak yok mu acaba (

 

[Taruz]

Merhaba..

Üç ayrı onay kutusunun Güncelleştirme Sonrasında olayına yazılacak..

[COLOR=navy]Private Sub firmaOk1_AfterUpdate()[/COLOR]
firmaOk2 = 0
firmaOk3 = 0
If Me.firmaOk1 = -1 Then Metin187 = DLookup("[adres]", "[FIRMA]", "[FİRMA ADI]=firma1")
End Sub
 
 
[COLOR=navy]Private Sub firmaOk2_AfterUpdate()[/COLOR]
firmaOk1 = 0
firmaOk3 = 0
If Me.firmaOk2 = -1 Then Metin187 = DLookup("[adres]", "[FIRMA]", "[FİRMA ADI]=firma2")
End Sub
 
[COLOR=navy]Private Sub firmaOk3_AfterUpdate()[/COLOR]
firmaOk1 = 0
firmaOk2 = 0
If Me.firmaOk3 = -1 Then Metin187 = DLookup("[adres]", "[FIRMA]", "[FİRMA ADI]=firma3")
End Sub

İyi günler..

 

[selcukkahya]

Sayın Taruz

Söylediğiniz gibi 3 check box ın güncelleştirme sonrasına kodları yerleştirdim. Çalıştı fakat sadece firma bilgilerinin adres alanındaki bilgiler geliyor diğerleri gelmiyor.

Ekte çalışmamın son hali var.

Bu konudada yardımcı olabilirsiniz.

Çok teşekkürler.

Kolay gelsin.

 

[Taruz]

Merhaba..

Hangi alanları görmek istiyorsanız ilave edersiniz.. Ben örnek olması açısından YETKİLİ alanını ekledim..

Private Sub firmaOk2_AfterUpdate()
........
..........
If Me.firmaOk2 = -1 Then Metin187 = DLookup("[adres]", "[FIRMA]", "[FİRMA ADI]=firma2") [COLOR=navy][COLOR=red]& " - " &[/COLOR] DLookup("[YETKİLİ]", "[FIRMA]", "[FİRMA ADI]=firma2"[/COLOR])
End Sub

 

[selcukkahya]

SAYIN TARUZ

Çok teşekkür ederim ilginize. Sorun çözüldü.

Kolay gelsin