Yeni kayıta tıkladığımda sıra numarasının otomatik artması

[celine]

En önemlisi birde sayfa1 e iki kere kaydediyor. Yardımlarınız için teşekkür ederim.

 

[celine]

Sn fpc,
dosyada birkaç düzeltme yaptım. Şuan ara/düzelt butonu, önceki-sonraki kayıt butonları çalışmıyor. Bibakabilirmisiniz?

 

[Skorpiyon]

Sayın celine,

Aşağıdaki bölümleri düzeltiniz.

1.
Private Sub BTNONCE_Click()
Sheets("Sayfa1").Select
If ActiveCell.Offset(-1, 0).Value <> "" Then
ActiveCell.Offset(-1, 0).Select
Call VeriAl
Else
MsgBox "&#304;lk Kay&#305;t"
Exit Sub
End If
End Sub

2.
Private Sub BTNSONRA_Click()
Sheets("Sayfa1").Select
On Error Resume Next
If ActiveCell.Offset(1, 0).Value <> "" Then
ActiveCell.Offset(1, 0).Select
......................

3.
frmyaklisik 'in Initialize b&#246;l&#252;m&#252;de a&#351;a&#287;&#305;daki Call komutlar&#305; aras&#305;na,
Call EkranKaydet
Sheets("Sayfa1").Select
Range("A14").Select
Call VeriAl

4.
Verial butonu alt&#305;ndaki kodlardan k&#305;rm&#305;z&#305; olanlar&#305; kald&#305;r&#305;n&#305;z.
Sheets("Sayfa1").Select
Range("A14").Select

Bu &#351;ekilde &#246;nceki-sonraki kay&#305;t butonlar&#305;n&#305;z &#231;al&#305;&#351;acakt&#305;r.

 

[Skorpiyon]

Sayın celine,

Dosyanızın düzenlenmiş hali ektedir. Önceki ve Sonraki Kayıt butonları çalışmaktadır.

Sizin kodlarınızda ara/düzelt butonu ile Call Verikaydet çağrıldığından düzeltme yerine, yeni kayıt olarak giriş yapılır. O yüzden ARA/DÜZELT butonu, Togglebutton ile değiştirilip, düzeltilmiştir.

Size düşen, ara/düzelt butonu altındaki kodlarda (activecell.offset ile) gönderme yapılan satırları ayarlamak. O kısmı size bıraktım.

Kolay gelsin, Saygılarımla...

 

[celine]

Sn sertkaya teşekkürler yardımınız ve emeğiniz için,
fakat bidaha bakarsanız ilk açılışta yeni kayıt dediğimde "kayıt" butonu disable ve ben bunun neden olduğunu bulamadım. Dediklerinizi yapmaya çalıştım. Nekadar başarılı olduğuma/madığıma bigözatarsanız sevinirim.

 

[Skorpiyon]

Sayın celine,

Siz buraya aynı dosyayı koymuşsunuz. Benim yaptığım değişiklik yok maalesef. O yüzden "Nekadar başarılı olduğuma/madığıma bigözatarsanız sevinirim." bu olayı gerçekleştiremeyeceğim

İkinci olarak son eklediğiniz dosyada, form aktif olduğunda "Yeni Kayıt" butonuna basarsanız, "Kayıt" butonu aktif oluyor. Yani sizin sorduğunuza göre bir sıkıntı yok.

Diğer türlü olayı kendiniz çözmeniz açısından şöyle ifade edeyim.

Kod bölümüne girip, Ctrl + F yapın. Butonunuzun ismini yazıp enterleyin. Yani Excel sayfalarında yaptığımız gibi bi arama yapınız. Bildiğiniz üzere False değeri butonu kilitliyordu. Butonunuzun False olan özelliğini bulduğunuz yer, sıkıntı yaşadığınız yerdir. Gerekli düzeltmeyi yaparsınız.

Saygılarımla...

 

[celine]

Sn sertkaya, kayıt olayını dün düzelttim false la fakat önceki-sonraki butonda problem var gitmiyor.

 

[celine]

Sizin programınız istediğim gibi şuan çalışıyor fakat şimdi yolluyorum kaydet butonunu düzelttim sadece, önceki- sonraki butonuna bibakarmısınız?

 

[celine]

şuan önceki-sonraki kayıt çalışıyor yalnız sayfa1 in bilgileri geliyor sadece sayfa2nin bilgileri görünmüyor ve ara-düzeltte biproblem var. Dosyayı yolluyorum..bbkblrsnz..

 

[Skorpiyon]

Sayın celine,

Aslında ARA/DÜZELT butonunda HATA YOK. Hata görmenizin sebebi Sayfa1 ile Sayfa2'deki Sıra No'ların tutmaması. Sayfa1'de var olan bir sıra numarasının Sayfa2'de olmaması yani.

Olayın özetine ve çözümüne gelirsek

Sayfa1'deki Sıra No'ları aynen Sayfa2'deki Sıra No hanesine yerleştirirseniz problem çıkmaz.

Kolay Gelsin, Saygılarımla.

 

[celine]

Sn sertkaya,
öncelikle yardımınız için teşekkür ederim, sıra numaralarını değiştirdim sorun ara/düzelt değil zaten önceki-sonraki kayıt butonları ve ilk-son kayıt butonları, yani genel anlamda programa bibabkarsınız ben değişiklik yaptım size yolluyorum. teşekkürler..

 

[Skorpiyon]

Say&#305;n celine,

G&#246;ndermi&#351; oldu&#287;unuz 31 nolu mesaj&#305;n&#305;zdaki dosyada &#304;lk-Son Kay&#305;t d&#252;&#287;meleri ve &#214;nceki-Sonraki Kay&#305;t d&#252;&#287;meleri gayet d&#252;zg&#252;n &#231;al&#305;&#351;&#305;yor.

Sizin kar&#351;&#305;la&#351;t&#305;&#287;&#305;n&#305;z problem nedir ? Yani sizde ortaya &#231;&#305;kan problem nedir ? onu yazarsan&#305;z yard&#305;mc&#305; olmaya &#231;al&#305;&#351;&#305;r&#305;m.

Sayg&#305;lar&#305;mla...

 

[celine]

Sn Sertkaya,
karşılaştığım problem şu: önceki kayıta 2 kere tıkladığımda direkt son kayıt diye bir label çıkıyor halbuki diiil, ilk kayıta tıkladığınızdada yada son kayıta tıkladığınızda doğru yere götürmüyor vede önceki ve sonraki kayıt buonları sorunsuz çalışıyormuş gibi göründünse de aslında excel sayfa2 deki bilgileri getirmemekle beraber yanlış bilgileri yanlış yerlere getirebiliyor. Benim için bikez daha bakabilirseniz sevinirim yardımınız için teşekkürler. Dosyayı yollamıyorum çünkü aynı dosya bideğişiklik yok.