Metin Kutusundan veri girilmeden çıkılmasın

[blacksir]

Formumda 4 tane metin kutusu var isteğim şu açılışta metin1 adlı metin kutusundan veri girişi yapılmadan çıkılmasın veri girmeye zorlasın (fareyle başka metin kutusuna tıklandığındada metin kutusu 1 veri boş girilmez mesajı versin) nasıl yaparım. dosya ektedir.

 

[kocivan]

tabloları tasarım görünümde aç metin1'in alan özelliklerinde gerekli yazan yerin karşısında hayır yazıyor onu evet yap o alana giriş yapmadan öteki alanlara giriş yapılamaz ozaman en basit yolu bu daha farklı birşey yaz yardımcı olurum.

 

[blacksir]

Metin1 odaklandıktan sonra çıkılmasın

Onu biliyorum ama o olay en sonunda (Bütün Kayıtlara veri girişi yapıp Eğer metin1 boş sa boş kalamaz diyor.) Benim isteğim metin1 kaydım odaklandıktan sonra veri girmeden çıkılmasın hiçbir şekilde

 

[mehmetdemiral]

Aslında aşağıdaki kodun çalışması lazım ama bazen sıkıntı yaratıyor. Nerede hata var anlayamadım.

Private Sub metin1_AfterUpdate()
If Me.metin1 <> "" Then
Else
MsgBox "Kay&#305;t Girmediniz"
Me.metin1.SetFocus
End If

End Sub



If Me.metin1 <> ""
Then sat&#305;r&#305;n&#305; If Me.metin1 <> "" and null Then
olarak da denedim olmad&#305;.. Nerede hata var ki?

 

[modalı]

Bir de

If IsNull(Me.metin12) Then

olarak deneyin.

İyi çalışmalar

 

[mehmetdemiral]

Say&#305;n modal&#305;
metin12 ifadesi metin1 olacakt&#305;, eliniz o s&#305;ra 2 ye de de&#287;mi&#351; san&#305;r&#305;m. Herneyse o sat&#305;r&#305;
If IsNull(Me.metin1) Then
olarak de&#287;i&#351;tirmem de bir &#351;eyi de&#287;i&#351;tirmedi. Hi&#231; kay&#305; yokken (yani null kay&#305;tta) uyarm&#305;yor. Bir&#351;eyler yaz&#305;p silerseniz &#231;&#305;k&#305;&#351;ta uyar&#305;yor. -Ho&#351; Silmeseniz de uyar&#305;yor ya- Fakat ayn&#305; alana geri d&#246;n&#252;p tekrar enterleyince uyarm&#305;yor. Neden acaba? Sizce hata nerde?

 

[beab05]

G&#252;ncelle&#351;tirme &#246;ncesine yazmal&#305;s&#305;n&#305;z...

 

[Taruz]

Merhaba

Bende say&#305;n mehmetdemiral'&#305;n kodu &#231;&#305;k&#305;&#351;ta &#231;al&#305;&#351;t&#305;..

Sayg&#305;lar


D&#252;zeltme notu:
Say&#305;n beab05, g&#246;rmedim

 

[blacksir]

olmadı Odaklanma Sonlanıyor

Kodları çıkıştada denedim mesaj veriyor. yanlız metin1 den odaklanmayı bırakıyor ve metin2 geçiyor. İsteğim hiç bir şekilde metin1 veri girmeden odaklanmayı bırakmasın mümkünmü acaba

 

[mehmetdemiral]

Evet.. Halbuki t&#252;m i&#351;llem bitince metin1.setfocus komutunun bu i&#351;i yapmas&#305; gerekiyordu. &#304;&#351;lemin iptali i&#231;in undo da denedim yine olmad&#305;. Bu arada beab05, her iki t&#252;rl&#252; de denedim.. Yine olmuyor.. &#304;sterseniz &#246;rnek &#252;zerinde deneyip yaz&#305;n..

 

[mehmetdemiral]

&#199;&#305;k&#305;ld&#305;&#287;&#305;ndaya yazmay&#305; denemedim. Bu t&#252;r &#351;eyler &#231;&#305;k&#305;ld&#305;&#287;&#305;ndaya yaz&#305;ld&#305;&#287;&#305;nda genelde oradan &#231;&#305;k&#305;lmas&#305;na izin verilmiyordu. Belki orada olur..

 

[mehmetdemiral]

sonunda yaptım.. İlk kutu tamam. Diğerlerini de aynı şekilde yapabilirsiniz.

 

[abkbek]

Say&#305;n mehmetdemiral,
ekteki &#246;rne&#287;inizi inceledim. metin1'de iken esc tu&#351;una bas&#305;p bir &#246;nceki kayda gitmek istedi&#287;inizde bir defa mesaj yazd&#305;ktan sonra alandan &#231;&#305;k&#305;yor ve &#246;nceki kayda gidiyor. bu da &#246;nlenebilir mi?

 

[mehmetdemiral]

Tam olarak anlayamad&#305;m. Metin1 e bir&#351;ey yaz&#305;p metin2 ye ge&#231;tikten sonra esc ye bas&#305;l&#305;nca metin2 de kal&#305;yor. Onu tekrar metin1'e mi odaklamak istiyorsunuz?

 

[beab05]

Bu tür alan denetimi için çok basit bir yol var aslında ben alana göre değil forma göre bir örnek veriyorum. Hangi alan boşsa sizi alan ismiyle birlikte uyarır ve oraya odaklanır. Formdaki alan isimlerinin özelliklerine dikkat edin "im" (tag) olarak "bb" girdim yani kod "bb" gördüğü her alanı denetliyor ve güncelleştirme öncesi kontrol ediyor..

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Control
  For Each ctl In Me
    
     
        If ctl.Tag = "[COLOR="Red"]bb[/COLOR]" Then
            If IsNull(ctl) Or ctl = "" Then
                MsgBox "Tüm alanları doldurmalısınız  '" & " " & ctl.Name & " " & "' alanını doldurunuz...", vbCritical, "BOŞ ALAN UYARISI!!!"
                ctl.SetFocus
                Cancel = True
                Exit Sub
            End If
        End If
    Next
    Set ctl = Nothing

End Sub

 

[eskala]

kodu açıklarmısınız

Sn. beab05,
verdiğin kodu azcık açıklarmısınız. yani tag ve im nedir? metin özelliklerindeki "im" ne demek? ayrıca söz özelliklerden açılmışken; metin özelliklerindeki "kısayol menü çubuğu, denetim ipucu metni, yardım içeriği kimliği, IME'de kal, IME modu, IME tümce modu" ne olduklarını açıklarmısınız?
teşekkürler...

 

[mehmetdemiral]

Bu da g&#252;zel bir y&#246;ntem. Fakat blacksir bo&#351; alan&#305;n terkedilememesini istedi&#287;i i&#231;in ben bu &#351;ekilde d&#252;&#351;&#252;nmedim. Alanlar&#305; teker teker bireysel olarak kontrol etmeye y&#246;nlendim.

 

[blacksir]

Teşekür

Tamam Teşekkürler herkese yeterli bir cevap

 

[eskala]

soru cevapsız kaldı

Sn. beab05 veya diğer Üstadlarım....
verdiğin kodda ctl.tag ne demek?
ayrıca şu metin özelliklerindeki
"kısayol menü çubuğu,
denetim ipucu metni,
yardım içeriği kimliği,
IME'de kal,
IME modu,
IME tümce modu ve
im"
ne olduklarını açıklarmısınız?
teşekkürler...

 

[beab05]

Merhaba;
ctl: kod &#252;zerinde, formda bulunan controller "ctl" ismiyle boyutland&#305;r&#305;lm&#305;&#351;t&#305;r, ctl.tag (im) = "bb" ise im (i&#351;aret) olarak "bb" de&#287;erini alm&#305;&#351; controlu (metin kutusu,a&#231;&#305;lan kutu, d&#252;&#287;me) se&#231; demek. IME olay&#305; ise &#231;ok emin de&#287;ilim ama Do&#287;u Asya dilleriyle alakal&#305; bi&#351;ey san&#305;r&#305;m..