Boş sıra No yu Kullanma - Baskı Önizleme

Boş sıra No yu Kullanma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Boş sıra No yu Kullanma (/konu-bos-sira-no-yu-kullanma.html)

Boş sıra No yu Kullanma - hlojan - 26/12/2015

[Resim: Ekran_Al_nt_s.png]

[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

Cvp: Boş sıra No yu Kullanma - POWER - 26/12/2015

İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

Cvp: Boş sıra No yu Kullanma - hlojan - 26/12/2015

Çok teşekkür ederim Img-grin

Img-grin

şimdilik çalışıo.

elinize ve bilginize sağlık