+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Butona Enter ve Klavye Kısayolları Ekleme (/konu-butona-enter-ve-klavye-kisayollari-ekleme.html)
Cvp: Butona Enter ve Klavye Kısayolları Ekleme - ozguryasin - 03/12/2010
birde ben birşey danışayım yapmış olduğum bir formda enter tuşunu iptal etmek istiyorum. geçişle sadece tab tuşu ile olacak. bu konuda yardımcı olurmusunuz
Cvp: Butona Enter ve Klavye Kısayolları Ekleme - ozanakkaya - 04/12/2010
ofis 2003'te "Araçlar / Seçenekler" içerisinde sekmelerin birinde
olduğunu hatırlıyorum.Ofis2010'da ise "Dosya / Seçenekler / İstemci Ayarları"nda
![[Resim: 169n6tj.jpg]](http://i51.tinypic.com/169n6tj.jpg)
Cvp: Butona Enter ve Klavye Kısayolları Ekleme - ozguryasin - 04/12/2010
sayın sledgeab teşekkür ederim yardımınız için. 2010 da yaptım.
Cvp: Butona Enter ve Klavye Kısayolları Ekleme - benremix - 09/12/2010
Access Örnekleri bölümündeki soru içerikli mesaj ve konunun devamı Access soruları bölümüne taşınmıştır.
Cvp: Butona Enter ve Klavye Kısayolları Ekleme - orhantanriverdi - 13/12/2010
Arkadaşlar mrb.
Birkaçgündür uğraşıyorum ama bir türlü yapamadım. Sizlerin yardımına ve desteğine ihtiyaç duydum.
Sizden ricam ekteki dosya açıldığında ekrana gelen butonlara girişlerde şifre sorularak girilmesi. Yani açıldında görüceksiniz. "Hakediş" bu butona tıklandığında şifreyi bilen kişinin girmesi.
Yardımlarınızı bekliyorum arkadaşlar.
Saygılar
Cvp: Butona Enter ve Klavye Kısayolları Ekleme - C*e*l*o*y*c*e - 13/12/2010
syn Orhantanrıverdi
aşagıdaki kodları HAKEDİŞ butonu için yaptım,kodu buton tıkladıgı olayına yazın....geri dönüş yapın lütfen
'.........................
Dim Celoyce As String
Celoyce = InputBox("Burayı Açmak için Lütfen Şifre Girin.", "Şifre Ekranı")
If Celoyce = "123" Then
' MsgBox "Şifre Tamam ", vbOKOnly, "İkaz"
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Hakediş"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox ("Hatalı Şifre")
End If
'..............................