veri tabanından textboxlara veri alma

aydın3838 · 08-09-2009, 21:22

selamlar
ben çalışmamı excelde formlarla yapıyorum veri tabanı olarak acces kullanıyorum
sorum şu
userformda 5 tane page var ve her page müşterinin GENEL BİLGİLERİ,ADRES BİLGİLERİ,SATIŞ BİLGİLERİ,ÖZEL BİLGİLERİ gibi sayfalardan oluşmakta
page sayısı kadarda access tablolarım var textboxa alttaki kod yardımı ile isim yazıp sorgulama
yapıyorum ve mişterinin bilgilerini textlerde görebiliyorum

her müşterime bir kod verdim ve bu kodla pagelerde işlem yaparsam kayıt edip tekrar müşteri kodu ile arama yaparsam karşıma çıkıyor fakat adres kaydı yaptım otomatik kod verdim ama satış yapmadım ileride satış yapmak istedim texte aratıp buldum ve satış işlemini yapıp kaydettim ama o zamanda müşteri kodları uyuşmuyor veri tablolar ayrı ayrı olduğundan
işlemler karışıyor kayıtkarın benzersiz olması için ve birbirleri ile nasıl bağlantı kurulur

acces veri tabanında sorgulama kodlarıyla ilgili bana yardımcı olmanız sevinirim

Visual Basic
Private Sub TextBox1_Change()
'GENEL BİLGİLER
On Error GoTo hata
 
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
 
Call baglanti
    rs.Open "select * from [MUSTERI_REHBERI] WHERE [MUSTERI_REHBERI].KOD LIKE '%" & TextBox1.Text & "%'", baglan, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 8
    .ColumnWidths = "50;50;50"
    .Column = rs.getrows
End With
If ListBox1.ListCount > 0 Then
 
    TextBox4.Value = ListBox1.List(0, 2) 'İSİM
     TextBox5.Value = ListBox1.List(0, 4) 'MAHALLE
     TextBox6.Value = ListBox1.List(0, 5) 'CADDE
     TextBox7.Value = ListBox1.List(0, 6) 'SOKAK
     TextBox8.Value = ListBox1.List(0, 9) 'KAPI NO
     TextBox9.Value = ListBox1.List(0, 10) 'TEL EV
     TextBox10.Value = ListBox1.List(0, 11) 'TEL İŞ
     TextBox11.Value = ListBox1.List(0, 12) 'GSM
 
End If
 
    rs.Close
Set rs = Nothing
hata:
If Err = 3021 Then
    Exit Sub
End If
 
End Sub

beab05 · 08-09-2009, 21:45

Merhaba;

Öncelikle Excel'i, kodları unutun. İlk önce sadece tablolarınızı yapın ve gerekli ilişkileri kurun. Belki sizin de asıl sorduğunuz bu ama vt nizi bütün olarak bilmek lazım, konusu ve işleme mantığıyla. Çok basit vt lerle mantığını kavramaya çalışın, sitemizde de başlangıç için çok iyi kaynaklar mevcut. Eğer doğru bir tasarım yaparsanız Excel ile de istediğiniz gibi kullanabilirsiniz.

Bu şekilde bir öneriden çok çözüm bekliyorsunuz belki ama bunları atlarsanız her defasında daha da büyük sorunlarla karşılaşırsınız.

aydın3838 · 08-09-2009, 21:51

sayın berkant bey cevap için teşekkürler

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] Kelime Içinde Geçen 2 3 4 Harfe Göre Veri Doldurma	toros333	1	211	16-02-2026, 02:12 Son Mesaj: dsezgin
	Tabloya Göre Veri Doldurma	toros333	2	153	15-02-2026, 01:48 Son Mesaj: toros333
	Yaklaşan Tarihte Uyarı Alma	xosmaner	3	350	14-11-2025, 21:53 Son Mesaj: özgülapt
	Alt Rapordaki Sayfa Toplamını Alma	tekinuy	6	421	08-10-2025, 22:26 Son Mesaj: tekinuy
	Siteden Accese Vb Veri çekme Hakkında	sertac75	2	453	26-05-2025, 11:08 Son Mesaj: sertac75
	[SORGU] Soldan 3 Değere Göre Toplam Alma	karacahil	2	347	14-05-2025, 17:03 Son Mesaj: karacahil
	Altın Sitesinde Veri çekme Hakkında	sertac75	2	437	13-05-2025, 09:37 Son Mesaj: sertac75
	[VBA] Selenium Ile Gizli Tablodan Veri çekmek.	prtkl	4	433	13-05-2025, 09:27 Son Mesaj: prtkl

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL