Skip to main content

AccessTr.neT


Etiketler
Yazar: emturker - Cevaplar: 9 - İzleme: 5319
Basit Revizyonlu Ürün Satış Prg.
Basit Revizyonlu/İkinci El Ürün Satış Prgramı.
Sn.Mehmet Demiral, Örnek Dosyasından Faydalanılmıştır.(Teşekkürler)
Geliştirilebilir.

Yazar: notrino - Cevaplar: 8 - İzleme: 1877
Revizyonlu Kopyala Yapıştır Uygulaması
Merhabalar,

Ekli örneğimde gerçekleştirmek istediğim birşey var. Bununla ilgili daha önce gönderdiğiniz şu kodu;
Kod:
Dim GRevizyon As Integer

If IsNull(Me.revizyon) Or Me.revizyon = "" Then

Me.revizyon = "R1"

Else

GRevizyon = Val(Mid(Me.revizyon, 2, Len(Me.revizyon)))

Me.revizyon = "R" & GRevizyon + 1

End If

ve şu kodu;

[code]Dim AccessTr_EskiKimlik As Integer
Dim AccessTr_EskiAlan As String

AccessTr_EskiKimlik = Me.Kimlik
AccessTr_EskiAlan = Me.alan1