Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
25/11/2010 00:59
Konu Sahibi
mahirozcan
Yorumlar
8
Okunma
2943
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mahirozcan

Aktif Üye
 Belirtilmemiş
 20
 71
 07/09/2009
0
 Sivas
 
 Ofis 2007
 20/09/2012,23:27
Çözüldü 
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.


mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

mahirozcan

Aktif Üye
 Belirtilmemiş
 20
 71
 07/09/2009
0
 Sivas
 
 Ofis 2007
 20/09/2012,23:27
Çözüldü 
[Resim: 2wp2j9e.jpg][/img]

soru için örnek resim


mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

mahirozcan

Aktif Üye
 Belirtilmemiş
 20
 71
 07/09/2009
0
 Sivas
 
 Ofis 2007
 20/09/2012,23:27
Çözüldü 
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.

Kullanici Avatari

Seruz

Uzman
Se.... UZ....
 47
 7
 1.565
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,14:33
Çö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.


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

Kullanici Avatari

mahirozcan

Aktif Üye
 Belirtilmemiş
 20
 71
 07/09/2009
0
 Sivas
 
 Ofis 2007
 20/09/2012,23:27
Çözüldü 
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.

Kullanici Avatari

Seruz

Uzman
Se.... UZ....
 47
 7
 1.565
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,14:33
Çö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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Form1 De Buton İle Form2 Den Kayıt Sil zaferlacin 9 104 Dün, 20:26
Son Yorum: zaferlacin
Çözüldü Ekleme Sorgusunda Hata Oğuz Türkyılmaz 4 79 17/01/2019, 17:37
Son Yorum: Oğuz Türkyılmaz
Çözüldü Formda Etikete Tıklandığında Tabloya Kayıtlı Değerler Mesajbox'ta Nasıl Gösterilir. Oğuz Türkyılmaz 8 221 15/01/2019, 15:22
Son Yorum: haliliyas
Çözüldü Kaydetme, Yeni Kayıt Ekleme Ve Kayıt Silme Sorunu mmert06 18 498 15/01/2019, 01:05
Son Yorum: mmert06
Çözüldü Perşembesiz İki Tarih Arasındaki İş Günü Hesaplama (Farklı Bir Konu) toprak_tan 3 350 03/01/2019, 13:17
Son Yorum: toprak_tan

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.