butonlardaki işlevleri kontrol edebilmeniz mümkündür ama projenizi görmeden fazla yorum yapamam.
mesela yeni kayıt butonunda değişiklik;
veri girş alanlarını pasif yaptım ve kodu;
On Error GoTo Err_Komut10_Click
Dim sor As String
sor = MsgBox("Yeni Kayıt Eklemek İstediğinizden Eminmisiniz...?", 36, "Soru")
If sor = 6 Then
Me.SNO.Enabled = True
Me.ADI.Enabled = True
Me.SOYADI.Enabled = True
Me.BABA_ADI.Enabled = True
DoCmd.GoToRecord , , acNewRec
Me.ADI.SetFocus
Else
End If
Exit_Komut10_Click:
Exit Sub
Err_Komut10_Click:
MsgBox Err.Description
Resume Exit_Komut10_Clickşeklinde değiştirdim.
