Data çok büyük olduğu için basit bir örnek koydum. Yapmak istediğim başka bir yerden açtırdığım FVadeHesaplama tablosundaki Toplam Vade Farkı yazan metin kutusundaki değeri kapat butonuna basınca TCari tablosundaki o müşteri ismindeki kayıtta vade_fark yazan yere değeri atması. Yardımlarınız için şimdiden teşekkür ederim.
Formdan tabloya kayıt
Referanslara "Microsot ActiveX Data Objects 2.8 Library" referansını ekle
Kapat butonunun tıklandığında olayına aşağıdaki kodu ekle
bu kod eklediğiniz örnekte çalışır, kendi uygulamanızda formdaki denetim adları farklı ise düzenleme yapmanız gerekiyor.
Ayrıca, form açıldığında müşteri adını forma nasıl aktarıyorsunuz bilmiyorum ama müşteri adı ile birlikte musteri id numarasını da aktarmanız gerekli, aynı isimli birden fazla müşteri olabilir.
Tablonuz ile ilgili olarak,
1-) tabloya "not" adında alan eklemeyiniz, kodlama sırasında not problem yaratır.
2-) ad_soyad alanına birincil anahtar eklemişsiniz, birincil anahtarı ID alanına eklemelisiniz.
Kapat butonunun tıklandığında olayına aşağıdaki kodu ekle
strSQL = "SELECT * FROM TCari "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[ad_soyad]=" & "'" & Me![Metin22] & "'"
If Not rstkayit.EOF Then
.Fields("vade_fark") = Me.Toplatop
.Update
End If
End With
bu kod eklediğiniz örnekte çalışır, kendi uygulamanızda formdaki denetim adları farklı ise düzenleme yapmanız gerekiyor.
Ayrıca, form açıldığında müşteri adını forma nasıl aktarıyorsunuz bilmiyorum ama müşteri adı ile birlikte musteri id numarasını da aktarmanız gerekli, aynı isimli birden fazla müşteri olabilir.
Tablonuz ile ilgili olarak,
1-) tabloya "not" adında alan eklemeyiniz, kodlama sırasında not problem yaratır.
2-) ad_soyad alanına birincil anahtar eklemişsiniz, birincil anahtarı ID alanına eklemelisiniz.
sevgili ozanakkaya çok teşekkür ederim. Süper oldu sağolasın.
Konuyu Okuyanlar: 1 Ziyaretçi