Skip to main content

AccessTr.neT


İki farklı liste kutusundan seçilen verileri birleştirerek tabloya kayıt olarak ekleme

İki farklı liste kutusundan seçilen verileri birleştirerek tabloya kayıt olarak ekleme

Çözüldü #1
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.
.rar Liste.rar (Dosya Boyutu: 278,86 KB | İndirme Sayısı: 23)
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
[Resim: 2wp2j9e.jpg][/img]

soru için örnek resim
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 25/11/2010, 01:11, Düzenleyen: mahirozcan.
Cevapla
Çözüldü #3
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
Çözüldü #4
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.

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.
.rar Deney_Seruz.rar (Dosya Boyutu: 202,85 KB | İndirme Sayısı: 58)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #5
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
Çözüldü #6
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task