Skip to main content

AccessTr.neT


Butona birden çok işlev yükleme

Butona birden çok işlev yükleme

Çözüldü #1
İ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.
Cevapla
Çözüldü #2
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.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
Çözüldü #3
Verdiğiniz bilgiler için çok teşekkür ederim. Bahsetmiş olduğunuz yollarla alakalı olarak kod örneği verebilirmisiniz.
Cevapla
Çözüldü #4
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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
Çözüldü #5
İlginize teşekkürler,emeğinize sağlık.
Cevapla
Çözüldü #6
BENİMDE ÇOK İŞİME YARAYACAK
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da