[split] Şartlı Kayıt Ekleme Hk.

1 2
29/11/2010, 15:06

ozmly

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

29/11/2010, 23:02

mehmetdemiral

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.
30/11/2010, 00:16

schworse

  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
30/11/2010, 17:34

ozmly

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ü?
01/12/2010, 21:44

schworse

(30/11/2010, 17:34)ozmly yazdı: 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.
If (IsNull((ADISOYADI) Or (DOGUMYERI))) Then

MsgBox ("AdSoyad veya Doğumyerinden birini yazmalısınız boş geçemezsiniz.")
ADISOYADI.SetFocus
01/12/2010, 21:53

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

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 ..
1 2