Newsgroup: it.comp.appl.access
Titolo: password su pulsante

ho su una maschera il seguente codice:
If Not Me.NewRecord Then
    If InputBox("Password", "Password", "", 0, 0) = "fraschefresche" Then
        If MsgBox("Salvare le modifiche?", vbYesNo, "Salvare?") = vbNo Then
        Me.Undo 'annulla tutte le modifiche nel record
        Cancel = True 'evita successivi eventi
        End If
        Me!data_modifica = Fix(Now())
        Me!utente_modifica = NomeUT()
        Me!postazione_modifica = NomePC()
    Else
    MsgBox " Non sei Autorizzato a fare modifiche ai dati esistenti, il
tentativo verrà segnalato al Responsabile!"
    Me.Undo 'annulla tutte le modifiche nel record
    Cancel = True 'evita successivi eventi
    End If
e fin qui va tutto bene, quello che chiedo è se c'è un modo di impostare
che quando si digita la pw non si visualizzano i caratteri ma dei semplici
pallini.
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


dai un'occhiata qui
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=276

 ha scritto nel messaggio 
news:ba6e443d-7044-48d4...@m20g2000prc.googlegroups.com...

Se poi ti sembra troppo complicato, simula tu una inputbox con una finestra 
modale e casella di testo con inserimento password
Antonio 

 Antonio
Se serve Alex ha messo anche un demo 
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=33

 Antonio
chi mi conosce mi evita!  :-PP  e mi sà che tu, mi stai conoscendo
abbastanza!  :-))
cosa significa :
finestra modale;
questa volta mi aiuterò con la demo di AB, ma non è detto che non romperò
ancora se non capisco qualcosa eh!
l.
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 questa volta mi aiuterò con la demo di AB, ma non è detto che non romperò
Quale AB?
A 

 A
AB = Alessandro Baraldi
ma lo sai che non riesco ad adattarlo al mio codice? ..... lo sapevi eh!


 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Utilizzando il demo di Alex:
In un modulo:
Option Compare Database
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias _
   "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias _
  "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
   ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SetTimer& Lib "user32" _
  (ByVal Hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _
   lpTimerFunc&)
Private Declare Function KillTimer& Lib "user32" _
  (ByVal Hwnd&, ByVal nIDEvent&)
Private Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
Const EM_SETPASSWORDCHAR = &HCC
Public Const NV_INPUTBOX As Long = &H5000&
Private Sub TimerProc(ByVal Hwnd&, ByVal uMsg&, _
   ByVal idEvent&, ByVal dwTime&)
    Dim EditHwnd As Long
    EditHwnd = FindWindowEx(FindWindow("#32770", "TITOLO"), _
       0, "Edit", "")
    Call SendMessage(EditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)
    KillTimer Hwnd, idEvent
End Sub
Public Function InputBoxEX(Hwnd As Long, _
                           Prompt As String, _
                           Optional Title As String = vbNullString, _
                           Optional default As String = vbNullString,
_
                           Optional xpos, _
                           Optional ypos, _
                           Optional helpfile As String, _
                           Optional context As Long) As String
  SetTimer Hwnd, NV_INPUTBOX, 10, AddressOf TimerProc
  InputBoxEX = InputBox(Prompt, Title, default, xpos, ypos, helpfile,
context)
End Function
nella maschera abbinato al pulsante o altro....
Option Compare Database
Option Explicit
Private Sub Comando0_Click()
Dim ret As String
  ret = InputBoxEX(Me.Hwnd, "Enter Password", "TITOLO")
If Not Me.NewRecord Then
    If ret = "fraschefresche" Then
        If MsgBox("Salvare le modifiche?", vbYesNo, "Salvare?") = vbNo
Then
...
....
ect ect

 ect ect
grazie! 
ho dovuto modificare qualche riga di comando, ma alla fine (non so come!
:-) ) ha funzionato!
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
