İki farklı liste kutusundan seçilen verileri birleştirerek tabloya kayıt olarak ekleme
Tarih
25/11/2010 00:59
Konu Sahibi
mahirozcan
Yorumlar
8
Okunma
2101
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mahirozcan
Aktif Üye
Kullanici Avatari
Aktif Üye
71
07/09/2009
0
Sivas
Ofis 2007
20/09/2012,23:27
Çözüldü 
Sponsor Reklam
Arkadaşlar sizden ricam ekte gönderdiğim örnek soruya ilişkin bir çözüm.

Benzer bir soruyu daha önce siteye sormuş ve cevabını almıştım. Ancak o soru; tek bir liste kutusundaki seçilen veriyi herhangi bir tabloya eklemekti. Burada ise; iki farklı liste kutusundan seçilen çoklu seçimleri alt forma birleştirerek kayıt olarak eklemesi.

İlgilenenlere şimdiden teşekkür ederim.


Ek Dosyalar
.rar   Liste.rar (Dosya Boyutu: 278,86 KB / İndirme Sayısı: 22)
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

mahirozcan
Aktif Üye
Kullanici Avatari
Aktif Üye
71
07/09/2009
0
Sivas
Ofis 2007
20/09/2012,23:27
Çözüldü 
resim[/img]

soru için örnek resim
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

mahirozcan
Aktif Üye
Kullanici Avatari
Aktif Üye
71
07/09/2009
0
Sivas
Ofis 2007
20/09/2012,23:27
Çözüldü 
Sponsor Reklam
Sayın Editörler;

Soruya uzun zamandır cevap alamadım. Listeden kaldırabilirsiniz. Teşekkürler.
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Çözüldü 
sn. mahirozcan,

Çok soru geldiğinde bazen böyle gözden kaçma veya geç cevap verme durumları olabiliyor.
Anladığım kadarıyla sizin için ekteki örneği yaptım.

Visual Basic Code
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
Private Sub Komut8_Click()
Dim RS As ADODB.Recordset
Dim strSQL As String
Dim Numune_ID, Deney_ID
    
    '-----------------------------------------------------------------------
    ' Kayıt İşlemleri
    '-----------------------------------------------------------------------
    strSQL = "Select * From Deneyler"
    Set RS = New ADODB.Recordset
    RS.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    For Each Numune_ID In Me.Liste_Numuneler.ItemsSelected
        RS.AddNew
            RS("Lab No") = Me.Liste_Numuneler.Column(0, Numune_ID)
            RS("Numune No") = Me.Liste_Numuneler.Column(1, Numune_ID)

            For Each Deney_ID In Me.Liste_Deneyler.ItemsSelected
                Select Case Me.Liste_Deneyler.Column(0, Deney_ID)
                Case "pH"
                        RS("pH") = True
                Case "EC"
                        RS("EC") = True
                Case "Tuz"
                        RS("Tuz") = True
                Case "Sıcaklık"
                        RS("Sıcaklık") = True
                Case "Oksijen"
                        RS("Oksijen") = True
                End Select
            Next Deney_ID

        RS.Update
        Me.Liste_Numuneler.Selected(Numune_ID) = False
    Next Numune_ID
    
    RS.Close
    Me.Numuneler.Requery
    '-----------------------------------------------------------------------

End Sub


Notlar:
* Tablo alan adlarında boşluk kullanmayın. Örneğin; "Lab No" değil "LabNo" veya "Lab_No" kullanın.
* Formlardaki kontrollerin isimlerini anlaşılır yapın. Örneğin; Liste0 yerine Liste_Numuneler kullanın.



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

mahirozcan
Aktif Üye
Kullanici Avatari
Aktif Üye
71
07/09/2009
0
Sivas
Ofis 2007
20/09/2012,23:27
Çözüldü 
Sponsor Reklam
Sayın Seruz;

İlginize teşekkürler.İstediğim gibi çaışıyor. Bana kendi programıma uyarlamak kaldı.

Saygılarımla
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Çözüldü 
Rica ediyorum, çalışma mantığını anlarsanız rahatlıkla kendi programınıza uyarlayabilirsiniz.
Bir sorun olursa, biz buradayız.

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tabloya Resim Yolu Eklenen Resmi Raporda Gösterme siyahca 2 63 19/01/2017, 16:59 siyahca
  Yemek Sipariş Portalı 4 Sorgu Ekleme al1en 2 128 18/01/2017, 00:26 ozanakkaya
  toplu ekleme hakkında. hbal09 7 291 16/01/2017, 08:27 hbal09
  access iki tarih arası verileri datetimepicker vasıtasıyla çağırma usescrt 9 178 15/01/2017, 12:43 usescrt
Çözüldü Liste kutusundan seçili olanı tablodan silme... direnist 11 3.179 13/01/2017, 08:07 mustim1547


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