Sorgudaki Veriyi Alt Forma Çekmek

Sorgudaki Veriyi Alt Forma Çekmek - Baskı Önizleme

+- 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ığı: Sorgudaki Veriyi Alt Forma Çekmek (/konu-sorgudaki-veriyi-alt-forma-cekmek.html)

Sorgudaki Veriyi Alt Forma Çekmek - notrino - 08/10/2018

Selamlar,

Ekli örneğimdeki butona basınca Alt Form'daki ilişkisiz metin kutusuna Sorgu1 deki veri gelsin istiyorum ama beceremiyorum. Yazdığım VB kod hatalı..Tşk.

Cvp: Sorgudaki Veriyi Alt Forma Çekmek - notrino - 09/10/2018

(08/10/2018, 20:34)notrino yazdı: Selamlar,

Ekli örneğimdeki butona basınca Alt Form'daki ilişkisiz metin kutusuna Sorgu1 deki veri gelsin istiyorum ama beceremiyorum. Yazdığım VB kod hatalı..Tşk.

Gerek kalmadı, çözdüm teşekkürler.
Olması gereken kod :

Kod:

Dim Sorgu1Toplaalan1 As Integer

Sorgu1Toplaalan1 = DLookup("[Toplaalan1]", "Sorgu1", "[Kimlik]=" & [Kimlik])

Me.Alt1.Form.Metin2 = Sorgu1Toplaalan1

Cvp: Sorgudaki Veriyi Alt Forma Çekmek - Allback - 09/10/2018

(09/10/2018, 10:34)notrino yazdı:
(08/10/2018, 20:34)notrino yazdı: Selamlar,

Ekli örneğimdeki butona basınca Alt Form'daki ilişkisiz metin kutusuna Sorgu1 deki veri gelsin istiyorum ama beceremiyorum. Yazdığım VB kod hatalı..Tşk.

Gerek kalmadı, çözdüm teşekkürler.
Olması gereken kod :

Kod:

Dim Sorgu1Toplaalan1 As Integer Sorgu1Toplaalan1 = DLookup("[Toplaalan1]", "Sorgu1", "[Kimlik]=" & [Kimlik]) Me.Alt1.Form.Metin2 = Sorgu1Toplaalan1

Aşağıdaki kod satırı ile de yapabilirsiniz.

Kod:

Me.Alt1.Form.Metin2 = DLookup("Toplaalan1", "Sorgu1")

Cvp: Sorgudaki Veriyi Alt Forma Çekmek - notrino - 09/10/2018

(09/10/2018, 10:52)Allback yazdı:
(09/10/2018, 10:34)notrino yazdı:
(08/10/2018, 20:34)notrino yazdı: Selamlar,

Ekli örneğimdeki butona basınca Alt Form'daki ilişkisiz metin kutusuna Sorgu1 deki veri gelsin istiyorum ama beceremiyorum. Yazdığım VB kod hatalı..Tşk.

Gerek kalmadı, çözdüm teşekkürler.
Olması gereken kod :

Kod:

Dim Sorgu1Toplaalan1 As Integer Sorgu1Toplaalan1 = DLookup("[Toplaalan1]", "Sorgu1", "[Kimlik]=" & [Kimlik]) Me.Alt1.Form.Metin2 = Sorgu1Toplaalan1

Aşağıdaki kod satırı ile de yapabilirsiniz.

Kod:

Me.Alt1.Form.Metin2 = DLookup("Toplaalan1", "Sorgu1")

Teşekkürler..