Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
23/02/2011 01:08
Konu Sahibi
life_exciting
Yorumlar
13
Okunma
3518
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
294
Bursa
Ofis 2007
08/09/2017,22:49
Çö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/09/2017,13:09
Çö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
294
Bursa
Ofis 2007
08/09/2017,22:49
Çö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/09/2017,13:09
Çö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
Çözüldü Sorgulama Hatası U.ALTUN 4 75 6 saat önce U.ALTUN
Çözüldü Kayıt Silme Hatası burhanb 6 186 08/09/2017, 14:01 burhanb
Çözüldü "msoFileDialogFilePicker" hatası gogoli01 11 2.481 20/07/2017, 19:36 ozanakkaya
Çözüldü Null Hatası ertans 3 263 07/07/2017, 14:53 ertans
Çözüldü Select Where Söz Dizimi Hatası sadooo 15 782 02/06/2017, 15:08 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.