Merhabalar;
Aşağıya eklemiş olduğum kod "frmKimlikBilgileri" formunun içerisinde, kodun  içeriğine girdiğimde Access donuyor. Bunun sebebi ne olabilir.

Option Compare Database

Option Explicit

Sub TumDenetimlerAktif()



  AktifOlsun "frmKimlikBilgileri"

  btnKapat.Enabled = False

  btnDuzenle.Enabled = False

  

End Sub

Sub TumDenetimlerPasif()

  

  PasifOlsun "frmKimlikBilgileri"

  btnYeniKayit.Enabled = True

  btnDuzenle.Enabled = True

  btnKapat.Enabled = True

    

End Sub





Private Sub btnDuzenle_Click()



  TumDenetimlerAktif

  

End Sub



Private Sub btnIptal_Click()

  

  If Me.Dirty Then

    If MsgBox("Bilgilerde değişiklik yapılmış" & vbCrLf & vbCrLf & "Değişiklikleri ipal etmek istermisiniz?", vbExclamation + vbYesNo, "Dikkat") = vbYes Then

       

    Me.Undo

    TumDenetimlerPasif

  'son kayda git

    'DoCmd.GoToRecord , , acLast   //Son kayda git

    End If

    

  Else

  

  TumDenetimlerPasif

  'son kayda git

  'DoCmd.GoToRecord , , acLast  //Son kayda git

    

  End If



  

End Sub



Private Sub btnKapat_Click()

'KAPAT butonu programı tamamen kapatır

    'Application.Quit

'KAPAT butonu Formu kapatır

  If MsgBox("Formu kapatmak istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then

  DoCmd.Close acForm, "frmKimlikBilgileri"

  End If

  

End Sub



Private Sub btnKaydet_Click()

  'Alanların boş geçilmemesi

  If IsNull(txtAdi) Or txtAdi = " " Then

    MsgBox "Lütfen & txtAdi & alanı boş bırakmayınız", vbExclamation, "UYARI"

    Exit Sub

  End If

  

  'Bilgilerin kaydedilemsi

  DoCmd.RunCommand acCmdSaveRecord

  

  MsgBox "Bilgileri başarıyla kaydedildi.", vbInformation, "işlem Tamam"

  

  TumDenetimlerPasif



End Sub



Private Sub btnYeniKayit_Click()



  TumDenetimlerAktif

  'yeni kayıt aç

  DoCmd.GoToRecord , , acNewRec

 

End Sub



Private Sub cb_il_Change()

  'İller değiştiğinde From üzerndeki İlçeleri yenile

  Me.cb_ilce.Requery



End Sub







Private Sub cbIDCinsiyet_Enter()

cbCinsiyet.Requery

End Sub



Private Sub cbPerListe_AfterUpdate()

'DoCmd.Requery

'Me.cbPerListe.SetFocus

End Sub



Private Sub cbPerListe_Change()

Dim rs As Object

  Set rs = Me.Recordset.Clone

  rs.FindFirst "[IDKimlik]=" & Me.cbPerListe

  

  If Not rs.EOF Then Me.Bookmark = rs.Bookmark

  







End Sub



Private Sub Form_Current()

  'Form geçerli olduğunda yenile

  Me.Refresh

  

End Sub



'Private Sub Form_Keydown(KeyAscii As Integer)

'Dim AltTusu As Integer

  'AltTusu = acAltMask > 0

  

    'Case vbKeyF4

      'If AltTusu Then

      'KeyCode = 0

      'MsgBox "Alt F4 tuşu kullanılmaz", vbExclamation, "UYARI"

      'End If

   

  

'End Sub



Private Sub Form_Load()

  DoCmd.Maximize

  'TumDenetimlerPasif

  'cbPerAra.Enabled = True



End Sub



Private Sub lstPerListe_AfterUpdate()



Dim rs As Object

  Set rs = Me.Recordset.Clone

  rs.FindFirst "[IDKimlik]=" & Me.lstPerListe

  If Not rs.EOF Then Me.Bookmark = rs.Bookmark

  

End Sub





Private Sub txtPerAra_Change()

  

  Dim aranan As String

    aranan = Forms!frmKimlikBilgileri!txtPerAra.Text

    Forms!frmKimlikBilgileri!txtPerAraGecici = aranan

    lstPerListe.Requery



End Sub