Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
22/12/2009 18:19
Konu Sahibi
Hayri16
Yorumlar
16
Okunma
5040
Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2/5 - 1 oy
Kullanici Avatari

Hayri16

Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Değerli arkadaşlar;
Programımda alanlarda veri olup olmadığını kontrol ediyorum. Bu kontrol sonucu eğer veri yoksa o metinkutusuna odaklanıp veri girmesini istiyorum. Ben istiyorum ama benim yazdığım kodlara göre Access bunu istemiyor. Kontrolü yapıyor, mesajı veriyor ve sonra hiçbirşey olmamışçasına devam ediyor. Ne yapmam lazım?

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub recete_denetim()
If IsNull(Metin180) Or Metin180 = "" Then 'protokol numarası boşsa
          MsgBox "REÇETENİN PROTOKOL NOSUNU GİRMEDİNİZ"
          Metin180.SetFocus
                   'Arada aşağıdaki kpoduda denedim olmadı(sonsuz döngü oldu)
                   'If Len(Metin180) < 1 Then
                   'Metin180.SetFocus
                   'End If
            ElseIf IsNull(Metin182) Or Metin182 = "" Then 'karne sayfa no boşsa
            MsgBox "REÇETE SAYFA NOSUNU GİRMEDİNİZ"
            Metin182.SetFocus
End If
End Sub


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

arzuu

Aktivasyon Bekleyen
 29
 341
 38
 17/02/2009
 -
 
 Ofis XP
 24/04/2010,10:04
Çözüldü 
Private Sub Komut2_Click()
Me.Metin0.SetFocus
If Metin0.Text = "" Then
MsgBox ("lütfen değer giriniz!")
End If

https://www.accesstr.net/konu-metinkutus...t=setfocus



Kullanici Avatari

Hayri16

Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Sayın Arzuu;
İlginize çok teşekkür ederim ama maalesef olmadı.

Kod:
1
2
3
4
5
6
7
8
9
Private Sub recete_denetim()
Me.Metin180.SetFocus
If IsNull(Metin180) Or Metin180 = "" Or Len(Metin180) < 1 Then 'protokol numarası boşsa
          MsgBox "REÇETENİN PROTOKOL NOSUNU GİRMEDİNİZ"
              ElseIf IsNull(Metin182) Or Metin182 = "" Then 'karne sayfa no boşsa
              MsgBox "REÇETE SAYFA NOSUNU GİRMEDİNİZ"
              Metin182.SetFocus
End If
End Sub


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

arzuu

Aktivasyon Bekleyen
 29
 341
 38
 17/02/2009
 -
 
 Ofis XP
 24/04/2010,10:04
Çözüldü 
sn hayri16 bu örneği deneyin.
https://www.accesstr.net/konu-sartli-kay...t=setfocus



Kullanici Avatari

Hayri16

Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Maalesef bu da olmadı Sayın Arzu;
"Denetimin üzerinde bir odak olmadıkça bir denetimin bir özelliğine başvuramaz veya özelliği ayarlayamazsınız" hata mesajını verdi. Şimdi program için örnek dosya hazırlıyorum. Başka soracaklarım da var. Burayaya ekleyeyim. Çok teşekkür ederim.


Ek Dosyalar
.rar   RECETE2003.rar(Dosya Boyutu: 153,38 KB / İndirme Sayısı: 12)
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/11/2018,20:45
Çözüldü 
Sayın Hayri
Örnekteki hangi forumdan bahsettiğinizi de yazsaydınız keşke..

Bu tür problemlerle ilgili birçok yerde hep aynı şeyleri yazıyorum ve iş görüyor. Bir metin kutusunun çıkıldığında olayına veya güncelleme sonrasına yazacağınız "burda kal" komutu iş görmez. Bu nedenle gittiği yere "geri dön" demek daha akıllıcadır. "Metin1.setfocus" olayını hep if şartına bağlarız ama o hiç bizi dinlemez. Aslında dinler de, biz ona derdimizi yanlış anlatırız. Halbuki bu işi metin1'den sonra gidilen mesela metin2'nin girildiğinde olayına yaptırsak hiç sorun olmayacaktır. Metin1'den çıkıp metin2'ye girildiğinde

If Metin1.Text = "" Then
metin1.setfocus
MsgBox ("Lütfen değer giriniz!")
End If

olsaydı o zaman çalışırdı. Deneyin bakınImg-grin)


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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Otomatik Setfocus notrino 4 92 28/11/2018, 11:56
Son Yorum: notrino
Çözüldü SetFocus olayı fascioğlu 7 1.629 30/12/2015, 17:24
Son Yorum: fascioğlu
Çözüldü Private Sub Butonac() Me.TASI.SetFocus Sorunu YuNuSEmReN 5 1.317 30/03/2015, 16:23
Son Yorum: atoz112
Çözüldü Alt forma setfocus yahyamacit 2 914 15/12/2014, 23:27
Son Yorum: yahyamacit
Çözüldü Güncelleştirme sonrası setfocus sorunu mozuer 10 2.363 14/11/2014, 17:22
Son Yorum: mozuer

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