vb kod hatası
Tarih
23/02/2011 01:08
Konu Sahibi
life_exciting
Yorumlar
13
Okunma
3024
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ü 
Sponsor Reklam
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
294
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
22/12/2016,18:59
Çözüldü 
Sponsor Reklam

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
294
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ü 
Sponsor Reklam
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
22/12/2016,18:59
Çö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
  Accessten excel bağlantısı ile veri alırken parola hatası. Mecnun24 8 258 02/01/2017, 20:11 Mecnun24
  İki Tarih Arası Rapor Hatası m_demir 14 298 24/12/2016, 23:03 m_demir
  Birleştirme sorgusunda sayı formatı hatası Mecnun24 8 263 15/12/2016, 16:39 atoz112
  "Block if without end if" hatası hakkında Mesut Kaytan 10 281 13/12/2016, 22:47 Mesut Kaytan
  OLE server or ActiveX Control hatası temre 4 188 05/12/2016, 22:44 ozanakkaya


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