
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
dmax("SucNo","Tablo")+1
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
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