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.
İstediğinizi DeneyAdı adlı alanınızı açılır Kutu ile de yapa bilirsiniz,
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
Yeni formlar oluşturdum, inceleyiniz.
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
Hatta biraz daha geliştirerek şu şekilde de yapabilirsiniz