Başka bir uygulama yaparken (activex denetimlerden birini indirirken gerekmişti)vidtc3.ocx gerek duyulmuştu. Bu uygulamada vidtc3.ocx 'e ihtiyaç yok. Silmeyi unutmuşum. Referanslardan seçili işareti kaldırabilirsiniz. Referanslardan kaldırılmış hali ile programı tekrar ekledim.
Sayın Okileturc alt formda denemelerimi yapıp sonucu bildiririm.
saygılar
-----------------------------
Merhaba,
Sanırım alt formda yine çok kod kullanmayı gerektiriyor. çünkü mantıken zaten ilgili bulunduğu form için filtrelemeyi yapıyor, yani verilerin bulunduğu form... Alt formlar için de yapılıyor ama bizim şimdiki ilişik örnekte kullandığımız kod kadar kod kullanılıyor (incelediğim kadarıyla).... Alt form için biraz ado kullanarak yine kısa kodlarla başka şekilde yapıyoruz.
Örnek:
Kod:
Dim scn As ADODB.Connection 'burada bağlantı elemanı oluşturuyoruz
Dim srs As ADODB.Recordset 'kayıt kümesi elemanı oluşturuyoruz
Set scn = CurrentProject.AccessConnection 'burada bulunduğumuz veritabanı ile bağlantıyı sağlıyoruz
Set srs = New ADODB.Recordset 'kayıt kümesi oluşumu için oluşturduğumuz srs 'ye tanıtıyoruz.
With srs
Set .ActiveConnection = scn 'srs kayıt kümesi için bağlantımız açmış olduğumuz scn bağlantısı
.Source = "SELECT * FROM tablo1 where sirano like '" & filtre & "%'" 'tablo1 den verileri al ama formdaki filtreden kriter al.
.LockType = adLockOptimistic 'kayıtları eklemek, güncelemek veya silmek için adlockoptimistic kullanıyoruz.
.CursorType = adOpenKeyset ' adopenkeyset ile başkalarını kayıt değiştirdiyse onu görebilmek için kullanıyoruz.
.Open 've srs kayıt kümesi bağlantısını açıyoruz.
End With
Set Me.AltForm.Form.Recordset = srs 'alt formdaki verilerimiz srs 'ye tanıtmış olduğumuz kayıt kümesidir.
Set srs = Nothing
Set scn = Nothing