Skip to main content

AccessTr.neT


Etiketler
Yazar: alican60 - Cevaplar: 2 - İzleme: 2992
Sayı bulan kodun kısaltılması
Çeşitli meyvelerin sayısını ve büyüklüğüne göre sayısını bulduğum aşağıdaki kod uzayıp gitmektedir.Bu kodu tüm meyvelerde kullanabileceğim şekilde nasıl kısaltabilirmiyiz.[/code]
[code]Sub al()

Set Baglan = CreateObject("adodb.connection")

Baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\HAL.mdb"
Set rs = CreateObject("adodb.recordset")
Set rs2 = CreateObject("adodb.recordset")


Call baglanti
rs.Open "select count([CINS]),count([BOYUT]) from [SEBZ