Bu şekilde de denemiştim, bu sefer ardı sıra tekrarlama bitmesine karşın malzemenin başka bölümden sonra aynı bölümlerde işlem görünmesini de iptal ediyor. örneğin yukarıdaki tablo örneğine göre doğru sonuç :
BOLUM-A
BOLUM-B
BOLUM-C
BOLUM-D
BOLUM-E
BOLUM-B
BOLUM-F
BOLUM-A
BOLUM-C
iken , min ifadesi kullandığımda sonradan tekrar eden a,b,c bölümlerini de iptal ederek şöyle bir yanlış sonuç veriyor:
BOLUM-A
BOLUM-B
BOLUM-C
BOLUM-D
BOLUM-E
BOLUM-F
yapmak istediğim, sıra numarasına göre ardı sıra tekrarları sonlandırmak.
maalesef yapmak istediğinizi anlayamadım. çalışmanızı ekleyip daha detaylı ve örnekler üzerinden açıklama yapabilirseniz yardımcı olmaya çalışırız.
sorgu kodunu aşağıdaki gibi dener misiniz?
SELECT Tablo1.BOLUM
FROM Tablo1
WHERE (((IIf(Nz(DMax("SiraNo","tablo1","Bolum='" & [Tablo1]![BOLUM] & "' and SiraNo<" & [Tablo1]![SiraNo]),0)=Nz(DMax("SiraNo","tablo1","SiraNo<" & [Tablo1]![SiraNo]),0) And Not IsNull(DMax("SiraNo","tablo1","SiraNo<" & [Tablo1]![SiraNo])),1,0))=0));
Tam istediğim gibi oldu, ama gerçekten çok karmasık bir sorgu gerektiriyormuş.
bu çıkan BOLUM sonuçlarını raporda bir metin kutusuna yan yana nasıl yazdırabilirim?
raporun nasıl hazırlanacağını bilmediğim için kesin bir şey öneremem
ama aşağıdaki kodu bir butona yazarsanız yan yana yazar
Dim SqlRs As String
Dim TrhDz As Variant
SqlRs = "SELECT BOLUM from SQLTekrarsiz"
Set rs = CurrentDb.OpenRecordset(SqlRs, dbOpenSnapshot)
rs.MoveLast
rs.MoveFirst
KytSay = rs.RecordCount
TrhDz = rs.GetRows(KytSay)
For x = 0 To KytSay - 1
Metin0 = Metin0 & " " & TrhDz(0, x)
Next x
Metin0 = Trim(Metin0)
Çok Teşekkür ederim, rapor yüklendiğinde olayına bu kodları eklediğimde istediğim metin kutusuna değerleri yan yana yazdırabiliyorum.
tekrar çok teşekkürler.
Sorunum çözülmüştür.
rica ederim)
iyi çalışmalar
Not isterseniz for x yerine dizideki tüm elemanları ekleyen aşağıdaki döngüyü de kullanabilirsiniz
For Each xEleman In TrhDz
Metin0 = Metin0 & " - " & xEleman
Next xEleman