Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
::::::......Can You Buy Freedom?.........::::::
::::::......Does Money Buy Freedom?....:::::
Cevapla
Çözüldü #2
merhaba,

For m = i To a

buradaki m "sayaç" anlamında değilmi
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Son Düzenleme: 26/03/2014, 15:47, Düzenleyen: akdemir1.
Cevapla
Çözüldü #3
Evet. Sayaç
::::::......Can You Buy Freedom?.........::::::
::::::......Does Money Buy Freedom?....:::::
Cevapla
Çözüldü #4
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
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #5
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.")
Cevapla
Çözüldü #6
Teşekkürler. Ellerinize Sağlık. Hallettim.
::::::......Can You Buy Freedom?.........::::::
::::::......Does Money Buy Freedom?....:::::
Son Düzenleme: 27/03/2014, 13:03, Düzenleyen: mesutyagmur.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da