access deki kodlardan pek anlamam ama.birde böyle bir bak. olmuşmu.
yeni kayıt butonuna aşağıdaki kodların hepsini yapıştır.
On Error GoTo Err_Komut96_Click
Dim ctrl As Control
DoCmd.GoToRecord , , acNewRec
For Each ctrl In Me.Controls
If ctrl.Tag = "A" Then
ctrl.Enabled = True
End If
Next
Me.SucNo = DMax("SucNo", "Tablo") + 1
Exit_Komut96_Click:
Exit Sub
Err_Komut96_Click:
MsgBox Err.Description
Resume Exit_Komut96_Click
<<< 10-HAGİ-10 >>>