Ö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.