Skip to main content

AccessTr.neT


Sorgu yardımı

derbederali1971
derbederali1971
5
1770

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)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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


Visual Basic Code
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