Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
26/05/2017 19:24
Konu Sahibi
serkan1985
Yorumlar
4
Okunma
832
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
serkan1985

serkan1985

Aktif Üye
79323
Se.... Çe....
 33
 74
 255
 21/01/2016
0
 Bursa
 
 Ofis 2010 32 Bit
 21/05/2019,13:55
Arkadaşlar merhaba kod ile veri silerken şifre sorması için ne eklemem lazım? Yardımcı olursanız sevinirim.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Komut27_Click()
On Error GoTo Err_Komut27_Click
Dim c As Integer
c = MsgBox("Seçilen satış silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "Bilgi")
If c = vbOK Then
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 Me.Liste22.Requery
ElseIf c = vbCancel Then
Me.Undo
End If

Exit_Komut27_Click:
   Exit Sub

Err_Komut27_Click:
   MsgBox Err.Description
   Resume Exit_Komut27_Click
   
End Sub



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.064
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:56
Verileri silmek icin sifre sorsun

Silmeden önce şifre isteme hk

Form üzerindeki butonla verileri silme


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

serkan1985

serkan1985

Aktif Üye
79323
Se.... Çe....
 33
 74
 255
 21/01/2016
0
 Bursa
 
 Ofis 2010 32 Bit
 21/05/2019,13:55
Ozan bey çok teşekkürler bu şifreyi "*" şeklinde nası gösterebilirim? Başka birinin görmemesi için?



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.064
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:56
Modül:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Option Compare Database

Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function GetModuleHandle Lib "kernel32" Alias _
"GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
(ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _
(ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long

Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0

Private hHook As Long

Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
    Dim RetVal
    Dim strClassName As String, lngBuffer As Long

    If lngCode < HC_ACTION Then
        NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
        Exit Function
    End If

    strClassName = String$(256, " ")
    lngBuffer = 255
    
    If lngCode = HCBT_ACTIVATE Then
        RetVal = GetClassName(wParam, strClassName, lngBuffer)
        
        If Left$(strClassName, RetVal) = "#32770" Then
           
            SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
        End If
    End If

   
    CallNextHookEx hHook, lngCode, wParam, lParam

End Function

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional Context) As String
    Dim lngModHwnd As Long, lngThreadID As Long
    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)
    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
    UnhookWindowsHookEx hHook
End Function



Form:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Komut0_Click()

Dim cevap, sifre As String
sifre = "12345"

cevap = InputBoxDK("Şifrenizi Yazınız.")
If cevap = sifre Then

MsgBox ("şifre doğru")
Else
MsgBox ("şifre yanlış")
End If


End Sub


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

serkan1985

serkan1985

Aktif Üye
79323
Se.... Çe....
 33
 74
 255
 21/01/2016
0
 Bursa
 
 Ofis 2010 32 Bit
 21/05/2019,13:55
Çok teşekkürler ozan bey +rep +rep +rep




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kullanıcı Adı Ve Şifre sercann 11 605 15/02/2019, 18:16
Son Yorum: sercann
Çözüldü Şifre Giriş Formunda Hata Oğuz Türkyılmaz 6 374 24/12/2018, 12:43
Son Yorum: Oğuz Türkyılmaz
Çözüldü Form Açılışa Şifre Ekleme Bilgisayar Kullanıcı Adı Ve Şifresi İle Açılsın cozum 5 320 19/12/2018, 16:02
Son Yorum: cozum
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 413 18/11/2018, 22:24
Son Yorum: A_day
Çözüldü Kullanıcı Şifre Değiştirme oosmaner 3 401 15/11/2018, 13:17
Son Yorum: oosmaner

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.