Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
29/11/2010 15:06
Konu Sahibi
ozmly
Yorumlar
7
Okunma
2812
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ozmly

Aktif Üye
 44
 10
 01/10/2010
0
 Ankara
 
 Ofis 2007
 12/04/2018,16:07
Çözüldü 
Arkadaşlar
Fomda Adı soyadı veya doğum yeri alanlarından herhangibirinin doldurulması yeterli olması halinde aşağıdaki kodda nasıl bir değişiklik yapmalıyız

ElseIf IsNull(DOGUMYERI) Then
MsgBox "DOGUMYERI alanı boş bırakılamaz..!", vbCritical, "UYARI"
DOGUMYERI.SetFocus
DoCmd.CancelEvent
Exit Sub

ElseIf IsNull(CALISTIGIKURUM) Then
MsgBox "CALISTIGIKURUM alanı boş bırakılamaz..!", vbCritical, "UYARI"
CALISTIGIKURUM.SetFocus
DoCmd.CancelEvent
Exit Sub

Else

DoCmd.GoToRecord , , acNewRec

End If

Exit_Komut10_Click:
Exit Sub

Err_Komut10_Click:
MsgBox Err.Description
Resume Exit_Komut10_Click
End Sub



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Bugün,01:44
Çözüldü 
Sayın ozmly, cevaplanmış bir sorunun arkasına soru eklemişsiniz. Ben konuyu sorular bölümüne ayırarak ekledim. Lütfen daha dikkatli olun, yoksa site mevcut düzenliliğini kaybedecek.
Sorunuzla ilgili olarak da lütfen -ama lütfen- örnek ekleyiniz. Bahsettiğiniz kodları denemek gerekli, tek tek analiz edecek kadar kimsenin boş zamanının olduğunu sanmam.


İnadına, ille de Accesstr.net...

Kullanici Avatari

schworse

Onursal Üye
ME.... EM.... ÖZ....
 40
 197
 8
 02/11/2008
100
 İzmir
 Yazılım Uzmanı
 Ofis 2013 64 Bit
 11/02/2018,20:32
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
  If (IsNull(AdiSoyadi) Then
     MsgBox ("AdSoyad bölümünü boş geçtiniz Doğumyerini girmelisiniz")
     DOGUMYERI.SetFocus
  ElseIf IsNull(DOGUMYERI) Then
    MsgBox ("Doğumyerini boş geçtiniz AdSoyad bölümünü giriniz")
    AdSoyad.SetFocus
    DoCmd.CancelEvent

    Exit Sub



Kullanici Avatari

ozmly

Aktif Üye
 44
 10
 01/10/2010
0
 Ankara
 
 Ofis 2007
 12/04/2018,16:07
Çözüldü 
Yadımınız için teşekkürler Ancak,
Bu kod ad soyadı boşsa DOGUMYERI odaklanıyor. DOGUMYERI doldurulup tekrar tıklandığında ad soyadı kontrol etmeyip DOGUMYERI nin dolu olup olmadığına bakmalı ama tekrar adı soyadına gidiyor. Aynı zamanda adı soyadı dolu iken DOGUMYERI kontrol etmeden geçmeli

her ikiside boşsa birine odaklanmalı. Herhangi biri dolu ise çalıştığı kurumu kontrol etmeli

If IsNull(ADISOYADI) Then yapısını If IsNull(ADISOYADI) (DOGUMYERI)Then şeklinde birlikte kullanmak mümkün mü?



Kullanici Avatari

schworse

Onursal Üye
ME.... EM.... ÖZ....
 40
 197
 8
 02/11/2008
100
 İzmir
 Yazılım Uzmanı
 Ofis 2013 64 Bit
 11/02/2018,20:32
Çözüldü 
(30/11/2010 17:34)ozmly Adlı Kullanıcıdan Alıntı: Yadımınız için teşekkürler Ancak,
Bu kod ad soyadı boşsa DOGUMYERI odaklanıyor. DOGUMYERI doldurulup tekrar tıklandığında ad soyadı kontrol etmeyip DOGUMYERI nin dolu olup olmadığına bakmalı ama tekrar adı soyadına gidiyor. Aynı zamanda adı soyadı dolu iken DOGUMYERI kontrol etmeden geçmeli

her ikiside boşsa birine odaklanmalı. Herhangi biri dolu ise çalıştığı kurumu kontrol etmeli

If IsNull(ADISOYADI) Then yapısını If IsNull(ADISOYADI) (DOGUMYERI)Then şeklinde birlikte kullanmak mümkün mü?

Evet Olabilir size kalmış döngüden çıkması için Else bir görev yazmalsınız ben başlangıcını yazmıştım.

Visual Basic Code
If (IsNull((ADISOYADI) Or (DOGUMYERI))) Then

   MsgBox ("AdSoyad veya Doğumyerinden birini yazmalısınız boş geçemezsiniz.")
   ADISOYADI.SetFocus



Kullanici Avatari

C*e*l*o*y*c*e

Uzman
ME.... B.....
 46
 3.171
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,02:36
Çözüldü 
sayın schworse kardeşimize ek olarak
If (IsNull((ADISOYADI) Or (DOGUMYERI))) Then MsgBox "Lütfen Boş geçmeyin, AdSoyad veya Doğumyerinden birini yazmalısınız boş geçemezsiniz", 48, "Kayıt İşlemi": Me.ADISOYADI.SetFocus: Exit Sub
şeklinde bitişkte yazılabilir ..




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kayıt Kilitleme Hakkında notrino 2 84 03/12/2018, 14:18
Son Yorum: notrino
Çözüldü Kayıt Gezintisi Hakkında notrino 9 149 30/11/2018, 10:59
Son Yorum: notrino
Çözüldü Liste Kutusuna Rastgele Benzersiz Sayı Ekleme mustinba 8 212 28/11/2018, 16:05
Son Yorum: mustinba
Çözüldü Duyuru Paneli Ekleme Hk. untouchable 8 211 19/11/2018, 20:42
Son Yorum: haliliyas
Çözüldü Mükerrrer Kayıt Bulma access acemisi 17 357 17/11/2018, 12:51
Son Yorum: access acemisi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.