Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
26/03/2014 15:38
Konu Sahibi
mesutyagmur
Yorumlar
9
Okunma
3065
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
26/01/2017,21:08
Çö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
26/01/2017,21:08
Çö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.879
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,08:25
Çö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
Çözüldü 2 Farklı Database Arasında Komut damacanasu 11 605 23/07/2017, 15:42 damacanasu
Çözüldü yıla göre otomatik sayı vermek umuttk 7 2.930 09/06/2017, 12:25 mihrali
Çözüldü İlişkilendirimiş Tablolar Arasında Sorgu Yazmak Hasan Ablak 9 571 22/04/2017, 19:54 atoz112
Çözüldü Access raporda sıra no yerine alfabe yi kullanma alutlu02 16 1.049 26/03/2017, 14:10 alutlu02
Çözüldü Sorguda Id Numarası Yerine İlişkili Tablodaki Adının Gelmesi cazcaz678 4 399 04/03/2017, 18:46 cazcaz678

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.