AccessTr.neT

Tam Versiyon: Butona birden çok işlev yükleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
İyi günler
Formdaki butona tıklandığında veya bir başka şekilde birden fazla işlev atanabilirmi? Örneğin kaydet + yenile veya kaydet + sonraki gibi.
Bir butona istenildiği kadar olay atanabilir. önemli olan kullanılan kodlar ve işleyiş yapısıdır. bir veriyi kaydettikten sonra alt form veya liste kutusu var ise o bölüm güncellenebilir. ikinci, üçüncü, dördüncü bir tabloya kayıt yaptırılabilir. aynı şekilde kayıt yaptırdıktan sonra onunla ilgili göstereceğiniz index durumundan dolayı başka tabloda veya aynı tabloda veri silinip güncelleme yapılabilir. burada önemli olan. kodlarınız ve işleyişidir. bir olayı bitirdikten sonra diğer olaya geçiş yaptırmanızdır.
Verdiğiniz bilgiler için çok teşekkür ederim. Bahsetmiş olduğunuz yollarla alakalı olarak kod örneği verebilirmisiniz.
aşağıdaki kod ile bir butonda hem bir tabloya kaydetmeyi hemde başka bir tablodan kayıt silmeyi aynı anda yaptırdık. bu örnek çoğaltılabilir. yapı bakımından anlamanız için yeterli diye düşünüyorum.

Not: bu kodlar ilişkisiz form için yapılması gerekir.

Olay
Dim rs As New ADODB.Recordset ' tanımlama Ado kod dizilimini kullanacağımızı belirledik.
Dim rs1 As New ADODB.Recordset
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'tabloya bağlandık
rs.AddNew ' yeni alan ekleyeceğimizi söyledik
rs.Fields("Alan1") = Me.MetinKutusu1 ' Metin Kutusu 1 de bulunan veriyi Alan1 e ekliyeceğimiz yerleri belirtik.
rs.Update ' ekleme işlemini geçekleştirdik.
rs.Close ' bağlantıyı kapattık
Set rs = Nothing ' rs boşalttık. (rs.close ile nothing birisi kullanılıyor fakat ben ikisinide kullanıyorum.)

'Bu birinci kodumuzdu şimdi ss ile işlem yaptık ve rs bir ile işlemimiz bitti. aynı şekilde yine rs kullanabiliriz.
'karışık engellensin diye rs1 yapacağız. isterseniz siz başka birşeyde yapabilirsiniz. öneli olan bir değişken tanımlandığında onunla işimiz bittikten sonra tekrar kullanabileceğimizi bilmemizdir.

rs1.Open "Tablo2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'Tablo ikiye bağlandık

rs1.Find "[Alan1]=" & Me.Metinkutusu ' burada metin kutusu içinde bulunan veriyi tabloda buldurup sadece onu sildireceğiz.
rs1.Delete ' malum silme işlemi
rs1.Update ' işlemi gerçekleştirdik.
rs1.Close ' bağlantıyı bitirdik.
Set rs1 = Nothing




Olay Bitimi
İlginize teşekkürler,emeğinize sağlık.
BENİMDE ÇOK İŞİME YARAYACAK