AccessTr.neT

Tek form görünümü istiyrsunuz herhalde

evet tam olarak istediğim buydu. ama yeni kayıt eklenmiyor.

İnceleyiniz...

teşekkür ederim istediğim şekilde olmuş. nasıl yapıldığı hakkında bilgi verirseniz sevinirim. şimdiden teşekkürler.

İlk olarak Tablo2 yi Tablo1 ile ilişkilendirebilmek için KisiID adında bir alan ekleyip ilişkilendirme işlemini ayarladık.


Daha sonra anaform üzerinde formac isimli butonun tıklandığı olayına aşağıdaki kodu yazdık

Private Sub formac_Click()

 Dim cnr As String 'Değişkenleri belirledik

 Dim kriter As String

 

 cnr = "form"

 kriter = "[KisiID]=" & Me![Kimlik] 'Açılacak formun hangi kritere göre veri getireceğini ayarladık

 

 DoCmd.OpenForm cnr, , , kriter 'Formu açtırdık

End Sub

Daha sonra veri ekleyebilmemiz için açılan form üzerine görünür özelliği gizli olan KisiID isimli bir metin kutusu ekleyip, Formun ekleme öncesinde olayına aşağıdaki kodu yazdık.

Private Sub Form_BeforeInsert(Cancel As Integer)

KisiID = Forms!anaform.Form!Kimlik ' Ekleme öncesinde KisiID alanının değeri anaform üzerindeki Kimlik değeriyle aynı olsun dedik

End Sub

Hepsi bu kadar...
Sanırım anlatabilmişimdir...