vb kod hatası
Tarih
23/02/2011 01:08
Konu Sahibi
life_exciting
Yorumlar
13
Okunma
2965
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



life_exciting
Aktif Üye
Kullanici Avatari
Aktif Üye
837
28/12/2009
361
Ankara
Ofis 2003
18/11/2010,00:42
Çözüldü 
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

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



Ek Dosyalar
.rar   kargotest.rar (Dosya Boyutu: 195,29 KB / İndirme Sayısı: 2)
Cevapla


Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
291
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
Sayın lifeexciting;
İnceleyip dönerseniz, eğer olmuşsa nerelerde ne yaptığımı açıklayayım.


Ek Dosyalar
.rar   kargotest-hayri16.rar (Dosya Boyutu: 163,13 KB / İndirme Sayısı: 2)
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/12/2016,23:51
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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


Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
291
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
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


life_exciting
Aktif Üye
Kullanici Avatari
Aktif Üye
837
28/12/2009
361
Ankara
Ofis 2003
18/11/2010,00:42
Çözüldü 
Sn.Hayri16 Yardımınız İçin Teşekkür Ederm.Ancak Kodu Uyguladığımda Yine Aynı Hatayı Alıyorum.


Ek Dosyalar Ekran Görüntüleri
   
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/12/2016,23:51
Çözüldü 
Verdiğim kodu yazarak denedinizmi Sn lifeexciting.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  OLE server or ActiveX Control hatası temre 4 131 05/12/2016, 22:44 ozanakkaya
  Parametre girin hatası nightashes 3 56 04/12/2016, 23:07 Mesut Kaytan
  method or data hatası murat dikme 7 112 02/12/2016, 19:04 murat dikme
  Sms Göndermede Port Hatası kadirdursun 4 188 28/11/2016, 14:23 atoz112
  Excelden Veri Aktarımı Hatası Xleash 6 141 25/11/2016, 10:52 Xleash


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya