Skip to main content

AccessTr.neT


Sorgu yardımı

derbederali1971
derbederali1971
5
2213

Sorgu yardımı

Çözüldü #1
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.

Img-grin
.zip Gemiler.zip (Dosya Boyutu: 25,39 KB | İndirme Sayısı: 5)
Cevapla
Çözüldü #2
İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
.zip Gemiler.zip (Dosya Boyutu: 49,38 KB | İndirme Sayısı: 8)
Please return your positive or negative ...
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
Ufuk hocanın kodlarına ekleme yaptım, inceleyiniz.
.rar Gemiler_sld.rar (Dosya Boyutu: 19,13 KB | İndirme Sayısı: 2)
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
İ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"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task