DoCmd.OpenForm "FFatura", , , , , , "Value=" + str
Forms!FFatura.SetFocus
Forms!FFatura.Form!düzenleyenIsmi.Value = Me.Kullanici
DoCmd.Close acForm, "Frm_Kullanici_Giris"

Private Sub Komut10_Click()
On Error GoTo Hata
Dim Str As String


    Str = oturum.Value

    If Me.dogrusifre = Me.Sifre Then
        YetkiNe = Me.dogruyetki
        KullaniciKim = Me.oturum
        AktifKullaniciYetkisi
        AktifKullanici

        DoCmd.SetWarnings False
        CurrentDb.Execute "INSERT INTO tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()"
        DoCmd.SetWarnings True
If Me.aktiflik = 0 Then
MsgBox "Kullanıcı yetkileriniz İptal Edilmiştir. Lütfen sistem yöneticinizle görüşünüz..", vbCritical, "Kargo 2011"
Quit
Else
DoCmd.OpenForm "FFatura", , , , , , "Value=" + Str
Forms!FFatura.SetFocus
Forms!FFatura.Form!düzenleyenIsmi.Value = Me.Kullanici
DoCmd.Close acForm, "Frm_Kullanici_Giris"
End If

    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 "
        If YanlisSifre = 4 Then DoCmd.Quit (acQuitSaveNone)
    End If
    Exit Sub
Hata:

End Sub