Alt form dan üst forma aktarma

[hedefkaya]

Alt formda ki veriye çift tıkladığımda o satırdaki bilgiler üst formda açılsın
yardımlarınız teşekürler.

 

[Taruz]

Merhaba..

Bu olay için kullnabiliceğiniz kodlar bu şekilde..:

Forms![CARİ]![SIRA NO] = Me.SIRA_NO
Forms![CARİ]!ADI = Me.ADI
Forms![CARİ]!TOPLAM = Me.TOPLAM

 

[hedefkaya]

sayın taaruz bu komutlar tamam fakat tam olarak istediğim iş olmadı
üst formunda kayıt kaynağı cari tablosu
yani sıra no otomotik sayı o yüzden hata veriyor.

 

[Taruz]

Koddaki ilk satırı iptal edebilirsiniz.. Amacınız farklı ise isteğinizi biraz daha açın ve örneğiniz ona göre olsun..

 

[hedefkaya]

Yeni örnek

formda ki hatayı halledebilirmisiniz açıklama formda

 

[Taruz]

Amacınız kayıt değiştirmek değil, getirmek sanırım.. Otomatik sayı veri türündeki bir alanın kaydını değiştiremeyiz..

Filtreleme için bu kodu kullanınız:

    DoCmd.ApplyFilter "", "[CARİ]![SIRA NO]=[Forms]![CARİ]![CARİ alt formu].[Form]![SIRA NO]"

 

[hedefkaya]

sadece bir hata kaldı

Amacınız kayıt değiştirmek değil, getirmek sanırım.. Otomatik sayıyı veri türündeki bir alanın kaydınıda değiştiremeyiz..

Filtreleme için bu kodu kullanınız:

    DoCmd.ApplyFilter "", "[CARİ]![SIRA NO]=[Forms]![CARİ]![CARİ alt formu].[Form]![SIRA NO]"

sayın taruz ilgin için teşekürler
istediğim tam olarak buydu fakat bu komutu sadece bir seferliğine kullana biliyorum
yani
ilk tıkladığımda her şey tamam
fakat ikinci kez tıkladığımda komut işlemiyor

 

[Taruz]

Merhaba..

Filtreleme yapmadan kaydı getirmek için bu kodu kullanın..

Dim rs As Object
    Set rs = [Forms]![CARİ].Recordset.Clone
    rs.FindFirst "[SIRA NO] = " & Str(Nz(Me![SIRA NO], 0))
    If Not rs.EOF Then [Forms]![CARİ].Bookmark = rs.Bookmark

 

[hedefkaya]

teşekürler sayın Taruz ellerine sağlık