Çekiliş ile 2 Adet Microsoft Excel Kitabı Hediye Edilecektir. Ayrıntılı Bilgi İçin [Tıklayınız]

ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/06/2013 22:15
Konu Sahibi
direnist
Yorumlar
9
Okunma
3066
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

direnist

Uzman
Kullanici Avatari
Uzman
D.... S....
376
05/11/2008
124
İstanbul
Ofis 2010 64 Bit
Bugün,13:11
Çözüldü 
Merhaba arkadaşlar;
Ekli dosyadaki örnekte değer girilecek alanlar boş (IsNull) yada karakter sayısı sıfır ise (LEN(Trim(Me.KontrolAdi)=0) ise uyarı vermesini değil ise kodların geri kalanında ne yazıyorsa işlemesini istiyorum.
Örnekte, "OR" kullanımında mı hata yapıyorum bilmiyorum ama bütün alanlar dolu iken bile hep uyarı vermektedir.
Örnekteki gibi tek if yapısı ile alanların boş-dolu kontrolünü yapabilmem için bilgilerinizi rica ederim.
Mümkünse nerede hata yaptığımı da bir iki cümle ile yazarsanız çok sevinirim.
Teşekkürler.
İyi akşamlar.


Ek Dosyalar
.rar   direnist.rar (Dosya Boyutu: 17,54 KB / İndirme Sayısı: 13)
Cevapla

fatih karagöl

Aktif Üye
Kullanici Avatari
Aktif Üye
167
05/10/2010
88
Edirne
-
15/12/2015,17:38
Çözüldü 
selamlar
If IsNull(Me.Adi) Or Len(Trim(Me.Adi)) = 0 şeklinde yazmalısınız. Ayrıca her bir denetim için ayrı bir kontrol kodu yazmanızı öneririm. Örnekte bir önemi olmasa bile şekilde alışmanız ileri seviyeleriniz açısından sağlıklı olacaktır.
Saygılar


Hayatta listbox kullanmam..
Cevapla

direnist

Uzman
Kullanici Avatari
Uzman
D.... S....
376
05/11/2008
124
İstanbul
Ofis 2010 64 Bit
Bugün,13:11
Çözüldü 
Merhaba Fatih Hocam;
Dediğiniz gibi her metin kutusu için ayrı ayrı bir if bloğu içinde
If IsNull(Me.Adi) Or Len(Trim(Me.Adi)) = 0 şeklinde yazdım yine tüm alanlar dolu olmasına rağmen uyarı veriyor.

tabi metin kutularının adlarını değiştirerek yazdım..hepsine yukardakini yazmadım.


Cevapla

POWER

Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.865
02/04/2010
İzmir
Ofis 2003
Bugün,17:17
Çözüldü 
Parantezler hatalı... Aşağıdaki gibi yapınız....

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Komut9_Click()

If (IsNull(Me.Adi) Or Len(Trim(Me.Adi)) = 0) Or _
   (IsNull(Me.Soyadi) Or Len(Trim(Me.Soyadi)) = 0) Or _
   (IsNull(Me.Email) Or Len(Trim(Me.Email)) = 0) Then
    
         MsgBox "lütfen tüm alanları doldurunuz..!"
    
    Exit Sub
End If
    
    DoCmd.GoToRecord , , acNewRec
    
End Sub


Please return your positive or negative ...
Cevapla

direnist

Uzman
Kullanici Avatari
Uzman
D.... S....
376
05/11/2008
124
İstanbul
Ofis 2010 64 Bit
Bugün,13:11
Çözüldü 
Hocam çok teşekkür ederim. Sorunum çözülmüştür.
Biz acemiler kafayı yesin diye mi bu VB editörünün hata denetimini daha güçlü yapmıyorlar acaba?
Saygılarımla.


Cevapla

POWER

Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.865
02/04/2010
İzmir
Ofis 2003
Bugün,17:17
Çözüldü 
Syntax olarak ( Yani Vba dizilimi ) olarak aç/kapa parantezler uyuştuğu için Vba compiler bu hatayı göremez. Bu gibi durumlarda değerleri Msgbox kullanarak yazdırırsanız doğru sonuca gidersiniz...


Please return your positive or negative ...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Webbrowser Da İf Kullanımı stringeer 2 91 20/11/2017, 08:10 stringeer
Çözüldü Tabloda Yan Yana Olan Alanları Sorguda Tek Satırda Alan İçerisinde Göstermek metbal 4 135 11/11/2017, 19:46 metbal
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 328 05/10/2017, 14:38 anno
Çözüldü Bir Alanın After Update Olayına Baglı Baska Bir Alan Guncellenmesi Problemi keskin78 7 534 02/08/2017, 01:32 ozanakkaya
Çözüldü Access Alan Sayısı Ve Güncelleme vbman12 1 242 16/07/2017, 15:08 C*e*l*o*y*c*e
 
 

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