AccessTr.neT

Merhabalar,
Evet gönderdiğiniz örnek çalışıyor fakat listboxta birşey dikkatimi çekti. afterupdata kısmı makro yazmışsınız sanırım onu nasıl yapabilirim farklı bir örnekte. O yüzden başka bir yere uyarlamaya çalıştığımda çalışmıyor.

liste kutusunun güncelleştirme sonrasında olayındaki katıştırılmış makroyu ben eklemedim. Bu mevzuyu farklı bir forma ekleyecekseniz yardımcı olmak için yazacağım vb kodu farazi olur, çünkü denetim isimlerini, veri türünü vs. bilmiyorum.

Benim eklediğim kod faturano metin kutusunun güncelleştirme sonrasında olayında.

DoCmd.RunSQL "UPDATE Table1 SET FaturaNo = '" & FaturaNo & "' WHERE (((Plaka)='" & Plaka & "') AND (Not (ID)=" & ID & "));"

Bu kodu farklı formda kullanacaksanız;
Table1 yerine tablo adını,
FaturaNo, Plaka ve ID yerine tablodaki alan adını,
"& FaturaNo &" gibi & arasına yazılanlarda formdaki denetim adıdır.

Ancak tablodaki alan adının veri türüne göre WHERE kısmı değişiklik gösterebilir.
Yapamazsanız yeni örneği ekleyin, yardımcı olmaya çalışalım.

Ektedir.

Takıldım bir türlü çözemiyorum. Örneği ekte görebilirsiniz. İlginiz için çok teşekkürler.

(06/06/2014, 11:48)rknbrlz yazdı: [ -> ]Takıldım bir türlü çözemiyorum. Örneği ekte görebilirsiniz. İlginiz için çok teşekkürler

Örneğinizi aşağıdaki bağlantıda anlatılanlara göre düzenlemezseniz ileride daha çok uğraşacaksınız.

Yapılmaması gereken ölümcül hatalar

Kodun düzeltilmiş hali

DoCmd.RunSQL "UPDATE SYS_INBOUND SET [PickUp Freight Invoice] = '" & [PickUp Freight Invoice] & "' WHERE (((Service_Invoice)='" & [Service Invoice] & "')AND (Not ([_ID])=" & [_ID] & "));"

Merhabalar,
Haklısınız ve bu konuda size katılıyorum fakat malesef önceden oluşturulmuş bir database üzerinde çalışıyorum ve bu database aktif olarak kullanılıyor. Bu yüzden database tanımlamalarında değişiklik yapamıyorum. Şimdilik mevcut üzerinden devam etmeliyim. Bu arada sizin uyarladığınız kodu yazdım fakat bu sefer tüm kayıtlarda değişiklik yapıyor. Sadece ilgili service invoice yerine hepsine kayıt atıyor. Bu neden olabilir?