Newsgroup: it.comp.appl.access
Titolo: inserimento automatico ID dipendente nel database

Salve a tutti,
ho creato un database dove i miei dipendenti possono inserire alcuni dati.
Ho creato una maschera d'accesso dove devono selezionare il loro nome. Con un pulsante ho associato una macro ImpostaVarTemp che memorizza l'utente che ha effettuato l'accesso.
Come faccio adesso a fare in modo che in un campo di una tabella venga inserito automaticamente questo valore?
grazie per il vostro aiuto

ho creato anche il campo password con la macro ImpostaVarTemp, come faccio a verificare che la password sia quella giusta? (ho una colonna password nell elenco dei dipendenti


 
dipende dalla risposta alla prima domanda e da cosa usi per popolare le 
tabelle... codice? query di accodamento?
 
spiega meglio
BFS

con il generatore di macro ho e la funzione SetTempVar vengono salvate la user e la password. Non riesco a fare in modo che queste vengono verificate nella tabella dove sono inseriti tutti gli user e le password


 
supponiamo che la settempvar salvi user su una variabile di nome "varUtente"
e la password su "varPassword"
 
supponiamo che la tabella che contiene le user e le psw si chiami 
"ElencoUtenti" con colonne "user" e "Password"
 
per verificare se l'user esiste:
 
if nz(dcount("user","elencoutenti","user='" & varUtente & "'"))>0 then
    'user va bene...verifico la psw
 
	if dlookup("password","elencoutenti","user='" & varUtente & 
"'")=varPassword then
	msgbox "login ok"
else
	msgbox "password errata"
end if
 
else
    msgbox "non esiste"
 
end if
 
 
ciao
BFS
 

grazie mille per l'aiuto. Purtroppo sono una schiappa in VBA, e ho definito la VarUtente e VarPassword con i strumenti macro, e quindi non riesco a unire le due cose (che non avrebbe nemmeno senso).
Se voglio creare una funzione che verifca la password come quella descritta da te, definendo all'interno della stessa le Var, e facendo in modo che apre una maschera, come verrebbe?
grazie mille dell'aiuto


un po' di vba dovresti iniziare a studiarlo altrimenti la vedo dura 
implementare qualcosa di decente in access.
 
 
cmq io farei una maschera con due caselle di testo e un bottone
 
una casella chiamata txtUser dove nell'evento "dopo aggiornamento" vado 
a salvarmi il valore in una variabile
 
dim varutente as string
varutente=me.txtuser
 
 
idem per la casella dove l'utente scrive la psw chiamiamola txtpsw
 
dim varpassword as string
varpassword=me.txtpsw
 
nel evento "su click" del tuo pulsante...inserisci il codice che ti ho 
postato nell'altra risposta
 
poi sarebbe più fico che la casella utente fosse una casella combinata 
che apre un menu a tendina con la lista utenti per non dover scriverli 
ogni volta.
 
ulteriore passo mettere in piedi un meccanismo di ban se si sbaglia per 
troppe volte la psw...etc etc
 
 
ciao
BFS
 
 
 
 
 
 


dimenticavo..le due variabili devono essere globali al modulo altrimenti 
ne perdi il valore all'uscita della routine
 
oppure senza usare le variabili nel codice che metti nel pulsante 
sostituisci varuser e varpassword con me.txtuser e me.txtpsw
 
ciao
 
 
 
 
 
 


grazie mille ancora!!!!
Il menu a tendina e' la prima cosa che sono riuscito a fare (anche la piu facile), me.txtuser il me sta per la form (cioe il nome della maschera?)


 
esatto
 
BFS
 
 

 
USERs è la tabella con tutti gli user
user è la colonna del nome dell'user
Password è la colonna della password 
cbouser è il campo della maschera dove si sceglie lo user (menu a tendian)
cbopsw è il campo della maschera dove si inserisce la psw
 
Private Sub cmdLogin_Click()
 
Dim varutente As String
varutente = Me.cbouser
 
Dim varpassword As String
varpassword = Me.cbopsw
 
If Nz(DCount("user", "USERs", "user='" & varutente & "'")) > 0 Then
    'user va bene...verifico la psw
 
        If DLookup("Password", "USERs", "user='" & varutente & "'") = varpassword Then
        MsgBox "login ok"
Else
        MsgBox "password errata"
End If
 
Else
    MsgBox "non esiste"
 
End If
End Sub
 
L'utente me lo riconosce, ma la password mai, quindi ho qualche problema con la funzione DLookup ma non riesco a risolverlo.


 
 
ciao
BFS
 

 BFS
 
grazie mille ancora, pero adesso al primo tentativo funziona, dopo il secondo mi dice sempre che l'utente non esiste, e poi mi sovrascrive il primo user nella tabella.
https://drive.google.com/file/d/0BwgmhMj3124JMHBWbTJkb1J3bTA/edit?usp=sharing