text kutusundaki sayıya göre alt tabloda kayıt açma
Tarih
08/04/2009 00:37
Konu Sahibi
alpteqinakbas
Yorumlar
3
Okunma
1556
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



alpteqinakbas
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
65
31/10/2008
İstanbul
Ofis 2003
15/12/2011,16:29
Çözüldü 
ana tablo ve alt tablomuz var
ana tablo alanları
adı
soy adı
bildiği yabancı dil sayısı
diye
ve alt tablomuz var
bildiği dillerin listesi

Ana tablomuzdaki bildiği yabancı dil sayısını atıyorum 3 girsek alt tabloda 3 satırı otomatik açarmı???


Ek Dosyalar
.rar   vt5.rar (Dosya Boyutu: 12,11 KB / İndirme Sayısı: 10)
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çözüldü 
Tabii ki açar ancak kod yazmak gerekiyor tabii.

Forumda daha önce yapılmıştı böyle bir örnek diye hatırlıyorum ama tüm aramalarıma rağmen bulamadım.
Bende yeniden yazdım.

Siz sadece yeni kayıt eklerken açsın diye düşünmüşsünüz, peki önce 3 yazıp daha sonra "aaa tüh yanlış oldu" deyip 5 yazmak isterseniz veya tam tersi 5 yazıp sonra "aaa hay allah yanlış yazmışım" deyip 3 olarak düzeltmek isterseniz noolacak?

Neyse, ben onları da düşündüm Img-grin
Buyrun.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Form_AfterUpdate()
Dim StrSQL, i, KayitSayisi
'-----------------------------------------------------------------------
' Burada ADODB kısmına hata veriyorsa, Menüde Araçlar, Referanslar kısmından gelen listeden
' "Microsoft Activex Data Object 2.x Library" seçilmelidir.
'-----------------------------------------------------------------------
    Dim RS As ADODB.Recordset
    Set RS = New ADODB.Recordset
    StrSQL = "Select * From Tablo2 Where KAYITNO=" & Me.KAYITNO
    RS.Open StrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    'Yeni kayıtsa
    If Me.NewRecord Then
        'Girilen Yabancı Dil Sayısı kadar kayıt açılıyor.
        For i = 1 To Me.YBNC_DIL_SAYISI
            RS.AddNew
                RS("KAYITNO") = Me.KAYITNO
            RS.Update
        Next i
    Else
    'Eski kayıtta güncelleme yapılıyorsa,
    'öncelikle tablo2'de daha önce kaç kayıt olduğuna bakılıyor
        KayitSayisi = RS.RecordCount
        
        'Sayı arttıysa, artan kadar kayıt açılıyor.
        If Me.YBNC_DIL_SAYISI > KayitSayisi Then
            For i = 1 To (Me.YBNC_DIL_SAYISI - KayitSayisi)
                RS.AddNew
                    RS("KAYITNO") = Me.KAYITNO
                RS.Update
            Next i
        End If

        'Sayı azaldıysa, fazla kayıtlar siliniyor.
        If Me.YBNC_DIL_SAYISI < KayitSayisi Then
            For i = 1 To KayitSayisi
                If i > Me.YBNC_DIL_SAYISI Then
                    RS.Delete
                End If
                RS.MoveNext
            Next i
        End If

    End If

    'Açılan RecordSet kapatılıyor
    RS.Close

    'Alt Form Güncelleniyor
    Me.Altform.Requery
'-----------------------------------------------------------------------
End Sub



Ek Dosyalar
.rar   OtomatikKayit_Seruz.rar (Dosya Boyutu: 17,85 KB / İndirme Sayısı: 23)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


Krizantem
Cezalı
Kullanici Avatari
Cezalı Üye
27
2
22/03/2009
Adana
Ofis 2003
27/04/2009,09:01
Çözüldü 
Güzel kod.Temiz,sade..
Cevapla


alpteqinakbas
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
65
31/10/2008
İstanbul
Ofis 2003
15/12/2011,16:29
Çözüldü 
denemedım ama tşk ederım. denedımmı tekrar teşekkür ederım saol paylaşım için
denedımde örnek süper olmuş tekrar tşk ederım.. çok işime yarayacak
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tablo kayıtlarının başka tablolardaki kayıt durumuna göre çaprazlanması uguruygar 3 126 Dün, 02:04 ozanakkaya
  Açılan kutuda seçilen ilk satır kayıt getiriyor sorunu nightashes 2 64 07/12/2016, 18:23 nightashes
Çözüldü satırdaki isimlerde otomatik klasör açma manyetix 18 3.719 07/12/2016, 12:31 donepezil
  karma kutuya göre toplama çıkarma maras321 5 202 06/12/2016, 03:07 maras321
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 289 03/12/2016, 00:13 m_demir


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya