Metin ayırma

[hedefkaya]

bir formda Metin3 kutusundaki yazı 11 ile başlıyorsa son 3 rakamı kesip Metin4
kutusuna yazdıra bilirmiyiz acaba

 

[beab05]

Merhaba;

If Left(Metin3, 2) = "11" Then
Me.Metin4 = Right(Metin3, 3)
End If

 

[hedefkaya]

TEŞEKÜRLER beab05

BİRİNCİ İŞLEM TAMAM
FAKAT METİN3 DEKİ SON 3 RAKAMIN SİLİNMESİ LAZIM
BUNU YAPABİLİRMİYİZ ACABA

 

[beab05]

Bu alanlar tabloda kayıtlı mı, yoksa form üzerinde ilişkisiz metin kutuları mı?

 

[hedefkaya]

tabloda kayıtlı alanlar

 

[beab05]

Merhaba;
Alttaki kodu bir düğmeye ya da ilgili güncelleştirme sonrası olayıyla deneyiniz.. Aynen dediklerinizi yapmaktadır lakin örnek eklemediniz bunu anlıyorum ama en azından tablo yapınızla bile hiç bilgi vermediniz. Eğer form üzerinden giriş yapacaksanız ilgili alanları koda adapte ediniz. Örneğiniz olsaydı daha ilk anda çözüme ulaşacaktı..

With DoCmd
.SetWarnings False
.RunSQL ("update tablo1 set met4 = right(met3,3)" & " where left(met3,2)='11'")
.RunSQL ("update tablo1 set metin3 = Left([met3],Len([met3])-Len([met4]))" & " where left(met3,2)='11'")
.SetWarnings True
End With

Met3: Metin3 bağlı alanıdır
Met4: Metin4 bağlı alanıdır
Metin3 : Metin3 olarak görmek istediğiniz alandır.
Tablo1: Tablo ismidir.
Siz bence yeni bir tablo yapın ve bu alanları yazarak deneyiniz.. Yoksa karıştırabilirsiniz..

Sanırım örneklendirsem daha iyi olacak. Form1 i inceleyiniz..

 

[hedefkaya]

TEŞEKÜRLER beab05
İŞİMİ GÖRECEK BİR ÖRNEĞE BENZİYOR ELLERİNE SAĞLIK FAKAT TAKILI KALDIĞIM BİR YER OLURSA BAŞINI AĞRATABİLİRİM. TEKRAR TEŞEKÜRLER...

 

[assenucler]

Teşekkürler.

Hocam, sağolasın...