AccessTr.neT

Öncelikle SeLamlar Şimdiden Teşekkürler Yardımlarınız için.

Vb6 Da Bir Proje yapmaya çalışıyorum. veriler Access de bulunmakta 3 tane ayrı tablodan oluşmaktadır, Formda 8 tane değişken bulunmaktadır bu değişkenler verilerin bazısını tablo 1 den bazısını tablo 2 den almaktadır.

Örn: ÜyeNo Adında ßir Combo Bulunmaktadır, form açılışında üye no kısmına daha önceden oluşturmuş oldugumuz üyelerin numarası gelmektedir. üyeno datafield üyeler adlı adoya bağlanmıştır Bu Kısma kadar bir sorun yok bu kısımdan sonra gerekli yerler doldurulduktan sonra kaydet butonuna bastıgımda üyeno kısmı üyeler alanına kaydedecektir. aynı comboyu 2 farklı adoya baglama şansım varmı kaydet dediğimde üyenosunu üyelerden çekcek kaydetme işlemi farklı alanda yapcak. Burda Access De İlişkilendirme yapsam bu yapmak istedigim olurmu yada farklı bir şekilde nasıl yapa bilirim tekrardan teşekkür ederim.

projeyi ve db yi ekleyiniz

Buyrun İnş. Anlatabilmişimdir Şimdiden Teşekkürler

Arkadaşlar Verileri Çekiyorum ßu Seferde Tekrar Tekrar Veri Çekiyor Allak ßullak Oldu Kafa
Private Sub Combo1_Change()
Dim sayi, i As Integer
Dim cevap
If Adodc1.Recordset.RecordCount = 0 Then
cevap = MsgBox("Listelenecek Kayıt Yok", 48)
Combo1.Enabled = False
Else
Adodc1.Recordset.MoveLast
sayi = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For i = 1 To sayi
Combo1.AddItem Adodc1.Recordset.Fields("uye_No")
Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.MoveFirst
End If
End Sub

Bunuda Hallettik Field("uye_no") Yanlış Yazmışım Bu Seferde Tüm Bİlgileri Listeliyor yalnız Sadece ßir Tane Üye Numarası OLmasına Ragmen 4 Tane Üye Numarası Çıkıyor Şu anda Kod ßu Şekilde

Dim sayi, i As Integer

Dim cevap

If Adodc2.Recordset.RecordCount = 0 Then

cevap = MsgBox("Listelenecek Kayıt Yok", 48)

Combo1.Enabled = False

Else

Adodc2.Recordset.MoveLast

sayi = Adodc2.Recordset.RecordCount

Adodc2.Recordset.MoveFirst

For i = 1 To sayi

Combo1.AddItem Adodc2.Recordset.Fields("uyNo")

Adodc2.Recordset.MoveNext

Next i

Adodc2.Recordset.MoveFirst

End If

Yokmu Arkadaşlar İlgilenecek ßirisi Çıkamadım işin İçinden