Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/05/2009 15:19
Konu Sahibi
okileturc
Yorumlar
8
Okunma
2501
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

okileturc

Aktif Üye
Aktif Üye
OK.... VA....
 60
 966
 113
 18/03/2009
464
 İzmir
 
 Ofis 2003
 23/05/2016,13:38
Çözüldü 
Arkadaşlar,
Bir kayıt formunda üç adet denetim var ve hepsinde varsayılan bir değer
var. Varsayılan değerlerin yeterli olduğu durumda ( yeni bir değer girmeden )
"Enter" ile kayıt etmesini istiyorum ( buton veya check box kullanılmayacak , sadece enter dan sonra kaydı kaydetip alt satıra geçmesini istiyorum
Yardımlarınız için tşk


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,08:38
Çözüldü 
Sadece 1. denetim'de Tab Stop olsun, diğerlerini no yapın.
Böylece enter'a bastığında, diğer denetimlere uğramadan direkt kaydetmesi lazım.

1.Denetim'in after update'ine bir kontrol koyup,
bu alandaki değer değiştirilmişse, 2.denetime setfocus yapın.

Aynı şekilde 2.Denetim'in after update'ine bir kontrol koyup,
bu alandaki değer değiştirilmişse, 3.denetime setfocus yapın.

Örnek olmadığı için deneyemedim ama sürekli form olduğunu varsayarak,
mantıken böyle yapılabiliyor olması lazım.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

okileturc

Aktif Üye
Aktif Üye
OK.... VA....
 60
 966
 113
 18/03/2009
464
 İzmir
 
 Ofis 2003
 23/05/2016,13:38
Çözüldü 
Tam da problemim bu yeni veri girmediğim zaman ( tüm alanlarda
varsayılan değerler var ) default verileri yeterli gördüğümde enter la
cursor satırda geziyor ne kayıt ediyor ne de alt satıra geçiyor

resim

ben "enter" eylemine kayıt et ve yeni kayda git diyebilrimiyim

Tşk

Hocam haklısınız örnek ekledim
3 alanın da varsayılan değeri "ok"
ben yeni bir değer girmezsem enter satırda geziyor
oysa ben ilk enter dan sonra kayıt etsin istiyorum


Ek Dosyalar
.rar   vt1.rar(Dosya Boyutu: 8,19 KB / İndirme Sayısı: 8)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,08:38
Çözüldü 
Dediğim şekilde denediniz mi?
Olmadıysa, sizin de bildiğiniz gibi, sadece o formu ve ilgili tabloyu yeni bir mdb'ye aktarın ve gönderin.
Öyle bir bakalım.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

okileturc

Aktif Üye
Aktif Üye
OK.... VA....
 60
 966
 113
 18/03/2009
464
 İzmir
 
 Ofis 2003
 23/05/2016,13:38
Çözüldü 
gönderdim hocam, üzgünüm

İlave not : elbette satıra bir buton koyup kaydı kaydet
diyebiliriz ancak bunu kasadaki kişi kullanıyor ve klavyeden mouse a
geçtiği için vakit kaybediyor

resimdeki gibi
Nakit default
Banka "0 Boş" default
ve Tutar fişlerden okunup geldiği
için o da bir anlamda default

şimdi kasiyer hiç bir yeni veri girmeden
enter la kaydedip geçmeli

Bu da pratik açıklaması Img-grin


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Bugün,08:38
Çözüldü 
Denetimlerdeki Default value olayını kaldırıp, koda koydum.
Alan2 ve Alan3'ün tab stop'unu kaldırdım.

Aslında alanın değişip değişmediğini .oldvalue ile yapmıştım ama
if de false oluyor nedense, "Ok" ile kontrol ettim mecburen.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ALAN1_AfterUpdate()
    If Me.ALAN1.Value <> "Ok" Then
        Me.ALAN2.SetFocus
    End If
End Sub

Private Sub ALAN2_AfterUpdate()
    If Me.ALAN2.Value <> "Ok" Then
        Me.ALAN3.SetFocus
    End If
End Sub

Private Sub Form_Current()
    If Me.NewRecord Then
        Me.ALAN1 = "Ok"
        Me.ALAN2 = "Ok"
        Me.ALAN3 = "Ok"
    End If
End Sub


Ek Dosyalar
.rar   vt1_Seruz.rar(Dosya Boyutu: 10,44 KB / İndirme Sayısı: 20)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Birleşik Değer Kutusuna Göre Vcard access acemisi 33 530 21/09/2018, 12:20
Son Yorum: access acemisi
Çözüldü Otomatik Kaydetme Ve Pasif Yapma Sorunu hey 5 238 15/09/2018, 09:06
Son Yorum: hey
Çözüldü Sorgu Ve Metin Kutusundan Tabloya veri kaydı raburabu 2 184 23/07/2018, 12:18
Son Yorum: raburabu
Çözüldü Form İçinde Tekrar Kaydı Engellemek ALTANs 15 547 10/07/2018, 21:11
Son Yorum: mehmetdemiral
Çözüldü Mükerrer Tarih Kaydı Hk. serkan1985 6 261 05/06/2018, 12:58
Son Yorum: serkan1985

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.