AccessTr.neT

Hocalarıma ve üyelere iyi günler iyi çalışmalar dilerim; kanunlarla ilgili detaylandırılmış bir çalışmaya ihtiyacımız vardı ve Access veritabanını kullanarak bir sistem yapmaya çalıştık. Ancak access’e fazla hakim olamayışımızdan dolayı bazı eksiklikler kaldı ve altından kalkamadık açıkçası.forumda bulunan örnekleri incelememize rağmen yine de yapamadık bu konuda yardımınıza ihtiyacımız var. Şöyle ki:
Tüm madde ve başlıklarını gösterir bir içindekiler sayfası oluşturup ilgili başlığa tıkladığımızda tıklanılan kanun formuna gidecek bir sayfaya ihtiyacım var bu sayfada md_başlık, md_no ve md_adından oluşacak
İçtihatlar ve Dilekçeler kısmında ekle butonu ile yeni alanlar açılacak ve biz o alanlara yeni bilgileri girebilecez. Ayrıca her iki alan içinde ayrı ayrı içtihat ve dilekçe aratabileceğimiz bir bölüme ihtiyacımız var.
Liste kutusunda çift tıklama ile ilgili form sayfasına ve ayrıca yine aynı liste kutusunda madde adı veya numarası ile arama yapmamıza izin verecek bir bölüme ihtiyacımız var.
Bu konularda yardımcı olur ve ek de bulunan veri tabanında gereken değişiklikleri yaparsanız çok seviniriz ayrıca bilmediğimiz konuları da kendi veritabanımızdan sizin yardımlarınızla öğrenmiş oluruz. Şimdiden teşekkür eder iyi çalışmalar dilerim.

Ek Dosyalar

HMK.rar(56.43 KB)

Sn.ak42550
Sorularınızı konulara tek tek sormanız halinde daha çabuk sonuca ulaşabileceğinizi hatırlatmak isterim.

sn. iscinar ilk olarak içindekiler sayfası yapmak istiyorum. tıkladığımızda ilgili konuyu formda gösterebilecek.

---

aslında yüklediğim eklenti üzerinde yapamadığım konuları tek tek yazmıştım. yardım ederseniz sevinirim.

Formun kayıt kaynağına Kimlik alanını ekle, yani;

SELECT hmk.md_başlık, hmk.md_no, hmk.md_adı, hmk.md FROM hmk;

olan kayıt kaynağını

SELECT hmk.md_başlık, hmk.md_no, hmk.md_adı, hmk.md, hmk.Kimlik FROM hmk; 

ile değiştir

liste kutusunun çift tıklandığında olayına aşağıdaki kodu ekle.

Dim rs As Object

 Set rs = Me.Recordset.Clone

 rs.FindFirst "[Kimlik] = " & Str(Nz(Me![Liste34].Column(1), 0))

 If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Bu şekilde liste kutusunu çift tıkladığında kaydı forma yansıtır