Sorgudaki Veriyi Alt Forma Çekmek

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.

(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

(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")

(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..