Sona Yaklaşırken 3 Soru
Tarih
31/12/2011 23:14
Konu Sahibi
emre42
Yorumlar
7
Okunma
1518
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



emre42
Üye
Kullanici Avatari
Üye
18
5
09/12/2011
0
İzmir
Ofis 2007
05/01/2012,04:07
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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


ozguryasin
Uzman
Kullanici Avatari
Uzman
Ö.... Y....
788
23/09/2009
560
Bursa
Ofis 2010 32 Bit
Bugün,23:42
Çözüldü 
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 http://www.accesstr.net Ailesi Yeter. alkis
Cevapla


emre42
Üye
Kullanici Avatari
Üye
18
5
09/12/2011
0
İzmir
Ofis 2007
05/01/2012,04:07
Çözüldü 
sağ tarafta çalışan ekleme butonuna özel tıklandığında önce şifre soracak şekilde düzenleme yapılabilir mi?
Cevapla


ozguryasin
Uzman
Kullanici Avatari
Uzman
Ö.... Y....
788
23/09/2009
560
Bursa
Ofis 2010 32 Bit
Bugün,23:42
Çözüldü 
ş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 http://www.accesstr.net Ailesi Yeter. alkis
Cevapla


emre42
Üye
Kullanici Avatari
Üye
18
5
09/12/2011
0
İzmir
Ofis 2007
05/01/2012,04:07
Çözüldü 
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?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
' 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

Cevapla


emre42
Üye
Kullanici Avatari
Üye
18
5
09/12/2011
0
İzmir
Ofis 2007
05/01/2012,04:07
Çözüldü 
hala cevap bulamadım günceldir. saygılar.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Exclamation Access'te .mdb açma problemi hakkında soru ? systemmania 5 509 24/05/2016, 17:57 atoz112
Çözüldü İşlemi sona ermiş kaydı Arşivlemek. fascioğlu 3 471 20/09/2015, 14:55 fascioğlu
Çözüldü İşlemi sona ermiş formu saklamak fascioğlu 7 771 02/09/2015, 12:41 fascioğlu
Çözüldü Docmd komutunda soru sordurmamak pega54 2 930 03/06/2014, 21:13 Kur@l
Çözüldü Test Çalışması - Soru 1: Tablodan Tabloya Veri Aktarımı (Boş satırları aktarmayalım) SCavusoglu 8 2.057 01/06/2014, 16:57 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya