Ç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
|