Kod:
Private Sub EKLE_Click()
Me.MUSTERINO.Enabled = True
Me.TC_KİMLİK_NO.Enabled = True
Me.ADI.Enabled = True
Me.SOYADI.Enabled = True
Me.VERGİ_KİMLİK_NO.Enabled = True
Me.SİGORTA_SİCİL_NO.Enabled = True
Me.BANKA_ADI.Enabled = True
Me.ŞUBE_ADI.Enabled = True
Me.ŞUBE_KODU.Enabled = True
Me.HESAP_NO.Enabled = True
Me.DOĞUM_YERİ.Enabled = True
Me.DOĞUM_TARİHİ.Enabled = True
Me.MESLEĞİ.Enabled = True
Me.FİRMA.Enabled = True
Me.EV_TELEFONU.Enabled = True
Me.CtlİŞ_TELEFONU.Enabled = True
Me.FAKS.Enabled = True
Me.CEP_TELEFONU_1.Enabled = True
Me.CEP_TELEFONU_2.Enabled = True
Me.E_MAİL.Enabled = True
Me.ADRES.Enabled = True
Me.CtlİŞ_ADRESİ.Enabled = True
Me.AÇIKLAMA.Enabled = True
Me.KAYDET.Enabled = True
On Error GoTo Err_EKLE_Click
DoCmd.GoToRecord , , acNewRec
Exit_EKLE_Click:
Exit Sub
Err_EKLE_Click:
MsgBox Err.Description
Resume Exit_EKLE_Click
End SubBununla değiştiriniz.
Pardon Alpeki99 hocam cevaplamış
