AccessTr.neT

Sayfalar: 1 2

Merhaba herkese sağlıklı günler dilerim.
Öğ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 Sub

Kod:
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

kodda recordseti açtığınız yeri göremedim

rs.Open sqlBaglanti, con, 1, 3

veriyi almadan önce yukardaki kodla recordset açılmalı
2. olarak maximum ID'i bulmak için Max komutu kullanılabilir

sqlBaglanti = "Select max( [ID]) FROM Cariler "

(05/12/2022, 09:34)berduş yazdı: [ -> ]kodda recordseti açtığınız yeri göremedim
rs.Open sqlBaglanti, con, 1, 3
veriyi almadan önce yukardaki kodla recordset açılmalı
2. olarak maximum ID'i bulmak için Max komutu kullanılabilir
sqlBaglanti = "Select max( [ID]) FROM Cariler " 

Halil hocam yeminle akşam bu mesajı foruma attıktan sonra bilgisayarı kapattım ve yattım, sonra uykuya dalmadan ben sorguyu düzenledim ama benim bir şey daha yapmam lazımdı sorgu kendi kendine mi çalışacak diye sesli sesli düşünmüşüm Hanım da yeter artık uyu diyince emir demiri kesti. Img-grin

. Akşam evde deneyip bilgi veririm çok teşekkürler.

(05/12/2022, 09:51)Oğuz Türkyılmaz yazdı: [ -> ]Halil hocam yeminle akşam bu mesajı foruma attıktan sonra bilgisayarı kapattım ve yattım, sonra uykuya dalmadan ben sorguyu düzenledim ama benim bir şey daha yapmam lazımdı sorgu kendi kendine mi çalışacak diye sesli sesli düşünmüşüm Hanım da yeter artık uyu diyince emir demiri kesti. . Akşam evde deneyip bilgi veririm çok teşekkürler.

Hanımdan korkmam diyen erkek yalan söylermiş Lol

Korku demeyelim de saygı ve sevgiden, incitme korkusu diyelim)
Sorunuz aslında Excel sorusu olduğundan Excel soruları bölümüne taşınmıştır

(05/12/2022, 09:34)berduş yazdı: [ -> ]kodda recordseti açtığınız yeri göremedim
rs.Open sqlBaglanti, con, 1, 3
veriyi almadan önce yukardaki kodla recordset açılmalı
2. olarak maximum ID'i bulmak için Max komutu kullanılabilir
sqlBaglanti = "Select max( [ID]) FROM Cariler " 

@halily hocam teşekkür ederim. Sorunum çözüldü. Gece sayıklamadan uyuyabilirim artık Img-grin

Sayfalar: 1 2

Oğuz Türkyılmaz

berduş

Oğuz Türkyılmaz

atoykan

berduş

Oğuz Türkyılmaz