AccessTr.neT

Tam Versiyon: Listeyi aktif ve pasif duruma getirmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
Hocam Temizle butonu(Yeni Fatura) butonu kullandığım zaman Listedeki aşağıdaki kodları kullanmadığım zaman eski faturanın üstüne kayıt yapıyor. Aşağıdaki kodları kullandığım zaman eski faturanın üstüne kayıt yapmıyor. Bu seferde boş satır oluşturuyor.

Kod:
Private Sub lst_kisiler_DblClick(Cancel As Integer)

Me.AdiSoyadi = Me.lst_kisiler.Column(0)
Me.Adresi = Me.lst_kisiler.Column(1)
Me.VergiDairesi = Me.lst_kisiler.Column(2)
Me.VergiNo = Me.lst_kisiler.Column(3)
Me.Tel = Me.lst_kisiler.Column(4)
Me.Cep = Me.lst_kisiler.Column(5)
kayit_goster.FindFirst [FaturaID] = ""
sayın kenan827,

ilgili listenin ÇİFT TIKLANDIĞINDA olay yordamındaki kodları,2.mesajda eklenen uygulamada da görüleceği üzere;
sizin bu yazdığınız kodlar geçersiz (etkisiz bırakılmış) olarak düzenlenip yerine,diğer aktif bırakılan kodların kullanılması sağlanmıştır.çünkü;bu yöntem daha uygun kodlama diye düşünülmüştür.

ayrıca,burada önemli olan ana formdaki denetimlere verilerin gelmesi değil,alt formda yeni bir kayıt imkanının elde edilmesi ve bunun sağlanmasıdır.yapılan işlemler de bunun için düzenlenmiştir.

TEMİZLE butonunun içeriğinde yer alan kodların son kısmındaki satırlar ile,alt formda yeni bir kayıt satırının açılması içindir.

bilginize...iyi çalışmalar,saygılar.
Hocam listede çift tıklama ile aşağıdaki kodları kullandığım zaman yeni fatura olarak kayıt yapacağına. Daha önce kayıt edilmiş faturanın üstüne kayıt yapıyor.

Kod:
Dim kayit_goster As Object
Set kayit_goster = Me.Recordset.Clone
kayit_goster.FindFirst "[FaturaID]=" & Me.lst_kisiler.Column(7)
If Not kayit_goster.EOF Then Me.Bookmark = kayit_goster.Bookmark
sayın kenan827,

gerek 13.mesajınızda yazdığınız kodlar ve gerekse de 14.mesajda değinildiği üzere sonradan 15.mesajda eklediğiniz kodlar olsun;bunlar sadece ana form üzerindeki denetimlere listeden seçilen kayıt bilgisine göre verilerin aktarılması içindir.yaptığı işlem sadece bu.

sizin asıl uyguladığınız ise YENİ KAYIT butonunda geçerli olan düşüncenizdir.alt formda yeni alan oluşturulup bu satıra kaydedilmesidir.

bu butonun içeriğinde olmasını istedikleriniz sağlanmıştır.dolayısı ile,önemli olan alt formda satır açılması ve bu satıra kayıt girilmesidir.

bilginize...iyi çalışmalar,saygılar.
Peki hocam Yazdır yani buton33 ve buton30 a her tıkladığımız da yeni bir kayıt yapabilir mi böyle bir kod olur mu?
sayın kenan827,

Alıntı:...her tıkladığımız da yeni bir kayıt yapabilir mi...

ifadenize yönelik olarak;

eğer kast ettiğiniz ana formda veya alt formda yeni kayıt için SATIR AÇMAK (oluşturmak) ise,
ilgili olay yordamında

Kod:
DoCmd.GoToRecord , , acNewRec

kod satırını kullanmak gerekmektedir.

eğer kast ettiğiniz ana formda veya alt formda yeni kayıt EKLEMEK ise,
ilgili olay yordamında,ana form ve alt forma göre kayıt ekleme kodlarının yazılması gerekmektedir.bu da iki yöntemle yapılabilir.ya direkt

Kod:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

kod satırı yaptırılabilir.(bir diğer işlem olarak bu konuda,eğer ilgili formların KAYIT KAYNAĞI direkt tablo adları yazılı haldeyse,.requery (güncelleme) yazılması akabinde de kaydedilmeyi sağlatabilirsiniz.)

ya da,INSERT INTO Sql sorgusu yazılmak sureti ile de olabilir.bilginize...iyi çalışmalar,saygılar.
Sayfalar: 1 2 3 4