İki Aralık Arasında Sıra Numarası Vermek

İki Aralık Arasında Sıra Numarası Vermek - 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ığı: İki Aralık Arasında Sıra Numarası Vermek (/konu-iki-aralik-arasinda-sira-numarasi-vermek.html)

Sayfalar: 1 2

İki Aralık Arasında Sıra Numarası Vermek - mesutyagmur - 26/03/2014

Merhaba

Aşağıdaki kodla ilgili bir sıkıntım var. Başlangıç numarası olarak 000001 verildiğinde 2 olarak devam ediyor. Nasıl 000002 olarak devam edip gitmesini sağlayabilirim. Yardımcı olabilirmisiniz?

Private Sub Komut50_Click()

DoCmd.RunCommand acCmdSaveRecord

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

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



For m = i To a

Me.Metin51.Value = i

With DoCmd

.SetWarnings False

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

.SetWarnings True

i = i + 1

End With



Next

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

End Sub

Cvp: İki Aralık Arasında Sıra Numarası Vermek - akdemir1 - 26/03/2014

merhaba,

For m = i To a

buradaki m "sayaç" anlamında değilmi

Cvp: İki Aralık Arasında Sıra Numarası Vermek - mesutyagmur - 26/03/2014

Evet. Sayaç

Cvp: İki Aralık Arasında Sıra Numarası Vermek - akdemir1 - 26/03/2014

Tam konuya hakim değilim ama

i = [Forms]![kocan]!BaşlangıcNo.text
a = [Forms]![kocan]!BitişNo.text

diye yazsak o alanlara yazılan rakamları tam olarak okurmu acaba bi denemek lazım

Cvp: İki Aralık Arasında Sıra Numarası Vermek - ozanakkaya - 26/03/2014

Uygulamanızı ekleyebilir misiniz?

Kodu aşağıdaki ile değiştirebilir misin?

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.")

Cvp: İki Aralık Arasında Sıra Numarası Vermek - mesutyagmur - 27/03/2014

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