Skip to main content

AccessTr.neT


Setfocus'ta tutabilmek...

Setfocus'ta tutabilmek...

Çözüldü #3
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Setfocus'ta tutabilmek... - Yazar: Hayri16 - 22/12/2009, 18:19
Cvp: Setfocus'ta tutabilmek... - Yazar: arzuu - 22/12/2009, 18:32
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 22/12/2009, 18:44
Cvp: Setfocus'ta tutabilmek... - Yazar: arzuu - 22/12/2009, 19:05
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 22/12/2009, 19:44
Cvp: Setfocus'ta tutabilmek... - Yazar: mehmetdemiral - 22/12/2009, 20:15
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 22/12/2009, 20:17
Cvp: Setfocus'ta tutabilmek... - Yazar: mehmetdemiral - 22/12/2009, 20:22
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 22/12/2009, 20:28
Cvp: Setfocus'ta tutabilmek... - Yazar: arzuu - 23/12/2009, 11:31
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 23/12/2009, 13:42
Cvp: Setfocus'ta tutabilmek... - Yazar: arzuu - 23/12/2009, 14:29
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 23/12/2009, 15:26
Cvp: Setfocus'ta tutabilmek... - Yazar: mustafa_atr - 23/12/2009, 18:22
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 23/12/2009, 19:02
Cvp: Setfocus'ta tutabilmek... - Yazar: C*e*l*o*y*c*e - 23/12/2009, 19:06
Cvp: Setfocus'ta tutabilmek... - Yazar: Hayri16 - 24/12/2009, 14:25
RE: Setfocus'ta tutabilmek... - Yazar: fenerli6774 - 06/10/2020, 17:17