Newsgroup: it.comp.appl.access
Titolo: database utenti

allora ci riprovo..mi metto a farlo da solo..scusate per aver perso prima la 
pazienza(anche se confermo che c'è molta prevenzione da parte di qualche 
utente)
sto creando questo database
ho creato una tabella "anagrafica"
con "nome cognome" indirizzo e documento poi ho creato una tabella "accessi"
con campi "ora" "nome Cognome" "pc usato"
ora vorrei  lavorare sulla maschera creata su accessi
e cioè il campo ora prende l'ora con la funzione now, il pc usato lo 
insersico
..il nome cognome..
per ora ho fatto che questa cvasella sia una casella combinata e che quindi 
legge i dati dalla corrispomndente casella della tabella anagrafica..e nel 
caso non sia preente, clicco su un tasto che mi aprela maschera per 
inserimento nuovi dati
Il probelma al momento èche scegliendo un utwente dal menu a tendina questo 
non viene inserito nella tabella accessi che riporta i vari record con pore 
diverse,pc diversi..ma non registra il nomecognome selezionato dal menu a 
tendina
come fare?
grazie 

 grazie
ok quesyo l'ho risolto..vorrei invece sapere come fare per organizzare al 
meglio questo casella combinata..che sia piu user friendly
nel sensoora se scrivo un cognome lui me lo autocompleta..vorrei pero che 
cliccando sulla freccette in basso della tastiera pc..lui mi scorra 
eventiulamente verso l' utente successivo..e questo a meno che io non apra 
la tendina non me lo fa 

origine controllo della casella col nome e cognome si chiama come il
campo in tabella?


ora si
e l'origine riga è dalla tabella "anagrafica" campo " nome cognome" 

 grazie
A Ste' pia fiato e cerca di fare mente locale altrimenti diventa una rincorsa a trovare una soluzione.
La casella di riepilogo ha la possibilità di accettare valori non presenti nell'elenco; devi gestire l'evento "non in elenco" e li 
inserire i dati;
es.
'---
Private Sub nomeCasellaCombinata_NotInList(NewData As String, Response As Integer)
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK Then
' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
    Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("nomeTabella")
    rst.AddNew
    rst!nomeCampo = NewData
    rst.Update
    rst.Close
    Set rst = Nothing
Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano le modifiche.
    Response = acDataErrContinue
    Me!nomeCasellaCombinata.Undo
End If
End Sub
'---
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:yrYTe.36604$4g5.2...@news4.tin.it...

ok
sono arrivato a buon punto
ho inserito 2 inputbox per inserire indirizzo e documento
Private Sub CasellaCombinata10_NotInList(NewData As String, Response As 
Integer)
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK 
Then
' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
    Response = acDataErrAdded
      A$ = InputBox("inserisci indirizzo")
      B$ = InputBox("inserisci documento")
' Aggiunge la stringa nell'argomento NewData a origine riga.
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("anagrafica")
    rst.AddNew
    rst!Cognome = NewData
 rst!Indirizzo = A$
  rst!Documento = B$
    rst.Update
    rst.Close
    Set rst = Nothing
Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano 
le modifiche.
    Response = acDataErrContinue
    Me!CasellaCombinata10.Undo
End If
End Sub
ora vorrei sapere
1) dove e che comando  inserisco per far si che una volta finita la routine 
la maschera si predisponga per un nuovo input e cioè azzeri le caselle 
appena riempite e  riposizioni il cursore sulla prima casella in ordine di 
tabulazione?
2) è possibile colorare diversamente il msgbox e l'inputbox?
3)vorrei che una volta dentro la casella combinata e comimncio a scrivere 
iun cognome e lui magari me ne proprone subito uno con l autocompletamento, 
io possa scorrere ai nomi sotto magari usando la freccia in basso della 
tastiera
dopo di che penso proprio di aver finito
grazie 

 grazie
La soluzione migliore? Mah! Sicuramente una sola form con tutti i dati mancanti al nuovo nominativo, e la potresti far apparire 
sempre gestendo l'evento "non in elenco" quando viene confermata la volontà di inserire il nuovo dato;
es.
...
If ..."Nuovo nominativo, vuoi inserirlo?"... = vbYes Then
    ...
    Docmd.OpenForm "datiMancanti"
    ...
else
    ...
endif
Ciao.
-- 
Sergio MAZZA