SELECT deneme.[Sipariş No], Min(deneme.Kimlik) AS EnAzKimlik, Min(deneme.[Firma Adı]) AS [EnAzFirma Adı], Min(deneme.[Stok Adı]) AS [EnAzStok Adı], Sum(deneme.Miktar) AS ToplaMiktar, Sum(deneme.Tutar) AS ToplaTutar

FROM deneme

GROUP BY deneme.[Sipariş No]

ORDER BY deneme.[Sipariş No], Min(deneme.Kimlik), Min(deneme.[Firma Adı]), Min(deneme.[Stok Adı]);

(29/12/2020, 12:56)berduş yazdı: first yerine min kullanmayı dener misiniz?
aslında bence de first olmalıydı ama bende de aynı sorun oldu

---

SELECT deneme.[Sipariş No], Min(deneme.Kimlik) AS EnAzKimlik, Min(deneme.[Firma Adı]) AS [EnAzFirma Adı], Min(deneme.[Stok Adı]) AS [EnAzStok Adı], Sum(deneme.Miktar) AS ToplaMiktar, Sum(deneme.Tutar) AS ToplaTutar

FROM deneme

GROUP BY deneme.[Sipariş No]

ORDER BY deneme.[Sipariş No], Min(deneme.Kimlik), Min(deneme.[Firma Adı]), Min(deneme.[Stok Adı]);

(29/12/2020, 14:17)kanakan52 yazdı:

Kod:

Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection

Sql = "SELECT deneme.[Sipariş No], Min(deneme.Kimlik) AS EnAzKimlik, Min(deneme.[Firma Adı]) AS [EnAzFirma Adı], Min(deneme.[Stok Adı]) AS [EnAzStok Adı], Sum(deneme.Miktar) AS ToplaMiktar, Sum(deneme.Tutar) AS ToplaTutar FROM deneme, GROUP BY deneme.[Sipariş No],ORDER BY deneme.[Sipariş No], Min(deneme.Kimlik), Min(deneme.[Firma Adı]), Min(deneme.[Stok Adı])"


ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\deneme.accdb"
ADO_CN.Open
ADO_RS.Open Sql, ADO_CN, 3, 1
'
'   Eğer Hiç Kayıt Yoksa
If ADO_RS.RecordCount = 0 Then
    MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"
    GoTo son
End If
ADO_RS.MoveLast
ADO_RS.MoveFirst

Sheets("Sheet1").Range("A5").CopyFromRecordset ADO_RS 'excelde

son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
  




@berduş hocam hata verdi nerde yanlış nyapıyorum??