+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: vb kod hatası (/konu-vb-kod-hatasi.html)
vb kod hatası - life_exciting - 23/02/2011
Arkadaşlar Merhabalar
Aşağıdaki Kodları " Frm_Kullanıcı_Giriş" Formundaki Komut10'un Tıklandığında Olayına Eklemek İstiyorum Ancak Sürekli Hata Veriyor,Hata Vermediği Zamanda Çalışmıyor.Kontrol Edebilirseniz Çok Sevinirim.İyi Çalışmalar
DoCmd.OpenForm "FFatura", , , , , , "Value=" + str
Forms!FFatura.SetFocus
Forms!FFatura.Form!düzenleyenIsmi.Value = Me.Kullanici
DoCmd.Close acForm, "Frm_Kullanici_Giris"Cvp: vb kod hatası - Hayri16 - 23/02/2011
Sayın lifeexciting;
İnceleyip dönerseniz, eğer olmuşsa nerelerde ne yaptığımı açıklayayım.
Cvp: vb kod hatası - ercansahin - 23/02/2011
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 SubCvp: vb kod hatası - Hayri16 - 23/02/2011
Ben yanlış anlamışım.
Dikkate alma lifeexiciting. Ben varolan durumda komut 10 tuşuna basıdığında olayına baktım. Teşekkürler Ercan Hocam.
Cvp: vb kod hatası - life_exciting - 23/02/2011
Sn.Hayri16 Yardımınız İçin Teşekkür Ederm.Ancak Kodu Uyguladığımda Yine Aynı Hatayı Alıyorum.
Cvp: vb kod hatası - ercansahin - 23/02/2011
Verdiğim kodu yazarak denedinizmi Sn lifeexciting.