AccessTr.neT

Tam Versiyon: otomatik deger
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
19/A İşler listesindeki DENEME İşine ait hakediş formunda Poz No alanına tıklanınca değer otomatik gelsin istiyorum. Örnek ilk satır için E.1, ikinci satırda tıklanınca E.2 ........tıkladıkça devam etsin.
22:15'de konu açıp 22:15'de siteden ayrılırsanız sorunuza çözüm bulunsa bile cevap yazılmaz.

Örneğinizi uzun uzun incelemek zorunda kaldım, çünkü hangi formdan bahsediliyor anlamak güç.

"A" ve "A Alt Form" formlarında bahsi geçen işlemi gerçekleştirdim.

- "A Alt Form" formuna denetim kaynağı "is_no" olan "is_no" adında metin kutusu ekle,
- "A Alt Form" formunda bulunan "pz_no" açılan kutusunun çift tıklandığında olayına aşağıdaki kodu ekle.



Dim tumu As String
Dim metinsol As String
Dim metinsag As String
Dim nokta As Integer
Me.is_no = Forms![a]![is_no]
tumu = DLast("[pz_no]", "AH", "[is_no]=" & Me![is_no])
nokta = InStr(1, tumu, ".")
metinsol = Left(tumu, nokta)
metinsag = Right(tumu, Len(tumu) - nokta) + 1
Me.pz_no = metinsol & "" & metinsag

"pz_no" açılan kutusunun çift tıkladığında bir artacak şekilde yeni değeri yazar.
Sn.Sledgeab
Özür dilerim ve Teşekkür ederim...
Neden özür dilediğinizi anlayamadım.
Örneğinizi uzun uzun incelemek zorunda kaldığım için özür diliyorsanız, uzun uzun incelemeseydim sorunuzu cevaplayamazdım. Img-grin
Konu cevaplanmışlara taşınmıştır.