AccessTr.neT

[attachment=25774]Arkadaşlar merhaba.Araştırdım form içinde ama bir türlü bulmadım. Sorum sanırım isteğe bağlı giriş maskesi ile alakalı...

Açılan kutu ile seçtiğim ve metin kutusuna gelen veri kimi zaman 1.09875 kimi zaman 99.89 kimi 183.45 olması gerekmekte.
Sabit olan EKteki örnekte ad kısmımlarıdır. Yani Murat giriş 1.09875  1.09800 de çıkış 75 fark var.Murat her seferinde buna benzer sayılarla giriş çıkış yapacak.
Ayşe 98.90 da giriş 97.90 de çıkış 100 fark var.Ayşede böyle giriş çıkış yapacak.
Biliyorum biraz karışık oldu. İsimler sabit olcak.Ayrıca bunların sayıları giriş çıkıları arasındaki fark da yazılması gerekiyor.
Örnek ektedir.Şimdiden teşekkürler.

sayın maras321,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
- tablo yapısında uygun görülen düzeltmeler yapılmıştır.

- eski tablo olduğu gibi harici olarak bırakılmıştır.

- eksi değerler söz konusu olduğunda Koşullu Biçimlendirme ile KIRMIZI renk ile belirlenmesi sağlanmıştır.

bilginize...iyi çalışmalar,saygılar.

sayın atoz112 emeğinize sağlık toplama çıkarmada sıkıntı yok .
Ama ALİ sabit kalmak koşuluykla değişik dönemelerde giriş yapılacak ve aliye her seferinde giriş yaparken 20.485 (**.***) şeklinde sayı ile giriş yapılaçak 
ama ayşeye giriş yapılırken 3.1752 (*.*****) şeklinde giriş yapılacak.

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.

(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