Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] If Else hakkında

[VBA] If Else hakkında
sonerdursun
Önemli Üye 300-400

*
Kayıt Tarihi: 25.08.2008
Toplam 60 konu açtı.
Toplam 309 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 1
#1
11-11-2011, 20:40 (En son düzenleme: 11-11-2011, 20:44 sonerdursun.)
Ekteki örnekte END_IF_KULLANIMI adlı formda cariID alanı örneğin 0 ise hiçbirşey yapma bir sonraki alana geç sıfırdan büyük ise
Visual Basic
  1. ADISOYADI = DLookup("ADISOYADI", "Tbl_CARIKARTLAR", "[CariID]=Forms!END_IF_KULLANIMI!CariID")


kodu çalışıp tablodan adı soyadı gelsin ve bir sonraki alana geç şeklinde yapmak istedim ama malesef bir olmadı.Buna ek olarak karar yapısında belli aralık ta veya küçükse büyükse gibi değerler kullanılmak istenirse nasıl kullanılır.

Bir örnek gösterebilirmisniz.


Eklenti Dosyaları
.rar   if else.rar (Boyut: 92,74 KB / İndirilme: 106)



  Bul
  Alıntı
Bu mesajı beğenenler:
MuazTurkyilmaz
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 17.09.2010
Toplam 56 konu açtı.
Toplam 430 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 EN, Office 2016 EN,
Beğeniler: 0 / 0
#2
11-11-2011, 21:56

Sn sonerdursun

Yanlis bilmiyorsam format hatasi var yazdiginiz kodda,

"[CariID]=Forms!END_IF_KULLANIMI!CariID")

yerine

"[CariID]='" & Forms!END_IF_KULLANIMI!CariID)

olmali gibime geliyor.

sayin taruzun DLookUp konusu ile ilgili bir aciklamasinda vardi, Text ve sayi farkindan olabilirmi....

Baska bir konu uzerine calistigim icin dosyanizi inceleyemedim... Kusura bakmayin...




  Website   Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#3
11-11-2011, 22:46
Merhaba Sn. sonerdursun

END_IF KULLANIMI adındaki formunuzda bulunan kod çalışıyor, CARI ID alanının çıkıldığında olayını bir daha kontrol edin eğer boş görünüyorsa Olay Yordamını seçin...



  Bul
  Alıntı
Bu mesajı beğenenler:
akd27
Kıdemli Üye >1000

*
Kayıt Tarihi: 11.03.2008
Toplam 114 konu açtı.
Toplam 1.027 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 0 / 6
#4
11-11-2011, 22:58
ADISOYADI = DLookup("ADISOYADI", "Tbl_CARIKARTLAR", "[CariID]=" & Forms!END_IF_KULLANIMI!CariID")
Böyle olması gerek bence...
belgen 2003 olsaydı daha net cevap verirdim.



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
sonerdursun
Önemli Üye 300-400

*
Kayıt Tarihi: 25.08.2008
Toplam 60 konu açtı.
Toplam 309 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 1
#5
12-11-2011, 13:28
Haklısınız örnek bu şekilde çalışıyor gibi örnekte hata yaptığımı anladım
örneği güncelledim CariID ve ADIOYADI alanlarına bilgi girilmesi zorunlu zorunlu CariID alanına yazdığım değer Tbl_CARIKARTLAR tablosunda yok ise ADISOYADI alanını manuel olarak doldurmak istiyorum.Belkide ben yanlış düşünüyorum kendim soruyu karıştırıyorum daha basit bil yol tarifide olabiliri.


Eklenti Dosyaları
.rar   if else-1.rar (Boyut: 100,47 KB / İndirilme: 80)



  Bul
  Alıntı
Bu mesajı beğenenler:
adnanyurdakul
Access Uzmanları

*
Kayıt Tarihi: 09.02.2009
Toplam 45 konu açtı.
Toplam 2.185 yorum yaptı.
Toplam 24 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 3
#6
12-11-2011, 14:00
Sayın sonerdursun formadki ilgili yere bu kodu yapıştırın
Visual Basic
  1. If Len(DLookup("ADISOYADI", "Tbl_CARIKARTLAR", "[CariID]=Forms!END_IF_KULLANIMI!CariID")) > 1 Then
  2. ADISOYADI = DLookup("ADISOYADI", "Tbl_CARIKARTLAR", "[CariID]=Forms!END_IF_KULLANIMI!CariID")
  3. Else
  4. DoCmd.GoToRecord , , acNewRec
  5. End If


iyi çalışmalar
Teşekküre gerek yok, Taş atın yeter!!!



  Bul
  Alıntı
Bu mesajı beğenenler:


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi