ragnorak
Altın Üye
- Katılım
- 4 Haziran 2016
- Mesajlar
- 204
- Excel Vers. ve Dili
- Excel 2021
- Altın Üyelik Bitiş Tarihi
- 03-09-2026
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu = "select Max(Right([STOK_KODU],4)) as ttx,[MALZEME_TUR] from [HAMMADDE] where [MALZEME_TUR] ='PANEL MALZEMELERİ' group by [MALZEME_TUR]"
RS.Open Sorgu, con, 1, 3
If RS.RecordCount > 0 Then
ttx = ttx + 1
Else
ttx = "1001"
End If
Set RS = CreateObject("adodb.recordset")
Sorgu = "select Max(Right([STOK_KODU],4)) as fx,[MALZEME_TUR] from [HAMMADDE] where [MALZEME_TUR] ='" & MALZEME.MALZEME_GRUBU.Value & "' group by [MALZEME_TUR]"
RS.Open Sorgu, con, 1, 3
If RS.RecordCount > 0 Then
ttx = RS("fx").Value + 1
Else
ttx = "1001"
End If
strSQL = "Select [STOK_KODU] From [HAMMADDE] Where Right([STOK_KODU],4) In (Select Max(Right([STOK_KODU],4)) From [HAMMADDE]) "
strSQL = "Select [BIRIM_FIYAT] From [HAMMADDE] Where Right([STOK_KODU],4) In (Select Max(Right([STOK_KODU],4)) From [HAMMADDE]) "