Sona Yaklaşırken 3 Soru - Baskı Önizleme

Sona Yaklaşırken 3 Soru - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sona Yaklaşırken 3 Soru (/konu-sona-yaklasirken-3-soru.html)

Sayfalar: 1 2

Sona Yaklaşırken 3 Soru - emre42 - 31/12/2011

Sayenizde veritabanını bitirmek üzereyim... Son bir kaç rütuş kaldı tekrar danışmak istiyorum sizlere...

1. Master Form'da en sağda ki butonların yanına bir tane daha koyup, Geç kalan üyeleri bir raporda görmek istedim. Mesela bir üye kitap film ve dergi(mjp) ödünç almış olabilir. Bu üye diyelim dergiyi zamanında getirdi ama film ve kitap geç kaldı. Raporda bu üyenin adı adresi ve elinde ki geç kalmış ürünleri görmem mümkün mü?

Ayrıca bu üyelere direk rapor üzerinden tıklayarak topluca mail atmam mümkün müdür?

2. En çok kiralanan kitap-video-dergi(mjp) gösteren sorguyu nasıl oluşturabilirim?

3. Master form'da en sol altta bir login butonu var. bunun aktif olmasını istiyorum. Çalışma fesefesi ise şu şekilde;

Master form açıldığında tüm kombolar inaktif ve ekle-sil-güncelle-yeni üye ekle istatistikler gibi butonlarda görünmez olmalı.
Login butonuna tıklanınca şifre istemeli.Şifreleri "officers" tablosunda "PASSWD" özelliğinde tutayım dedim.
Müdür ve çalışan var. Müdür şifresini girdiğide çalışandan farklı olarak en sağda ki menüde yeni çalışan ekle sekmesini açabilecek. bu sekme çalışanlara kapalı olmalı.

Elimde şöyle bir kod var. Ancak nasıl yukarıdaki isteklerime göre modifiye edeceğim bilemedim.

Private Sub Login_button_Click()

Forms![Vendor]![Insert_button].Visible = True

Forms![Vendor]![Delete_button].Visible = True

Forms![Vendor]![Save_button].Visible = True

Forms![Vendor]![ Insert Record].Visible = True

Forms![Vendor]![ Delete Record].Visible = True

Forms![Vendor]![ Save Record].Visible = True

Forms![Vendor]![VENDOR_ID].Locked = False

Forms![Vendor]![V_NAME].Locked = False

Forms![Vendor]![V_STREET].Locked = False

Forms![Vendor]![V_CITY].Locked = False

Forms![Vendor]![V_STATE].Locked = False

Forms![Vendor]![V_ZIP].Locked = False

Forms![Vendor]![V_PHONE].Locked = False

Forms![Vendor]![V_FAX].Locked = False

Forms![Vendor]![V_CONTACT].Locked = False

Gerçekten zorlu bir kaç son görev kaldı. Yardımlarınız için ne kadar teşekkür etsem az.

Ek Dosyalar

sondurum.zip(1.02 MB)

Cvp: Sona Yaklaşırken 3 Soru - ozguryasin - 31/12/2011

elindeki kodlar sadece ilk 7 si gizli olan bir nesneyi gösterip.
8 (dahil) sonrası ise kilitli özelli (False) komutundan dolayı kilitli olan bir nesneyi açar. (metin kutusunda değiştirmeme özelliğini değiştirebilir yapma gibi vb.)

Diğer aradığın özellik ise (Admin, Yönetici) sitede istemediğin kadar çeşit çeşit bulabilirsin. Tüm Değerli Hocalarımızın bu konu ile ilgili örnekleri var.

Cvp: Sona Yaklaşırken 3 Soru - emre42 - 01/01/2012

sağ tarafta çalışan ekleme butonuna özel tıklandığında önce şifre soracak şekilde düzenleme yapılabilir mi?

Cvp: Sona Yaklaşırken 3 Soru - ozguryasin - 01/01/2012

şifre onayından sonra sil bunun içeriğindeki kodları, bir form açarken, düzenleme yaparken, silerken, kapatırken vb. gibi durumlara uyarlayabilirsin.

Ek Dosyalar

Sifreli_Kayit_Sil.rar(10.63 KB)

Cvp: Sona Yaklaşırken 3 Soru - emre42 - 01/01/2012

sorgu konusunda da sıkıntı yaşamaktayım hala. 1 örnek yapabilirseniz devamını getirmek adına çok yardımcı olur. saygılar.

Düzeltme:
Allowed = MyFld bu satırda hata gözüküyor. Neden olabilir?

' Declare Variables

Dim Flag

Flag = 0

Dim Request As String * 15

Dim Allowed As String * 15



' Request Password

Request = InputBox("Enter your password.")



' Create Database Object and Recordset Object

Dim MyDb As Database, MyRec As Recordset, MyFld As Field

Set MyDb = DBEngine.Workspaces(0).Databases(0)

Set MyRec = MyDb.OpenRecordset("Officers", dbOpenDynaset)

Set MyFld = MyRec.Fields("PASSWD")



' Compare Request with Allowed

MyRec.MoveFirst

Do While Not MyRec.EOF

     Allowed = MyFld

     If Request = Allowed Then

     Flag = 1

     Else

     End If

     MyRec.MoveNext

Loop



If Flag = 1 Then



' Make labels and command buttons visible

     Forms![MasterForm]![newmemberformbut].Visible = True

     Forms![MasterForm]![Komut30].Visible = True

     Forms![MasterForm]![Komut31].Visible = True

     



     

' No Match

Else

Dim Response As String

Response = MsgBox("You have Read Only permission", 48, "PERMISSION DENIED")



End If



' Close Recordset and Database

MyRec.Close

MyDb.Close







End Sub

Cvp: Sona Yaklaşırken 3 Soru - emre42 - 02/01/2012

hala cevap bulamadım günceldir. saygılar.