Skip to main content

AccessTr.neT


Boş sıra No yu Kullanma

Boş sıra No yu Kullanma

Çözüldü #1
[Resim: Ekran_Al_nt_s.png]

İsteğim şu :
BBB için boş sıra numarası istediğim zaman 1,3,4 gibi olduğunda 2 boş numarayı vermesi

AAA içinde mesela 1,2, ya siradaki numara 3 ü vermesi
Kod:
Dim con As Object, rs As Object
yol = ThisWorkbook.Path & "\DATA.accdb"
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""
rs.Open "select * from [deneme] where field1='" & Worksheets("Veri").Range("c1").Text & "';", con, 1, 1
If rs.RecordCount > 0 Then
On Error Resume Next
    Worksheets("Veri").Range("c4").Value = ""
    Worksheets("Veri").Range("c4").Value = UCase(Replace(Replace(rs("sirano"), "i", "İ"), "ı", "I"))

    Else
    MsgBox " FİRMA BULUNAMADI"
End If
rs.Close
con.Close
Set rs = Nothing: Set con = Nothing

Ekli dosyada örnek hazırladım yardımlarınızı bekliyorum

ÖRNEK.rar
.rar ÖRNEK.rar (Dosya Boyutu: 23,66 KB | İndirme Sayısı: 4)
Cevapla
#2
İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
.zip ÖRNEK.zip (Dosya Boyutu: 83,87 KB | İndirme Sayısı: 11)
Please return your positive or negative ...
Cevapla
#3
Çok teşekkür ederim Img-grin şimdilik çalışıo.

elinize ve bilginize sağlık
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da