Merhaba,

Ozan hocamın kodu işe yaradı galiba,
Nasıl hallettiğinizi paylaşırsanız aynı sorunu yaşayan arkadaşlarada yardımcı olmuş olursunuz bence,

Saygılarımla..

Kaç gündür sabırla bu mesajı takip ediyorum,
Cevap yok...

Şunu unutmamak gerekir,,, herşey "işimi hallettim bitti, size kolay gelsin" den ibaret değildir, bu çok yanlış.

burada insanlar birilerinin problemini çözmek için canla başla uğraş veriyor...

Eminimki kimse bu sitenin yıllık host ve domain ücretini bile bilmiyor..
ne amaçla insanlar fedakarlık ediyor.???

Bunun Karşılığı "karşılıksız kalmak" olmamalı....!


Sabır gösteren bütün kurucu yönetici ve yardımcı arkadaşlara içten saygılarımı sunuyorum gerçekten,,

Ben bu kadar sabretmez bu platformu kapatırdım..

Özverinize gerçekten binlerce saygılarımı sunarım.

sayın akdemir1,

eğer 6.mesajda sayın Mesut YAĞMUR Bey'in

Alıntı:...Teşekkürler. Ellerinize Sağlık. Hallettim....

ifadesini sayın Ozan Bey'in 5.mesajda yazmış olduğu

Alıntı:...Kodu aşağıdaki ile değiştirebilir misin?...

ifadesinin akabinde eklemiş oldukları kodlamaya dair geçerli kabul ettiklerini beyan etmiş sayarsak,sizin de bu çözüme yönelik olarak yapmanız gereken şu olacaktır diye düşünüyorum.

Private Sub Komut50_Click()

...

...

...

End Sub

boş bırakılan (nokta noktalı) kısımdaki alan içerisine,

DoCmd.RunCommand acCmdSaveRecord

i = [Forms]![kocan]!BaşlangıcNo

a = [Forms]![kocan]!BitişNo

For m = i To a

Me.Metin51.Value = i

If Len(i) = 1 Then

Metin51 = "00000" & i

ElseIf Len(i) = 2 Then

Metin51 = "0000" & i

ElseIf Len(i) = 3 Then

Metin51 = "000" & i

ElseIf Len(i) = 4 Then

Metin51 = "00" & i

ElseIf Len(i) = 5 Then

Metin51 = "0" & i

ElseIf Len(i) = 6 Then

Metin51 = i

ElseIf Len(i) = 7 Then

MsgBox ("Koçan No 6 haneye ulaştığı için " & i - 1 & " sayısında bitirildi")

Exit Sub

End If

With DoCmd

.SetWarnings False

.RunSQL "insert into cek(koçanno,çekno)" & " select [Forms]![KOCAN]!Kocanno, [Forms]![KOCAN]!Metin51"

.SetWarnings True

i = i + 1

End With

Next

MsgBox ("Çek Tablosu Oluşturuldu.")

kodlamasını kopyala yapıştır ile eklemek ve çalıştırmak.
versiyon farklı olduğundan denemedim.fakat sorunuzun cevabı bu olacaktır diye düşünüyorum.bilgilerinize.

iyi çalışmalar,
saygılar.

Atorz hocam ilginiz için çok teşekkür ederim,
Benim döngülerle alakalı bir sorunum yok şu anda.
Muhatabı yazmayınca siz açıklama yapmışsınız bende buna kızıyorum işte.
Mesut beyin sorunu nasıl hallettiği bence halen muallakta, son olarak nasıl hallettiğinizi paylaşınki diğer arkadaşlarda faydalansın diye mesaj yazdım ama cevap alamadım.

Formdaki çıkarcı insanlara bakıyorum mesajları didik didik ediyorum hep aynı şeyi görüyorum,,,
Soru sorulduğunda en kısa zamanda cevap almak için defalarca "yardım edecek yokmu" , "lütfen yardım edin" , "bittim mahvolum" mesajlarını görüyorum,
sorunu çözüme kavuşunca araki bulasın o vatandaşı.

Neyse ben daha fazla başınızı ağırtmayayım

Saygılar...