[SORGU] Sorguda hücre içindeki değerin bir kısmını almak

kadirakyil · 29-09-2017, 15:12

Merhaba üstadlar,

aradım ama bulamadım, işlendi ise tekrar sorduğum için affınıza sığınıyorum.

Liste kutusunun sorguda ölçü olarak kullandığı metin kutusundaki değerin bir kısmını ölçü olarak almasını nasıl sağlayabilirim.

Örnekse:

AAAA1000 01 01 30 değerinin
son iki hanesi olan 30 u görmeden (Tamamen yapmak istediğim budur)
AAAA1000 01 01 değerini sorgulamasını istiyorum.

İlgili metin kutusuna değeri yine bir başka liste kutusundan atıyorum .

Private Sub Liste81_Click()
Me.ResimNoAl = Me.Liste81.Column(2)

Bu işlevi yaparken son iki hanesi hariç Me.ResimNoAl a yaz diyebilirsemde işlevi istediğim gibi yapabilmiş olurum.

Şimdiden teşekkür ederim.
Saygılarımla.
Kadir.

onur_can · 29-09-2017, 21:27

Merhaba Kadir Bey,
Aşağıdaki kodu uygulayın

Visual Basic
Dim a As String
Dim b As Integer
Dim c As Integer
Dim d As String
 
a = Me.Liste81.Column(2)
b = Len(a)
c = b - 2
d = Left(a, c)

dsezgin · 29-09-2017, 21:29

Visual Basic
Private Sub Liste81_Click()
Me.ResimNoAl = mid(Me.Liste81.Column(2),1,len(Me.Liste81.Column(2))-2)
end sub

ile sonuc alinabilir.

kadirakyil · **Kayıt Tarihi:** 14.10.2013

Merhabalar,

Konuyu silmeyi denedim becerememiştim, daha sonra da siteye erişim hatası aldım.
Cevaplarınız için çok teşekkür ederim. Zamanım biraz kısıtlı olduğu için kendim biraz daha uzun bir yolla yaptım.

Saygılarımla.

Mid fonksiyonunu sağdan çalıştıramadığım için Kutu içeriğini 2 kere ters çevirerek yaptım.

Visual Basic
Me.ResimNoAl1 = Me.Liste81.Column(2)
Dim kodal As String
kodal = Me.ResimNoAl1
Dim kodal2 As String
kodal2 = StrReverse(kodal)
Dim Sonuc As String
Sonuc = Mid(kodal2, 4, 20)
Me.ResimNoAl = StrReverse(Sonuc)

dsezgin · 02-10-2017, 21:00

Yazdigim cevaba fazlaliklar eklenmis, mesaj 3'u guncelledim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Farklı Tablodan Mükerrer Olmayan Bilgi Almak	bilservisci	5	151	17-12-2023, 18:04 Son Mesaj: dsezgin
	Access'e Excelden Dış Veri Almak	snapper	3	169	02-10-2023, 22:55 Son Mesaj: dsezgin
	[SORGU] Sorguda Iif	mart02	7	231	10-09-2023, 14:23 Son Mesaj: halily
	Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk.	adnnfrm	2	229	05-08-2023, 02:23 Son Mesaj: adnnfrm
	Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında.	OGUZTURKYILMAZ	1	168	22-04-2023, 23:48 Son Mesaj: OGUZTURKYILMAZ
	[FORM] Formda Duruma Göre Hücre Gizleme	agabey_42	2	130	05-01-2023, 16:58 Son Mesaj: agabey_42
	Başlıkları Aynı Olmayan EXcel Tablosunu Dosya Bul Butonu Ile Accese Veri Almak	snapper	1	194	17-12-2022, 03:13 Son Mesaj: dsezgin
	Aktif Formda Raporu Pdf Olarak Almak	ankaram	4	192	06-11-2022, 22:40 Son Mesaj: onur_can

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL