Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] AllowAdditions, Deletions, Edits

[VBA] AllowAdditions, Deletions, Edits
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#1
31-03-2017, 12:19
Sayın Hocalarım, formumdaki denetimlerde AllowAdditions, Deletion ve Edits izinlerini şarta bağlı kullanmak istiyorum. Örneğin Öğrenci Velisinin GSM numarası değiştirilebilsin ancak silinemesin. Yada Adı Soyadı girildikten sonra değiştirilemesin silinemesin. Bazı denetimlere hiç giriş yapılamasın. Bunları vba dilinde nasıl yazabilirim? Kalıp nedir? İlgileneceklere şimdiden teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#2
31-03-2017, 18:13
Zannedersem kişilere göre yetki vermek istiyorsunuz, o zaman şu şekilde bir yol izleyebilirsiniz. Örneğin formu kullanan 3 kullanıcınız var. Bunlar
Öğrenci
Öğrenci Velisi
Müdür
diyelim.
3 tane de izin yetkisi var Bunlarda;
AllowAdditions (Ekleme)
AllowDeletion (Silme)
AllowEdits (Düzenleme)

bu bahsettikleriniz form bazında izinler, siz denetimlerden bahsetmişsiniz. Bu durumda;
Eğer form bazında izin verecekseniz;
Visual Basic
  1. if Kullanıcı=Öğrenci then
  2. Me.Form.AllowEdits=False ' Kısıtladık
  3. Me.For.AllowDeletion=False ' Kısıtladık
  4. Me.form.AllowAdditions =False ' Kısıtladık
  5. Elseif Kullanıcı=ÖğrenciVelisi then
  6. Me.Form.AllowEdits=True ' İzin Verdik
  7. Me.For.AllowDeletion=False ' Kısıtladık
  8. Me.form.AllowAdditions =False ' Kısıtladık
  9. Elseif Kullanıcı=Müdür then
  10. Me.Form.AllowEdits=True  ' İzin Verdik
  11. Me.For.AllowDeletion=True  ' İzin Verdik
  12. Me.form.AllowAdditions =True  ' İzin Verdik
  13. Else
  14. Msgbox "Siz Kimsiniz, Tanımıyoruz!",vbOK,"Yetkisiz Kişi"
  15. DoCmd.Close 
  16. Endif



Denetim bazında yetki vermek isterseniz, ben burada 3 tane metin kutusu olduğunu varsayarak yazacağım,

Visual Basic
  1. if Kullanıcı=Öğrenci then
  2. Me.Metin1.Enabled=False ' Kısıtladık
  3. Me.Metin2.Enabled=True ' İzin Verdik
  4. Me.Metin3.Enabled=False ' Kısıtladık
  5. Elseif Kullanıcı=ÖğrenciVelisi then
  6. Me.Metin1.Enabled=True' İzin Verdik
  7. Me.Metin2.Enabled=False'  Kısıtladık
  8. Me.Metin3.Enabled=False ' Kısıtladık
  9. Elseif Kullanıcı=Müdür then
  10. Me.Metin1.Enabled=True ' İzin Verdik
  11. Me.Metin2.Enabled=True '  İzin Verdik
  12. Me.Metin3.Enabled=True ' İzin Verdik
  13. Else
  14. MsgBox "Yetkisiz Kullanıcı"
  15. Me.Metin1.Enabled=False ' Kısıtladık
  16. Me.Metin2.Enabled=False '  Kısıtladık
  17. Me.Metin3.Enabled=False ' Kısıtladık
  18. DoCmd.Close 
  19. Endif











  Bul
  Alıntı
Bu mesajı beğenenler:
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#3
02-04-2017, 20:53
Onur Hocam, çok çok teşekkür ederim. İhtiyacım olan iki bilgiyi de vermişsiniz çok sağolun. İnternette o kadar aradım ancak bulamadım. Bu nedenle verdiğiniz ve bu forumda verilen bilgiler benim için çok değerli. Bunları kullanıp arşivliyorum. Tekrar teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi