otomatik deger

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. Konu cevaplanmışlara taşınmıştır.