+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin alanındaki sayı değerini artırmak (/konu-metin-alanindaki-sayi-degerini-artirmak.html)
Metin alanındaki sayı değerini artırmak - umuttk - 01/03/2015
Merhaba arkadaşlar
Formdaki metin alanında bulunan metin ve sayıdan oluşan sayının değerini artırmak istiyorum.
Şöyle ki;
Formdaki metin alanında bulunan A-001, B-001, C-001 şeklinde seçenekli olan SNo alanındaki sayının değerini birer artırmak istiyorum. Tablodaki bu alan ise Metin alanıdır.
Bu verileri ilgili sorgudan alıyorum ve olay yordamı içerisinde çağırııyorum ama sayının değerini metin ifadesi olduğundan artıramıyorum.
Bu konuda yardımlarınızı bekliyorum.
Şimdiden Teşekkürler......
Cvp: Metin alanındaki sayı değerini artırmak - atoz112 - 02/03/2015
sayın umuttk,
uygulamanızı;
incelemeye imkan vermek üzere,2007 kullanımına da uygun olacak şekilde ya da
2002-2003 farklı kaydet şeklinde konunuza dahil etmek ister misiniz.teşekkürler.bilginize.
iyi çalışmalar,
saygılar.
Cvp: Metin alanındaki sayı değerini artırmak - ozanakkaya - 02/03/2015
Basit bir örnek hazırladım. Sonraki sorularınızda örnek uygulamanızı ekleyiniz.
Dim Veriler As String
Veriler = Val(Mid(Me.sno, 3))
If Len(Veriler) = 1 Then
If Veriler = 9 Then
Me.sno = Left(Me.sno, 3) & Veriler + 1
Else
Me.sno = Left(Me.sno, 4) & Veriler + 1
End If
ElseIf Len(Veriler) = 2 Then
If Veriler = 99 Then
Me.sno = Left(Me.sno, 2) & Veriler + 1
Else
Me.sno = Left(Me.sno, 3) & Veriler + 1
End If
ElseIf Len(Veriler) = 3 Then
If Veriler = 999 Then
Exit Sub
Else
Me.sno = Left(Me.sno, 2) & Veriler + 1
End If
End If
Cvp: Metin alanındaki sayı değerini artırmak - atoz112 - 11/03/2015
sayın umuttk,
konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.
şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.
bilgilendirmek ister misiniz lütfen.teşekkürler.bilginize.
iyi çalışmalar,
saygılar.
Cvp: Metin alanındaki sayı değerini artırmak - umuttk - 12/03/2015
Sayın Ozanakaya ve Sayın,Atoz112
Verdiğiniz kodlar çok işime yaradı.
Yoğun iş temposu nedeniyle sizlere cevap veremedim.
Yardımlarınız için sonsuz teşekkür ederim.
Saygılarımla..
Cvp: Metin alanındaki sayı değerini artırmak - atoz112 - 13/03/2015
sayın umuttk,
öncelikle,sorununuzun çözülmesi sizin için verimli bir bilgi sahibi olma ve gelişim adına güzel bir ilerleme.
son olarak da,yazdıklarınıza dair,
etik olmasını doğru bulduğum ve olması gerektiği davranışı sergilemek için,sadece bir düzeltme yapma gereksinimi duyulduğu için,belirtmek adına;
ben sadece,konunuz ile ilgili son durum üzerine bilgilendirme talebinde bulundum;bu teşekkürün ulaşması gereken tek muhatabı ise,talebinize önerdikleri çözümsel katkıda bulunan,asıl yardımcı olan ve bu hakkı edinen sayın ozan bey dir.bilginize.
iyi çalışmalar,
saygılar.