AccessTr.neT
Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? - 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ığı: Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? (/konu-liste-kutusundan-secilen-veriyi-altforma-kayit-olrak-nasil-ekleriz.html)

Sayfalar: 1 2


Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? - mahirozcan - 21/04/2010

Arkadaşlar

İlgilenenlere şimdiden teşekkür ederim.

Benim sorum ekteki örnekteki liste kutusundan altındaki altforma nasıl kayıt ekleneceği. Basit bir örnek üzerinde anlatmaya çalıştım.

İncelerseniz sevinirim.


Cvp: Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? - Puletin - 22/04/2010

İstediğinizi DeneyAdı adlı alanınızı açılır Kutu ile de yapa bilirsiniz,


Cvp: Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? - mahirozcan - 22/04/2010

Sayın Puletin

Açılan kutu ile çözebilirm. Ancak gönderdiğim örnek sadec örnekti. Benim haırlamaya çalıştığım programda liste kutusunda yaklaşık 400 adet kayıt olacak ve hepsini bir arada görüp istediğimi hemen seçerek alt forma kayıt olarak göndereceğim. Listedeki verilere çift tıklama ile hemen alt forma en göndermek çok daha pratik olur. Sizden ricam buna ilişkin bir kod.

Tekrar teşekkürler


Cvp: Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? - ayhan2122 - 22/04/2010

Yeni formlar oluşturdum, inceleyiniz.


Cvp: Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? - Seruz - 22/04/2010

Liste Kutusunun çift tıklama olayına aşağıdaki kodu yazarak yapabilirsiniz.
Kod:
Private Sub Liste7_DblClick(Cancel As Integer)
    If IsNull(Me.Liste7) Or IsNull(Me.Kimlik) Then
        MsgBox "Lütfen Deney veya kayıt seçiniz"
    Else
        CurrentDb.Execute "Insert Into Deney (LabNo,DeneyAdı) Values ('" & Me.LabNo & "','" & Me.Liste7 & "')"
        Me.Alt5.Requery
    End If
End Sub




Cvp: Liste kutusundan seçilen veriyi altforma kayıt olrak nasıl ekleriz? - ayhan2122 - 22/04/2010

Hatta biraz daha geliştirerek şu şekilde de yapabilirsiniz Img-grin