Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Setfocus'ta tutabilmek...

Hayri16
Hayri16
Access Cevaplanmış Soruları
17
8784

Setfocus'ta tutabilmek...

Çözüldü #1
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 65
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
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:
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.
Son Düzenleme: 24/12/2009, 14:26, Düzenleyen: Hayri16.
Cevapla
Çözüldü #2
arzuu
desire
arzuu
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 36
Konum: -
Ofis Versiyonu: Ofis XP
Son Oturumu: 24/04/2010,10:04
Yorumları: 341
Konuları: 38
Kayıt Tarihi: 17/02/2009
Teşekkür Puanı: 176
Private Sub Komut2_Click()
Me.Metin0.SetFocus
If Metin0.Text = "" Then
MsgBox ("lütfen değer giriniz!")
End If

https://accesstr.net/konu-metinkutusu-bo...t=setfocus
"Gülümsemenin, parasal değeri yoktur. Satın alınmaz, ödünç verilmez, dilenilmez, çalınmaz ama verilmedikçe hiç alınamaz."
Baştan sona Sql veritabanı oluşturma
Cevapla
Çözüldü #3
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 65
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
Sayın Arzuu;
İlginize çok teşekkür ederim ama maalesef olmadı.
Kod:
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.
Cevapla
Çözüldü #4
arzuu
desire
arzuu
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 36
Konum: -
Ofis Versiyonu: Ofis XP
Son Oturumu: 24/04/2010,10:04
Yorumları: 341
Konuları: 38
Kayıt Tarihi: 17/02/2009
Teşekkür Puanı: 176
sn hayri16 bu örneği deneyin.
https://accesstr.net/konu-sartli-kayit-e...t=setfocus
"Gülümsemenin, parasal değeri yoktur. Satın alınmaz, ödünç verilmez, dilenilmez, çalınmaz ama verilmedikçe hiç alınamaz."
Baştan sona Sql veritabanı oluşturma
Cevapla
Çözüldü #5
Hayri16
Aktif Üye
Hayri16
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 65
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/12/2019,10:55
Yorumları: 1.010
Konuları: 56
Kayıt Tarihi: 12/11/2009
Teşekkür Puanı: 294
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.
.rar RECETE2003.rar (Dosya Boyutu: 153,38 KB | İndirme Sayısı: 16)
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 22/12/2009, 19:49, Düzenleyen: Hayri16.
Cevapla
Çözüldü #6
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 60
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 23/10/2025,23:07
Yorumları: 5.126
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Emekli Öğretmen
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...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task