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.
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
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.
Ufuk hocanın kodlarına ekleme yaptım, inceleyiniz.
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.
İ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"