form kilitleme aktif pasif yapma sorunu

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

Eklediğiniz örnekte form olmaması?

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

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

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

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