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?


[vb]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].v

Merhaba arkadaşlar

Aşağıdaki EKLEME sorgusuna başka bir sütuna sıra numarası eklenebilir mi?

[vb]INSERT INTO AtolyeIsEmirleri ( AtolyeID, IsEmriNotu, SiparisID, BoyID, SatirID, UrunBilgiSiraID )
SELECT UrunAtolyeTanimlari.AtolyeID, UrunAtolyeTanimlari.Aciklama, [Forms]![SiparisAnaTabloFormu]![PolyesterAnaTabloCubuk alt formu].[Form]![SiparisID] AS ss, [Forms]![SiparisAnaTabloFormu]![PolyesterAnaTabloCubuk alt formu].[Form]![BoyID] AS bb, [Forms]![SiparisAnaTabloFormu]![PolyesterAnaTabloCu

Bir Veritabanı bağlantısı oluşturduktan sonra form üzerinde bir butona yeni kayıt ekle dediğim zaman formda bulunan ID.TEXT alanına ilgili tablodaki enbüyük ID numarasının 1 fazlasını nasıl yazdırabilirim. Saygılar.

Örnek uygulamada yer alan rapor çıktısında sıralama şu şekilde;
1-) Ahahahahhahahahah
2-) Bababaabababababba
3-) Dedededededdededed

Bunun yerine ya
1- Ahahahahhahahahah
2- Bababaabababababba
3- Dedededededdededed şekilde ya da

1) Ahahahahhahahahah
2) Bababaabababababba
3) Dedededededdededed olmasını sağlama noktasında yardımlarınız bekliyorum..

Not:yapıp vermek yerine nasıl yapıldığı konusunda yardımcı (tarif ederseniz) olursanız daha makbule geçecektir.

Saygılar..

Değerli forum üyeleri,değerli hocalarım;

Ekteki uygulamada
Açılış formumuz;degerlendirmeyap formu
Metin kutularından;öğrenci ad soyad-TC-doğum tarihi giriyoruz ve kaydediyoruz.
lst_anabaslik metin kutusundan öğrenci sınıfını seçiyoruz.
lst_altbaslik metin kutusundan dersleri (çift tıklıyoruz) seçiyoruz.
Ders üzerine çift tıkladıktan sonra frm_secimformu açılıyor.
Ders için amaç seçimini frm_secimformunda tik atarak yapıyoruz.
frm_secimformu kapattığımızda yapılan seçimler tablo deger

[Resim: http://s18.postimg.org/hv5kheyex/Ekran_Al_nt_s.png]

İsteğim şu :
BBB için boş sıra numarası istediğim zaman 1,3,4 gibi olduğunda 2 boş numarayı vermesi

AAA içinde mesela 1,2, ya siradaki numara 3 ü vermesi
[CODE]Dim con As Object, rs As Object
yol = ThisWorkbook.Path & "\DATA.accdb"
Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""
rs.Open "select * from [deneme] where f

Merhabalar,

Sıra Takip Sistemi ile ilgili ekte bir örnek gönderiyorum. Formda açıkça ifade ettiğim kapsamda bir çözüm arıyorum. Klasik olarak sürekli form uygulamasıyla da bunun benzerini yapabiliyorum ancak sorgu ya da kod tasarımı ile bu nasıl yapılabilir yardımlarınızı bekliyorum. Tşk.

Merhaba arkadaşlar,
Kayıtlardaki sıra numarası silinmelerden dolayı sıralama bozuluyor,
ozan hocanın bir örneğini inceledim hayali sıra numarası veren,
son zamanlarda bu kod hata vermeye başladı,
hatayı ve örneği ekliyorum .

sayın hocam,
benim çözdüğüm şekli göndermek adına ve sizin yapmış olduğunuz 
çözüm şeklinde sira no nasıl verebiliriz. 
KULANICI :MA
ŞİFRE:20

Merhaba,
Rapor kısmında otomatik sıra numarasi yerine, alfabetik numara verebilir miyiz? Access 2013
1.
2.
3.
Yerine
a
b
c