Newsgroup: it.comp.appl.access
Titolo: combobox con codice

Salve a tutti ho:
1. una la tabella contenente n° 50 passi si chiama: Passi / nella
tabella Passi ci sono due campi: NrPass - tipo numerico e va da 1 a
50; Assegnato - tipo testo
2. una maschera ingressi/uscite, collegata alla tabella LogSheet si
chiama: Customers / nella maschera Customers oltre ai campi degli
orari ingresso e uscita c'è una combobox collegata al campo NrPass
della tabella Passi, dove cliccando sopra il numero del passi (1, 2,
3 ....) me lo assegna ad una determinata persona.
Quando ho assegnato il passi, con il seguente codice, quel passi non
appare più nella combobox:
Private Sub Pass_Click()
On error Resume next
    Dim iNrPasso As Integer
    Dim sSQL As String
    iNrPasso = Me.Pass.ItemData(Me.Pass.ListIndex)
    sSQL = "Update Passi SET Assegnato = 'SI' WHERE NrPass = " &
iNrPasso
    CurrentDb.Execute sSQL
    Me.Pass.Requery
End Sub
Il problema che ho adesso è: come faccio a fare riapparire il passi
quando mi viene restituito?

 ha scritto nel messaggio 
news:42c5afc0-abb6-4a40...@c13g2000vbr.googlegroups.com...
Salve a tutti ho:
1. una la tabella contenente n� 50 passi si chiama: Passi / nella
tabella Passi ci sono due campi: NrPass - tipo numerico e va da 1 a
50; Assegnato - tipo testo
2. una maschera ingressi/uscite, collegata alla tabella LogSheet si
chiama: Customers / nella maschera Customers oltre ai campi degli
orari ingresso e uscita c'� una combobox collegata al campo NrPass
della tabella Passi, dove cliccando sopra il numero del passi (1, 2,
3 ....) me lo assegna ad una determinata persona.
Quando ho assegnato il passi, con il seguente codice, quel passi non
appare pi� nella combobox:
Private Sub Pass_Click()
On error Resume next
    Dim iNrPasso As Integer
    Dim sSQL As String
    iNrPasso = Me.Pass.ItemData(Me.Pass.ListIndex)
    sSQL = "Update Passi SET Assegnato = 'SI' WHERE NrPass = " &
iNrPasso
    CurrentDb.Execute sSQL
    Me.Pass.Requery
End Sub
Il problema che ho adesso �: come faccio a fare riapparire il passi
quando mi viene restituito?
con lo stesso codice modificando Assegnato = NO
ciao
Daniele
ps. non vedo nessuna risposta a questo thread....

 ps. non vedo nessuna risposta a questo thread....
Si ma il problema è che quel nr di passi, non lo vedo più nella combo;
quindi dovrei recuperarlo da un pulsante (es. uscita del visitatore).
Come?
Grazie a tutti!

 ps. non vedo nessuna risposta a questo thread....
Si ma il problema � che quel nr di passi, non lo vedo pi� nella combo;
quindi dovrei recuperarlo da un pulsante (es. uscita del visitatore).
Come?
da qualche parte dovrai registrare l'uscita del visitatore.... ;-)
come detto sopra ...riassegnando il campo Assegnato=NO
ciao
Daniele 

 - Mostra testo citato -
Certo ho una tabella dove viene segnato il passi, l'ingresso e
l'uscita, ma la cbobox sulla maschera è collegata alla tabella Passi
non alla tabella dei Visitatori
Grazie e buona giornata

 Grazie e buona giornata
-- 
Ciao
Geppo

 - Mostra testo citato -
Grazie Geppo, proverò il tuo codice e ti farò sapere

 - Mostra testo citato -
Ho provato il tuo codice ma non funziona, probabilmente serve qualcosa
che gli dica qual'è il nr. di passi da cambiare da SI a NO;
Grazie

 Grazie
-- 
Ciao
Geppo 

Ciao Geppo,
le tabelle sono così:
Tabella Passi e collegata con la tabella Visitatori con i seguenti
campi:
campo Pass (tabella Visitatori) -----> campo NrPass (tabella Passi)

 campo Pass (tabella Visitatori) -----> campo NrPass (tabella Passi)
dunque tu memorizzi il numero del pass anche nella tabella visitatori? Cosi 
non � corretto perch� hai dei dati ridondanti.
Comunque se le cose stanno cosi prova in questo modo tenendo conto che:
Me.pass = dovrebbe essere la texbox che contiene il numero del pass relativo 
al visitatore
    Dim NrPasso As Integer
    Dim sSQL As String
    NrPasso = Me.Pass
    sSQL = "Update Passi SET Assegnato = 'NO' WHERE NrPass = " & NrPasso
    CurrentDb.Execute sSQL
    Me.Pass.Requery
-- 
Ciao
Geppo


Grazie Geppo, sei stato di grande aiuto!
Ciao da Mimì