İki Aralık Arasında Sıra Numarası Vermek
Tarih
26/03/2014 15:38
Konu Sahibi
mesutyagmur
Yorumlar
9
Okunma
2355
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mesutyagmur
Mesut
Kullanici Avatari
Aktivasyon Bekleyen
M.... Y....
41
24/10/2011
Adana
-
27/03/2014,13:09
Çözüldü 
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?


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

Cevapla


akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
13/10/2016,21:30
Çözüldü 
merhaba,

For m = i To a

buradaki m "sayaç" anlamında değilmi
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla


mesutyagmur
Mesut
Kullanici Avatari
Aktivasyon Bekleyen
M.... Y....
41
24/10/2011
Adana
-
27/03/2014,13:09
Çözüldü 
Evet. Sayaç
Cevapla


akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
13/10/2016,21:30
Çözüldü 
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


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,13:38
Çözüldü 
Uygulamanızı ekleyebilir misiniz?
Kodu aşağıdaki ile değiştirebilir misin?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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


mesutyagmur
Mesut
Kullanici Avatari
Aktivasyon Bekleyen
M.... Y....
41
24/10/2011
Adana
-
27/03/2014,13:09
Çözüldü 
Teşekkürler. Ellerinize Sağlık. Hallettim.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tabloda Telefon numarası yoksa eklesin. 53rize 4 84 29/11/2016, 11:30 53rize
  Sorgudaki değişime göre formda uyarı vermek mehmetb84 4 142 16/11/2016, 23:08 mehmetb84
  Kayıtlar arasında dolaşmak (Önceki / Sonraki kayıt) koruyucu 10 267 25/10/2016, 23:23 koruyucu
  Sorguda arasında formülünde yardıma ihtiyacım var okumas 9 399 11/10/2016, 09:35 okumas
  Form üzerinden sıra numarası vermek ates2014 13 556 21/08/2016, 13:35 ates2014


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya