AccessTr.neT

Herkese merhabalar,

tablomdaki kayıtlı olan bir veriyi çağırdığımda ve değişiklik yaptığımda kaydet butonunu tıkladığımda değişikliği kaydediyor.Ancak birde yeni bir kayıt daha ekliyor neden olabilir?

Detaylı olarak anlatmak gerekir ise ;

örnek veritabanını açtığımızda ,

1.New record butonunu tıklıyorum
2. material code kutusuna 014360286 kodunu yazıp yanındaki aramaya tıklıyorum, (sonrakini bul butonunuda tıklıyorum)

3.şimdi aradığım kayıt geldi.ben burda yani gelen kayıt bilgilerinde herhangibir değişiklik yaptığımda veya kutulara bir şey eklediğim zaman bu kayıtlı ürün bilgilerinde değişiklik yapmasını istiyorum.Yapıyorda.Sorun yok.

Ancak fazladan yeni bir kayıt daha oluşturuyor tabloda.Bunu nasıl önleyebilirim?
Yardımcı olabilirseniz sevinirim.
teşekkürler

iyi çalışmalar

Anladığım kadarıyla yeni kayıt için makro kullanıyorsun. Sonuç olarak yeni kayıt dediğiniz için otomatik olarak yeni kayıt satırı açıyor. Siz sonra başka kayıt çağırıp düzeltme yapıyorsunuz.Bu durumda yeni kayıt satırı boş olarak kaydediyorsunuz. Bunun yerine düzenle butonu oluşturup gerekli işlemleri yapıp kaydetmeniz gerekiyor.

Saygılar...

buton oluşturacağım ancak komut düğmesi sihirbazında butona eklemek için düzeltme diye bir seçenek göremiyorum.

Şu konuyu inceleyiniz. Macro yerine ADO tercih ediniz.

https://accesstr.net/konu-kayit-duzenlem...%9CZENLEME

İlle de maro derseniz kaydı bulduktan sonra gerekli düzenlemeri yapınız kaydı kaydet derseniz ayrıca kaydı düzenle butonuna gerek kalmaz. Yada kaydı kaydet macrosu ile düzenleme yaparak adını düzenle olarak değiştirirsiniz.


Saygılar.

Zaten şu an kullandığım yöntem sizin dediğiniz gibi (makro için ) ;

kaydı buluyorum,bilgiler geliyor,düzenliyorum ve kayıt butonuna tıklıyorum kayıt ediyor.Ancak bundan sonra her seferinde tabloya girip fazladan oluşturduğu boş satırı siliyorum.

Sanırım bu nokatada ufak bir ayar yada kod müdahalesi gerekiyor ancak çözemedim.

Main1 formu altındaki aşağıdaki Vba kodunu kaldırınız.Bu kod form her açıldığında yeni kayıt oluşturur.

Private Sub Form_Open(Cancel As Integer)

DoCmd.GoToRecord , , acNewRec 'Bu satırı kaldırınız....

End Sub