• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

metin kutusunda hata

  • Konbuyu başlatan Konbuyu başlatan GKMER
  • Başlangıç tarihi Başlangıç tarihi
Katılım
24 Eylül 2005
Mesajlar
332
metin kutusuna hatalı girişte uyarı

Sayın modalının vermiş olduğu örnekle yapmış olduğum çalışmada metin kutusuna sayı veya harf girilmesi haline hata kontrolü ile hata mesajı veriyor. diğer metin kutusuna geçiyor. ben aynı metin kutusunda kalmasını sağlayamadım. bu konuda yardımınızı rica ediyorum.
 
Son düzenleme:
adet için

adet_Exit(Cancel As Integer)

olayını kullanın. şart sağlanmazsa cancel = true yapın.
 
If IsNumeric(adet) Then
Cancel = False
Else
Cancel = True
End If

ifadesi ile nümerik girişleri önleyebiliyorum, fakat 6+5 sonuçuda nümerik olduğu için sorunumu çözemiyorum.
 
Sayın GKMER,

Bir kere yazdığınız kod ters

Kod:
Private Sub alan_BeforeUpdate(Cancel As Integer)
If IsNumeric(alan) Then
Cancel = True
Else
Cancel = False
End If
End Sub

Şeklinde olmalı ve 6+5 i metin olarak kabul ediyor.

İyi çalışmalar:)
 
Sayın Modalı dediğiniz şekildede denedim. Sorunum 6+5 yazdığımda bunu 11 olarak görmeli ve diğer kutuya geçmeli. 6.7 yazdığımda 6,7 olarak hesaba girmeli, diğer kutuya geçmeli bu ikisini sağlaması için 5,5 leri tanımıyacağı için uyarı ile birlikte aynı kutuda kalmalı.Daha önce verdiğiniz örnekle oluşturduğum çalışma ekte.
 
Sayın GKMER,

Gönderdiğim örneği iyice inceleyin. Orada görünmeyen kutular var, hesaplama orada yapılıp asil kutuya yazılıyor. Siz bu kutularaı eklemediniz. Aslında bir tane görünmez kutu yeter. Hepsiniz hesabı yapılabilir bunun üstünden.

İyi çalışmalar:)
 
Sayın Modalı sabrınıza güvenerek yazıyorum çok uzatma oldu ama. Diğer kutuları hesaplama için kullanıyorum. Görünen kutulardaki ifadeleri yazıcıdan çıktı olarak alacağım. Bundan dolayı sorunumun çözümü varsa düzeltip göndermenizi rica edeceğim.
 
Sayın GKMER,

Tam olarak yaptırmak istediğinizin işlemin mantığını yazarsanız daha çabuk çözüme ulaşabiliriz.
 
Yaptırmak istediğim. Adet, en, boy, yük kutularındaki rakamları çarptırmak. Yanlız girişleri yazıcı çıktısında da görüntülemek için örnek olarak (6.60+3.70)/2 şeklinde girebileyim. bu işlemin sonuçu 5.35 çarpıma 5.35 olarak girsin ama kutuda açık olarak ((6.60+3.70)/2) görünsün ( yazıcı çıktısı için ) ayrıca kutu boş ise değer çarpımda 1 olsun çarpanı sıfırlamamak için. Tabi sadece 6 veya 6.57 olarakta girilebilsin. enter bastığımda diğer kutuya gitsin. bunu yaparken girişler metin olduğu için virgüllü girişleri kabul etmiyor. ( nümerik karakter) bu şekilde girişlerde veya hatlı girişlerde uyarsın ve aynı kutuda kalsın hata yoksa diğer kutuya geçsin.
 
sayın modalı, slm.lar

bu gün 18:17 'de gönderdiğiniz mesajda ve öncekilerdeki kod yazım kısmını nasıl farklı olarak gösteriyorsunuz resim gibi yani mesajdan farklı olarak yazarmısınız?
 
Sayın karaayhan,

Çok basit. Kod olarak göstermek istediğimiz kısmı seçeriz ve daha sonra üst kısımda # e basarız. o sırada code tagı eklendiğini gösteren yazılar görünür, ancak yazılarda bir değişiklşik olmaz. Cevabı gönderdiğimizde kod olarak göründüğünü görürüz.

iyi çalışmalar
 
============sadece deneme============

Private Sub alan_BeforeUpdate(Cancel As Integer)
If IsNumeric(alan) Then
Cancel = True
Else
Cancel = False
End If
End Sub
 
Sayın karaayhan,

Çok basit. Kod olarak göstermek istediğimiz kısmı seçeriz ve daha sonra üst kısımda # e basarız. o sırada code tagı eklendiğini gösteren yazılar görünür, ancak yazılarda bir değişiklşik olmaz. Cevabı gönderdiğimizde kod olarak göründüğünü görürüz.

iyi çalışmalar

Nerde bu söylediğiniz # ben bulamadım inanın ve denedim olamdı gördüğünüz gibi?
 
Sorunumu çözdüm. İlgilenen arkadaşlara teşekkür ederim.
 
Geri
Üst