Skip to main content

AccessTr.neT


Sona Yaklaşırken 3 Soru

Sona Yaklaşırken 3 Soru

Çözüldü #1
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;

  1. Master form açıldığında tüm kombolar inaktif ve ekle-sil-güncelle-yeni üye ekle istatistikler gibi butonlarda görünmez olmalı.
  2. Login butonuna tıklanınca şifre istemeli.Şifreleri "officers" tablosunda "PASSWD" özelliğinde tutayım dedim.
  3. 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)
Cevapla
Çözüldü #2
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.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
Çözüldü #3
sağ tarafta çalışan ekleme butonuna özel tıklandığında önce şifre soracak şekilde düzenleme yapılabilir mi?
Cevapla
Çözüldü #4
ş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)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
Çözüldü #5
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
Son Düzenleme: 01/01/2012, 03:39, Düzenleyen: emre42.
Cevapla
Çözüldü #6
hala cevap bulamadım günceldir. saygılar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task