+- 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ığı: Sorgu yardımı (/konu-sorgu-yardimi.html)
Sorgu yardımı - derbederali1971 - 26/03/2014
Merhaba ,
Ekteki çalışmamda Gemi Tablosuna Realese formundaki Ref Kod kullanarak realase no,Realase tarihi,Realse firmasını ekliyorum.
Benim yapmak istediğim örnegin Ref kodlarının 72/100 kısmını Ref koduna yazacagım sonra Ref Kısa kod kısmına 001,004,006,007 gibi yazarak o dört referansa realase no,Realase tarihi,Realse firma alanlarını değiştirmek istiyorum. İnşallah anlatabilmişimdir.
Cvp: Sorgu yardımı - POWER - 26/03/2014
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
Cvp: Sorgu yardımı - derbederali1971 - 26/03/2014
Elinize sağlık çok teşekkür ederim ama ben Formda ikinci bir alanda 001,004,005 gibi yazıp ref kodunun son hanelerinide çek etmesini istiyorum.
Yani tamam 72/100 yazıp bütün 72/100 lerle başlayanı değiştiriyor ama ben onunda içinde seçerek yapmak istiyorum. yani 72/100 lerde 001,009,010 gibi yazığım zaman sadece o 3 ref değiştirsin.
Cvp: Sorgu yardımı - ozanakkaya - 26/03/2014
Ufuk hocanın kodlarına ekleme yaptım, inceleyiniz.
Cvp: Sorgu yardımı - ozanakkaya - 29/03/2014
sn derbederali1971, yazdığım cevap ile ilgili olumlu yada olumsuz dönüş yapabilir misiniz acaba?
Site Kuralları:
2-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.
Cvp: Sorgu yardımı - derbederali1971 - 07/04/2014
İlginiz için teşekkür ederim
Sorum 001,009,010 gibi kodları almak idi konuyu bu kod ile çözdüm.
Teşekkür ederim
Dim Sql As String
Dim db As Database
Dim rs As DAO.Recordset
M = Len(KS)
For SAY = -4 To M Step 1
sChar = Trim(Mid(KS, InStr(1, KS, ",") + SAY, 4))
TK = RefKsKod + ".1." + sChar
Set db = CurrentDb()
a1 = Len(TK)
SQL = "SELECT * FROM Gemi"
Set rs = db.OpenRecordset(SQL)
If rs.EOF = True Then Exit Sub
rs.MoveFirst
Do Until rs.EOF
If rs!RefNo = TK Then
rs.Edit
rs!RelFatura = Me.RelFatura
rs.Update
End If
rs.MoveNext
Loop
Next
MsgBox "İşlem tamam"