AccessTr.neT
form kilitleme aktif pasif yapma sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: form kilitleme aktif pasif yapma sorunu (/konu-form-kilitleme-aktif-pasif-yapma-sorunu.html)

Sayfalar: 1 2


form kilitleme aktif pasif yapma sorunu - 208319 - 19/02/2011

formumun ilk açılışta kilitli yani pasif olarak görünmesi ve yeni kayıt ekle butununa tıkladığımda aktife geçerek sıra numarasının oto olarak atarak bir sonraki kayda gitmesi sıra no otomotik değilde bizim manuel olarak yazdığımız koda göre gitmesi


Cvp: form kilitleme aktif pasif yapma sorunu - ozanakkaya - 19/02/2011

Eklediğiniz örnekte form olmaması?


Cvp: form kilitleme aktif pasif yapma sorunu - Yandemir - 19/02/2011

gizli olabilir bana yolladığınız örnekte de rapor gizli idi buldum ve açtım Img-grin


Cvp: form kilitleme aktif pasif yapma sorunu - ozanakkaya - 19/02/2011

Aşağıdaki linkte 2 adet nesne kilitleme örneği var

Form Üzerindeki Verileri Kilitle

Suc no alanı için

dmax("SucNo","Tablo")+1

kodunu kullanabilirsin




Cvp: form kilitleme aktif pasif yapma sorunu - 208319 - 19/02/2011

bunu form üzerinde yapma imkanınız varsa yeni kayıt ekle dediğimde kilitin açılması ve kaydettikten sonter oto pasife geçmesi


Cvp: form kilitleme aktif pasif yapma sorunu - ozanakkaya - 19/02/2011

Oktay hocanın İpucu : Kontrol kilitleme ( Tag ) linkindeki kontrol kilitleme örneği daha kullanışlı. Bence onu dene.

Tüm metin kutularını seçip özelliklerden "İm" özelliğine "A" yazacaksın, formun açıldığında olayına

Private Sub Form_Open(Cancel As Integer)
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.Tag = "A" Then
ctrl.Enabled = False
End If
Next
End Sub

Bahsettiğin butonun tıklandığında olayına da

Private Sub Form_Open(Cancel As Integer)
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.Tag = "A" Then
ctrl.Enabled = True
End If
Next
SucNo = DMax("SucNo", "Tablo") + 1
End Sub