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
Denedim, normal çalışıyor.
vb kod hatası
Bu Konudaki Yorumlar |
vb kod hatası - Yazar: life_exciting - 23/02/2011, 01:08
Cvp: vb kod hatası - Yazar: Hayri16 - 23/02/2011, 01:22
Cvp: vb kod hatası - Yazar: ercansahin - 23/02/2011, 01:23
Cvp: vb kod hatası - Yazar: Hayri16 - 23/02/2011, 01:26
Cvp: vb kod hatası - Yazar: life_exciting - 23/02/2011, 01:26
Cvp: vb kod hatası - Yazar: ercansahin - 23/02/2011, 01:30
Cvp: vb kod hatası - Yazar: life_exciting - 23/02/2011, 01:31
Cvp: vb kod hatası - Yazar: ercansahin - 23/02/2011, 01:31
Cvp: vb kod hatası - Yazar: Hayri16 - 23/02/2011, 01:32
Cvp: vb kod hatası - Yazar: life_exciting - 23/02/2011, 01:36
Cvp: vb kod hatası - Yazar: Hayri16 - 23/02/2011, 01:38
Cvp: vb kod hatası - Yazar: life_exciting - 23/02/2011, 01:44
Cvp: vb kod hatası - Yazar: Hayri16 - 23/02/2011, 01:49
Cvp: vb kod hatası - Yazar: life_exciting - 23/02/2011, 01:56
|
Konuyu Okuyanlar: 1 Ziyaretçi