Veri varsa pasif yoksa aktif nasıl yaparım

beab05 · 18-04-2011, 17:15

Tam anlayamadım ama alttaki gibi yaparsanız sadece yeni kayıtlarda ilgili alanlar aktif olur..

Tüm kod sayfasını veriyorum..

Visual Basic
Private bb As Boolean
 
 
Sub beab()
Me.BBB.Enabled = bb
Me.CCC.Enabled = bb
Me.DDD.Enabled = bb
Me.EEE.Enabled = bb
Me.Açılan_Kutu10.Enabled = bb
End Sub
 
 
Private Sub Form_Current()
If Not Me.NewRecord Then
bb = False
 
Else
bb = True
End If
 
beab
End Sub

MERAK · 19-04-2011, 11:52

Berkant Hocam, denedim ama yine olmadı. Benim asıl tablomdaki kodları aşağıda belirttim. Rica etsem buna göre düzenler misiniz?

Visual Basic
Option Compare Database
 
Private Sub List96_AfterUpdate()
Me.[ÜRÜN BİLGİLERİ].Requery
End Sub
 
Private Sub List96_Enter()
kontrol
End Sub
 
Private Sub List96_Exit(Cancel As Integer)
kontrol
End Sub
 
Sub kontrol()
Dim bLock As Boolean
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
bLock = Nz(Me.List96 <> "", False)
Me.List96.Locked = bLock
End Sub
 
 
Private Sub Form_Current()
kontrol
End Sub

beab05 · 19-04-2011, 12:16

Verdiğiniz kodlara göre düzenliyorum..

Visual Basic
Private bb As Boolean
 
 
Sub beab()
Me.List96.Locked=bb
End Sub
 
 
Private Sub Form_Current()
If Not Me.NewRecord Then
bb = False
 
Else
bb = True
End If
 
beab
End Sub

MERAK · 19-04-2011, 12:31

Hocam, benim yazdığım koddaki aşağıdaki kısmı almamışsınız, bunu silmemiz mi gerekiyor.

Visual Basic
Private Sub List96_AfterUpdate()
Me.[ÜRÜN BİLGİLERİ].Requery
End Sub

beab05 · 19-04-2011, 12:51

Ben sadece aktif pasif olayını yazdım. Bahsettiğiniz kodu siz kullanabilirsiniz..

MERAK · 19-04-2011, 13:04

Tamam Hocam, deneyip bilgi vereceğim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Bir Formdan Başka Bir Formdaki Butonun Click Olayını Aktif Etmek	M_Kemal_Askeri	1	35	Dün, 00:07 Son Mesaj: dsezgin
	Depo Takibinde Malzeme Yoksa Uyarı Vermesi	hegu	2	363	22-04-2025, 21:56 Son Mesaj: hegu
	Sorgu Içerisinde Boş Alan Varsa 0 (sıfır) Ile Doldurmak	denizfatihi	3	535	15-08-2024, 14:38 Son Mesaj: beab05
	Buzdolabı Stok Takip Programı Nasıl Yaparım.	mertkevlar	3	712	13-04-2024, 01:35 Son Mesaj: dsezgin
	[FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma	yahyamacit	5	583	14-03-2024, 11:07 Son Mesaj: yahyamacit
	Access Formu üzerinden Sql Server Tabloya Nasıl Veri Kaydı Yapılır	karacahil	4	695	15-02-2024, 12:10 Son Mesaj: halily
	[FORM] Butonlara Yetkiye Göre Aktif Pasif Olsun	Ahmet51	5	546	15-01-2024, 15:49 Son Mesaj: Ahmet51
	Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma	snapper	9	1.099	20-10-2023, 00:36 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL