(09/11/2016, 01:35)ozanakkaya yazdı: Merhaba,

Sorunuzdan anladığım kadarıyla çözüm bulmaya çalıştım. Tablo1 isimli tabloya maske adında alan ekledim. Bu alandaki veri giriş maskesinde virgülden önceki basamak sayısıdır.

İnceleyip olumlu olumsuz bildirimde bulununuz.

sayın ozanakkaya çok teşekkürler olmuş istediğim gibi sanırım kodda 


Private Sub adi_Change()
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
Dim Oncesi As String
Dim Sonrasi As String
Select Case Me.adi.Column(4)


Case 1
Oncesi = "0"
Case 2
Oncesi = "00"
Case 3
Oncesi = "000"
Case 4
Oncesi = "0000"
End Select

Sonrasi = "#######"

Me.giris.InputMask = Oncesi & "," & Sonrasi
Me.cikis.InputMask = Oncesi & "," & Sonrasi

'Me.giris = Nz(Me.adi.Column(2), 0)
'Me.cikis = Nz(Me.adi.Column(3), 0)

End Sub


bu.Ellerinize sağlık