Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Formda yer alan değere göre alt formda satır açma

[FORM] Formda yer alan değere göre alt formda satır açma
Emre061
Aktif Üye 40-100

*
Kayıt Tarihi: 16.05.2013
Toplam 17 konu açtı.
Toplam 82 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#1
13-12-2013, 12:58
arkadaşlar merhaba,
tasarladığım veritabanında yapı ve bağımsız bölüm tabloları ilişkilidir ve yapı tablosundan oluşturduğum bir ana form bulunmaktadır. bu ana form içerisinde bağımsız bölüm alt formu bulunmaktadır.

form da geliştirmek istediğim ise şudur; yapı tablosunda bulunan "BAGIMSIZ_BOLUM_SAYISI" alanında ne kadar değer girersem bağımsız bölüm alt tablosunda da o kadar kaydın açılması.

örneğin:
ana formda "BAGIMSIZ_BOLUM_SAYISI" = 5
alt formda (Bağımsız Bölüm Tablosu) da 5 adet satırın açılmasıdır


Eklenti Dosyaları
.rar   Test_Yapi_BB.rar (Boyut: 45,84 KB / İndirilme: 84)



  Bul
  Alıntı
Bu mesajı beğenenler:
jon206
Access Takımı

*
Kayıt Tarihi: 19.09.2008
Toplam 18 konu açtı.
Toplam 1.016 yorum yaptı.
Toplam 77 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#2
13-12-2013, 18:08
dosya ekte ben komut dügmesine yaptım siz isterseniz..
bağımsız bölüm sayısı güncelleme sonrasına yapabilirsiniz..
kolay gelsin.


Eklenti Dosyaları
.rar   Test_Yapi_BB.rar (Boyut: 50,04 KB / İndirilme: 116)
imza; jon206
www.access-sql.com



  Bul
  Alıntı
Bu mesajı beğenenler:
Emre061
Aktif Üye 40-100

*
Kayıt Tarihi: 16.05.2013
Toplam 17 konu açtı.
Toplam 82 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#3
13-12-2013, 18:27
(13-12-2013, 18:08)jon206 demiş ki: dosya ekte ben komut dügmesine yaptım siz isterseniz..
bağımsız bölüm sayısı güncelleme sonrasına yapabilirsiniz..
kolay gelsin.

ilginiz için teşekkürler.
ancak şunu farkettim. yeni kayıt girerken bağımsız bölüm sayısını girdikten sonra komut düğmesine tıkladığınızda "yapı tablosunda ilgili kayıtlar olması gerektiğinden kayıt ekleyemez yada değiştiremezsiniz" şeklinde uyarı veriyor.
bunu aşmak için farklı bir kayda gidip geri dönmeniz gerekiyor.
bu işlemi farklı kayda gidip geri dönme dışında bir olayla çözemezmiyiz.



  Bul
  Alıntı
Bu mesajı beğenenler:
jon206
Access Takımı

*
Kayıt Tarihi: 19.09.2008
Toplam 18 konu açtı.
Toplam 1.016 yorum yaptı.
Toplam 77 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 1 / 5
#4
13-12-2013, 18:48
merhaba
Visual Basic
  1. Dim rs As New ADODB.Recordset
  2. If IsNull(Me.BAGIMSIZ_BOLUM_SAYISI) Then MsgBox "BAGIMSIZ BÖLÜM BOŞ OLMAMALIDIR", vbCritical: Exit Sub
  3. DoCmd.RunCommand acCmdSaveRecord  'ekledim
  4. ................
  5. .........


imza; jon206
www.access-sql.com



  Bul
  Alıntı
Bu mesajı beğenenler:
Emre061
Aktif Üye 40-100

*
Kayıt Tarihi: 16.05.2013
Toplam 17 konu açtı.
Toplam 82 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#5
13-12-2013, 18:55 (En son düzenleme: 13-12-2013, 19:01 Emre061.)
(13-12-2013, 18:48)jon206 demiş ki: merhaba
Visual Basic
  1. Dim rs As New ADODB.Recordset
  2. If IsNull(Me.BAGIMSIZ_BOLUM_SAYISI) Then MsgBox "BAGIMSIZ BÖLÜM BOŞ OLMAMALIDIR", vbCritical: Exit Sub
  3. DoCmd.RunCommand acCmdSaveRecord  'ekledim
  4. ................
  5. .........


işe yarıyor. önceden bahsettiğim uyarıyı vermiyor artık. ancak bu seferde 5 kayıt var yanlışlıkla komut tuşuna iki defa basılırsa 5 kayıt daha ekliyor. yani o yapıya ait bağımsız birim sayısı 5 olması gerekirken 10 oluyor.

birde bu sistemi şu şekilde geliştirebilirmiyiz: BAG_BOLUM_NUMARASI alanı kaç tane satır ekleniyorsa 1 den başlayarak numara alsın.

örneğin: eklenecek satır sayısı:5
BAG_BOLUM_NUMARASI alanları bu satırlar için 1, 2, 3, 4 ve 5 şeklinde olsun



  Bul
  Alıntı
Bu mesajı beğenenler:
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#6
13-12-2013, 19:31
selam
alltaki kodları denermisiniz

Visual Basic
  1. Dim conn As ADODB.Connection
  2. Dim rs As New ADODB.Recordset
  3. Dim h As Long
  4. Dim i As Integer
  5. If BAGIMSIZ_BOLUM_SAYISI = "" Or IsNull(BAGIMSIZ_BOLUM_SAYISI) Or BAGIMSIZ_BOLUM_SAYISI = 0 Then: Exit Sub
  6. CurrentDb.Execute "delete BAGIMSIZ_BOLUM.YAPI_ID FROM BAGIMSIZ_BOLUM WHERE BAGIMSIZ_BOLUM.YAPI_ID>0 and BAGIMSIZ_BOLUM.YAPI_ID=" & OBJECTID & ""
  7. DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
  8. z = BAGIMSIZ_BOLUM_SAYISI.Value
  9. rs.Open "BAGIMSIZ_BOLUM", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  10. For i = 1 To z Step 1
  11. h = Me.OBJECTID
  12. rs.AddNew
  13. rs("YAPI_ID") = h
  14. rs("BAG_BOLUM_NUMARASI") = i
  15. Next i
  16. Set rs = Nothing
  17. Set conn = Nothing
  18. Me.Alt2168.Requery





  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Formda Iskonto Hesaplama anno 1 360 17-06-2025, 11:04
Son Mesaj: dsezgin
  [SORGU] Soldan 3 Değere Göre Toplam Alma karacahil 2 347 14-05-2025, 17:03
Son Mesaj: karacahil
  Listview Değere Göre Renklendirme ibrahimsenol 3 1.130 19-12-2024, 15:37
Son Mesaj: Satir
  [SORGU] Row-number() Yada Satır Sayısı kahramanselim 2 381 15-10-2024, 16:26
Son Mesaj: kahramanselim
  [FORM] Form Açıkken Diğer Formda Işlem Yapabilmek caytug 6 541 02-10-2024, 10:12
Son Mesaj: caytug
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 495 09-09-2024, 17:14
Son Mesaj: ozan028
  Sorgu Içerisinde Boş Alan Varsa 0 (sıfır) Ile Doldurmak denizfatihi 3 515 15-08-2024, 14:38
Son Mesaj: beab05
  [SORGU] çarpraz Sorguda Sütun Değeri Olarak Birden çok Alan Seçebilir Miyiz? abkbek 2 409 13-08-2024, 21:18
Son Mesaj: abkbek

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi