Öğrenme amacıyla düzenlediğim uygulamada Excel çalışma kitabında Userform.Cari adlı formun üzerinde ki TextBox.CariKod alanına Access veritabanı Cariler Tablosu ID alanında kayıtlı son ID numarasının bir fazlasını çekmeye çalışıyorum. Fakat sorguyu bağlantıda kullanmayı beceremedim. Bu konuda yardımcı olmanızı rica ederim.
Kod:
Public con As Object
Public rs As Object
Public CariID As Integer
Sub Baglan()
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
yol = "C:\Users\oguzt\Desktop\VBA PROJE\DB\Database_VBAOgreniyorum.accdb"
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";Persist Security Info=False;"
End Sub
Sub SonCariID_Getir()
Call Baglan
'Set con = CreateObject("ADODB.Connection")
'Set rs = CreateObject("ADODB.Recordset")
sqlBaglanti = "Select TOP 1 [ID] FROM Cariler ORDER BY [ID] DESC"
CariID = rs.Fields(0)
End SubKod:
Private Sub UserForm_Activate()
AdoBaglan.SonCariID_Getir
TextBox_CariKod.Value = "C-000" & CariID + 1
ComboBox_Durumu.List = Array("Aktif", "Pasif")
ComboBox_Tipi.List = Array("Alıcı", "Satıcı", "Alıcı-Satıcı")
End Sub
![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
