Skip to main content

AccessTr.neT


vb kod hatası

life_exciting
life_exciting
13
5178

vb kod hatası

Çözüldü #1
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"
.rar kargotest.rar (Dosya Boyutu: 195,29 KB | İndirme Sayısı: 2)
Cevapla
Çözüldü #2
Sayın lifeexciting;
İnceleyip dönerseniz, eğer olmuşsa nerelerde ne yaptığımı açıklayayım.
.rar kargotest-hayri16.rar (Dosya Boyutu: 163,13 KB | İndirme Sayısı: 2)
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
Ben yanlış anlamışım. Img-grin Dikkate alma lifeexiciting. Ben varolan durumda komut 10 tuşuna basıdığında olayına baktım. Teşekkürler Ercan Hocam.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
Sn.Hayri16 Yardımınız İçin Teşekkür Ederm.Ancak Kodu Uyguladığımda Yine Aynı Hatayı Alıyorum.
Cevapla
Çözüldü #6
Verdiğim kodu yazarak denedinizmi Sn lifeexciting.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da