Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Space Tuşuşuna Basıldıysa Kod çalışsın

Space Tuşuşuna Basıldıysa Kod çalışsın
edacan19
Aktif Üye 40-100

*
Kayıt Tarihi: 18.05.2011
Toplam 20 konu açtı.
Toplam 89 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 1 / 0
#1
13-05-2022, 08:24
Arkadaşlar merhabaformumdaki adı soyadı boş geçilmesin diye

Private Sub Komut51_Click()
On Error Resume Next
If IsNull(Me.ADI) And IsNull(Me.SOYADI) And IsNull(Me.NOT) And IsNull(Me.ADRESİ) And IsNull(Me.[TELEFON NO SABİT]) And IsNull(Me.[TELEFON NO MOBİL]) Then
DoCmd.Close acForm, "MUSTERIG"
ElseIf IsNull(Me.ADI) Then
Me.ADI.SetFocus
DoCmd.OpenForm "BOS", acNormal
ElseIf IsNull(Me.SOYADI) Then
Me.SOYADI.SetFocus
DoCmd.OpenForm "BOS", acNormal
Else:
DoCmd.Close acForm, "MUSTERIG"
End If
End Sub

şeklinde bir kod yazdım ve çalışıyor fakat herhangi bir alanda boşluk tuşuna basıldığında kayıt ekleniyor ve adı soyadı boş geçiliyor ben boş geçilmesin istiyorum.
Yardımcı olabilirseniz sevinirim.



  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
#2
13-05-2022, 08:53
sn edacan19
tablonuzdan öncelikle AD ve SOYAD alanlarını Gerekli özelliklerini EVET olarak ayarlayın, daha sonra Komut Düğmesinin Click Olayına aşağıdaki kodu yazın.
Visual Basic
  1. On Error GoTo Hata
  2. DoCmd.RunCommand acCmdSaveRecord
  3. Exit Sub
  4. Hata:
  5. MsgBox "AD ve SOYAD alanın boş olamaz"





  Bul
  Alıntı
Bu mesajı beğenenler:
edacan19
Aktif Üye 40-100

*
Kayıt Tarihi: 18.05.2011
Toplam 20 konu açtı.
Toplam 89 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 1 / 0
#3
13-05-2022, 13:47
Teşekkür ediyorum sorun çözüldü.



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Butona sol tıklayınca sağ cilik menüsü çalışsın mengene 3 1.449 20-02-2018, 14:12
Son Mesaj: EminA
  formül alnının değeri değiştiğinde kod çalışsın edacan19 5 2.301 01-07-2011, 14:10
Son Mesaj: edacan19

Foruma Git:


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