access soruları

[ofbayoglu]

Değerli üyeler Access üzerinden tasarladığım bi porgram çalışmasında bi kaç noktada takıldım ve çözüme ulaşamıyorum. işin geneli bittii access veri tabanından çektiğim verileri listboxta belirli kriterlere göre seçmek gibi mükerrer kayıt hataları sıralama vs. bu işlem için profesynel destek arıyorum . Bununla iligili ücret ödemeye hazırım. Bu konu ile ilgili uzman arkadaşlarımızdan yardım ve ilgi bekliyorum.

Saygılarımla,

ofbayoglu@gmail.com

 

[akd]

Örnek çalışmanızı ekleyin bakalım.

 

[ofbayoglu]

hocam şu şekilde bi çalışma aşağıda kodları paylaştım.



Private Sub ComboBox6_Change()
Dim baglan As New Connection
Dim rs As New Recordset

ListBox1.Clear

On Error Resume Next

t1 = Me.ComboBox6.Text

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis where firma=('" & t1 & "')", baglan, adOpenKeyset, adLockPessimistic

With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows

End With

rs.Close

baglan.Close
End Sub