+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: otomatik deger (/konu-otomatik-deger.html)
otomatik deger - mozuer - 05/09/2011
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.
Cvp: otomatik deger - ozanakkaya - 05/09/2011
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.
Cvp: otomatik deger - mozuer - 06/09/2011
Sn.Sledgeab
Özür dilerim ve Teşekkür ederim...
Cvp: otomatik deger - ozanakkaya - 09/09/2011
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.