[SORGU] Acceste Kelimeyi Harf Harf Ayirma

ŞabanTR · 14-04-2023, 22:55

Acceste kelimeyi sorguda harf harf ayri sutunlara yazdirma nasil olur bu konuda bana yardımcı olurmusunuz.

halily · 15-04-2023, 16:32

dilerim işinize yarar
1 - bir sorgu oluşturun içeriği fark etmez
adı xHfBol olsun
dikkat edilecek nokta sorgu adının aşağıdaki koddaki renkli olarak belirtilenle aynı olması
CurrentDb.QueryDefs("xHfBol").sql = sql
2 - çalışmanıza bir modül ekleyip aşağıdaki kodlar yapıştırın
sorgu kodunu değiştirecek fonksiyon. bir düğmeye atanabilir

Visual Basic
Sub SayHrf()
    
    Dim sql, SqlStn As String
    Dim xStnSay, x As Integer
 
xStnSay = DLookup("max(len([Alan1] & ''))", "Tablo1")
 
'hy Sorguyu sütunlara böl
SqlStn = ""
For x = 1 To xStnSay
    SqlStn = SqlStn & ", SpHr([Alan1] & ''," & x & ") AS [xH" & CStr(x) & "]"
Next x
     sql = "SELECT Alan1, " & Mid(SqlStn, 2) & " FROM Tablo1;"
    
    CurrentDb.QueryDefs("xHfBol").sql = sql
 End Sub

Sorgudan çağrılacak fonksiyon

Visual Basic
Function SpHr(GVeri As String, GSayi As Integer) As String
     SpHr = Mid(GVeri, GSayi, 1)
End Function

tablo adı: Tablo1
kelimenin olduğu alanın adı :[Alan1]
Not kelime en fazla kaç harf olacak?
253 harfe kadar sorunsuz çalıştı
Yanılmıyorsam access sorguları en fazla 255 sütun olduğundan
hesabı kullanılan alan sayısı + maximum harf<=255 olacak şekilde yapmalısınız

ŞabanTR · 16-04-2023, 00:19

Kusura bakma hocam çok uğraştım ama olmadı bir yerde bir yanlışlık yaptım ama çözemiyorum. İnşallah hallederşm.

halily · 16-04-2023, 00:26

1 - 1 tablo olusturun, adı tablo1 olsun
2 - 1 alan ekleyin adı Alan1 olsun <= bu alan kelimenin olduğu alan olacak
3 - 1 sorgu oluşturun adı xHfBol olsun
sorgunun sql kod

Visual Basic
select * from Tablo1;

olsun
4 - çalışmanıza bir modül ekleyin
5 - 2. mesajdaki kodları güncellemiştim onları modüle yapıştırın
6 - SayHrf yordamını çalıştırın

ŞabanTR · 16-04-2023, 10:54

Teşekkür ederim hocam emeğine sağlık.

halily · 16-04-2023, 14:23

Rica ederim
İyi çalışmalar

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Acceste Liste Kutusundan Seçilen Veriyi Metin Kutusuna Gönderme	Pasham	24	358	04-04-2024, 01:18 Son Mesaj: halily
	Harf Haricindeki Karakterleri Kelimeden Nasıl çıkartılır?	sevincili	12	494	09-07-2023, 14:01 Son Mesaj: halily
	Acceste Listbox Seçimine Göre Grafik Gösterimi Hk	YENIFENER	3	192	04-10-2022, 10:27 Son Mesaj: YENIFENER
	[FORM] Liste Kutusu Büyük Harf Küçük Harf	ahmetsan	5	180	08-08-2022, 20:51 Son Mesaj: alperalper
	Kütüphane Veritabanı örneği Lazım Acceste Sorgu Form Tablo	gokothemusician	1	473	10-05-2021, 13:37 Son Mesaj: onur_can
	Acceste Kullanıcıları Devre Dışı Bırakmak	blumanx	2	357	02-03-2021, 16:48 Son Mesaj: blumanx
	[SORGU] Sorgulamada Büyük Ve Küçük Harf Problemi	Proteus	2	522	21-08-2020, 10:22 Son Mesaj: Proteus
	[VBA] tarihlere ayırma	evren89	4	2.090	19-08-2020, 15:43 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL