Private Sub Komut10_Click()
On Error GoTo hata
Dim str As String
    str = oturum.Value
    On Error GoTo hata
If Me.dogrusifre = Me.sifre And Me.sifretipi.Value = "Geçici" Then
        YetkiNe = Me.dogruyetki
        KullaniciKim = Me.Kullanici
        AktifKullaniciYetkisi
        AktifKullanici
        MsgBox "Sisteme başarıyla giriş yaptınız..Mevcut şifreniz size Sistem Yöneticiniz tarafından GEÇİCİ olarak tahsis edilmiştir. Sisteme girebilmeniz için şifrenizi KALICI şifre ile değiştirmeniz gerekmektedir.Lütfen KALICI Şifrenizi belirleyiniz.. ", vbOKOnly + vbCritical, "Şifre değişikliği yapmalısınız "
        DoCmd.Close
        DoCmd.OpenForm "Frm_Kullanici_Sifre_Degistir", , , , , , "Value=" + str
ElseIf Me.dogrusifre = Me.sifre And Me.sifretipi.Value = "Kalıcı" Then
        If Kullanici.Column(5) = 0 Then
            Etiket6.ForeColor = vbRed
            Etiket6.Caption = "Yetkileriniz dondurulmuştur."
            sifre.Enabled = False
            MsgBox "Kullanıcı yetkileriniz dondurulmuştur.. Lütfen sistem yöneticinizle görüşünüz..", vbCritical, "Taruz.."
            DoCmd.Quit: Exit Sub
        End If
        YetkiNe = Me.dogruyetki
        KullaniciKim = Me.Kullanici
        AktifKullaniciYetkisi
        AktifKullanici
        CurrentDb.Execute "INSERT INTO tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()"
        DoCmd.Close
        MsgBox str
        DoCmd.OpenForm "Frm_Kullanici_Acilis", acNormal, , "kulanici_adi='" & str & "'", acFormEdit, acWindowNormal
Else
        YanlisSifre = YanlisSifre + 1
        MsgBox YanlisSifre & ". Denemenizde şifrenizi yanlış girdiniz. Lütfen tekrar deneyiniz.. " & Chr(13) & "4. Hatanızda Program Kapanacaktır.", vbOKOnly + vbCritical, "Hatalı Şifre "
        Etiket6.ForeColor = vbRed
        Etiket6.Caption = YanlisSifre & ". Yanlış Şifre Denemesi."
        sifre = ""
        sifre.BackColor = vbYellow
        DoCmd.GoToControl "Sifre"
        If YanlisSifre = 4 Then
            Etiket6.Caption = YanlisSifre & ". Yanlış Şifre Denemesi."
            MsgBox YanlisSifre & ". 4. denemenizde de şifrenizi yanlış girdiniz. Üzgünüz program kapanacaktır.."
            DoCmd.Quit (acQuitSaveNone)
        End If
End If
Exit Sub
hata:
MsgBox Err.Description
End Sub