girilmeyen değer için sıfır atama

1 2
24/11/2009, 20:29

amelie

Dostlar merhaba,
ya kafam durdu ya da ben beceremedim bir türlü
Sorun şudur;
örneğin 4 birim( 4 basamaklı) uzunluğa sahip bir txt alana girilmeyen değerler için başına 0( sıfır) değerini kendi tamamlasın istiyorum.excel de bu basit ancak burda berememekte ısrar ediyorum.

yani kısasa txt özelliğe sahip bir alan örneğin 22 rakamını girdiğimde 0022 olarak tamalamasını istiyorum.

Bilgi ve görüşlerinizi rica ediyorum.

Saygılarımla,
24/11/2009, 21:02

mehmetdemiral

Bir metin kutusu koyalım. Adı metin1 olsun. Bu metin kutusunun çıkıldığında olayına aşağıdaki komutları yazalım:

Kod:
Dim y As Integer
y = Me.Metin1
Me.Metin1 = Format(y, "0000")

Bu kadar..
24/11/2009, 23:05

amelie

Mehmet bey çok teşekkür ederim çok güzel bir cevap.

Nacizhane şunu sorsam VB harici alan özelliklerini ya da maske özelliklerinden de yapılabilir mi bu acaba, ben hep cevabı orada aradım da? hani Excel de 0000 yapmak gibi.

ama bu cevap yeterli midir..süper yeterlidir o da ayrı tabi
Saygılarımla.
25/11/2009, 11:04

ayhan2122

Sn amelie;
Tabloda sayı alanının özelliğinde "Biçim:0000" yaparsanız "22" yazdığınızda "0022" olarak görünür.
25/11/2009, 13:35

assenucler

Teşekkür...
25/11/2009, 17:47

amelie

Ayhan bey cevabınız için teşekkür ederim ancak,
ver alanı text özelliğinde olduğundan bahsettiğiniz özellik çalışmıyor.

aslında bu soruma bir ilave daha yapmak istiyorum umarım arada kaynamaz
tabloda daha önce girilmiş olan txt verilerden ( uzunluk 4 birim) sorgu, Sql veya vb kullanmadan 0000 olarak tümünü dönüştürebilir miyiz
örneğin; 222 eski veri yeni girişler için mehmet beyin cevabı ile 0222 oluyor ama eski girilmiş veriler için değiştirmiyor. önceden girilmiş 222 nasıl 0222 olur?

Saygılarımla,
1 2