İ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