Güncelleştirme sorgusu ile veya bir başka soru ile

[kalbinidinle]

Problemimi gayretle çözmeye anlatmaya çalışıyorum.

Acaba sayı alanı olarak belirlenmiş alanda daha önce girilmiş sayıların en büyüğünün bir fazlası, gücelleme sorgusu kullanılmak suretiyle o alanda bulunan boş kayıtlara yazdırılabilinir mi?

Örnek :1,2,3,4,5,6,7 "gibi" rakamlar girilmiş en büyük rakam "7" olduğu halde, bu rakamdan bir fazlası yani "8"i ve daha sonraki rakamları; kayıt olarak girilmiş ancak boş olan satırlara yazdırılabilinir mi?

Yani;15 kayıt var en son rakam 7 olmuş, kalan boş satırları yani 15 kayıta kadar 8 den itibaren bir fazla arttırmak suretiyle doldurulabilir mi?

Ufff.. :yardim: umarım anlatabilmişitimdir.. yardım edecek arkadaşlara şimdiden teşekkürler.

 

[gulsum1]

evet artırılabilir

ve cevabı access kod deposunda

 

[omerceri]

Makro ile yapılmış örnek ekte

 

[kalbinidinle]

İlginiz için çok teşekkür ediyorum, örnekle problemimi çözdüm.

 

[abkbek]

Sayın arkadaşlar bu sorunun cevabına ait link çalışmıyor acaba arşivinde olan varsa gönderebilirse çok sevinirim

 

[modalı]

Sayın abkbk,

Bir alttaki başlıkta buna benzer bir çözüm var.

http://www.excel.web.tr/showthread.php?t=76770

 

[Taruz]

Merhaba..

Bir alternatif de ben sunayım..

Form üzerinden çalıştıracağınız bu kodla ilk mesajda istenilen işlem gerçekleşir.. alan ve tablo isimlerini düzenlemeniz gerekir tabii..

[COLOR=#0600ff]Dim[/COLOR] kayitsayisi, sonsayi, ilkbos
[COLOR=#0600ff]Dim[/COLOR] sorgu
kayitsayisi [COLOR=#008000]=[/COLOR] DCount[COLOR=#000000]([/COLOR][COLOR=#fb0000]"*"[/COLOR], [COLOR=#fb0000]"tabloadi"[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0600ff]For[/COLOR] i [COLOR=#008000]=[/COLOR] [COLOR=#7d2252]1[/COLOR] [COLOR=#0600ff]To[/COLOR] kayitsayisi
    [COLOR=#0600ff]On[/COLOR] [COLOR=#0600ff]Error[/COLOR] [COLOR=#0600ff]Resume[/COLOR] [COLOR=#0600ff]Next[/COLOR]
    ilkbos [COLOR=#008000]=[/COLOR] DFirst[COLOR=#000000]([/COLOR][COLOR=#fb0000]"kimlikalani"[/COLOR], [COLOR=#fb0000]"tabloadi"[/COLOR], [COLOR=#fb0000]"[alanadi] is null"[/COLOR][COLOR=#000000])[/COLOR]
    sonsayi [COLOR=#008000]=[/COLOR] DMax[COLOR=#000000]([/COLOR][COLOR=#fb0000]"alanadi"[/COLOR], [COLOR=#fb0000]"tabloadi"[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]+[/COLOR] [COLOR=#7d2252]1[/COLOR]
    sorgu [COLOR=#008000]=[/COLOR] [COLOR=#fb0000]"UPDATE tabloadi SET alanadi = "[/COLOR] [COLOR=#008000]&[/COLOR] sonsayi [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]""[/COLOR]
    sorgu [COLOR=#008000]=[/COLOR] sorgu [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]" WHERE kimlikalani = "[/COLOR] [COLOR=#008000]&[/COLOR] ilkbos [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]""[/COLOR]
    CurrentDb.Execute sorgu
 
[COLOR=#0600ff]Next[/COLOR]

 

[abkbek]

Sayın Modalı ve Sayın Taruz üstadlarım,
Çok teşekkür ederim, ayrıca bu vesile ile bayramınızı en içten dileklerimle kutlar, sağlık, mutluluk ve huzurlu günler temenni ederim.
saygılarımla

 

[Taruz]

Sayın abkbek, ben de sizin bayramınızı kutlar sağlık ve esenlikler dilerim..