DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
select top 1 faturano + 1
from hareketler
where faturatarihi = max(faturatarihi) and faturano = max(faturano)
order by faturano desc
select faturano + 1
from hareketler
group by faturano
having faturatarihi = max(faturatarihi) and faturano = max(faturano)
Sub fatnoçek()
Set con = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.RecordSet")
On Error Resume Next
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\CariKayıtlar\Hareketler.mdb"
Dim dtMaxDate As Date
sorgu = "Select FaturaNo, FaturaTarihi From hareketler"
rs.Open sorgu, con, 1, 3
If Not (rs.BOF And rs.EOF) Then
dtMaxDate = rs.Fields("FaturaTarihi")
rs.MoveNext
Do While Not rs.EOF
If rs.Fields("FaturaTarihi") > dtMaxDate Then
dtMaxDate = rs.Fields("FaturaTarihi")
fatno = rs.Fields("FaturaNo")
End If
rs.MoveNext
Loop
' If fatno Is Null Then fatno = 0
FaturaEkranı.faturano = Format(fatno + 1, "000000")
End If
rs.Close
Set rs = Nothing
End Sub