Newsgroup: it.comp.appl.access
Titolo: una combo in un intestazione di maschera

Nella intestazione di una maschera ho una combo che sceglie da tabella il record che voglio visualizzare e mi valorizza alcune caselle di testo relative al quel record.
Uno di questi campi "Status" è di default da tabella pari a "da controllare".
Vorrei sempre nella stessa maschera tramite una combo poter effettuare tre scelte (da controllare/Controllato/Regolare) e che le modifiche stesse vadano a sovrascrivere il campo status della tabella di origine.
 
grazie di cuore a chi mi potrà aiutare.


Dov'è il problema di associare la combo al campo Status?
 
La maschera non è associata alla tabella?
In questo caso mostra il codice che riempie la maschera.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 


ciao Karl,
ti confermo che la maschera è associata ad un altra tabella ed io lavoro nell'intestazione.
La combo ha questo codice dopo aggiornamento:
 
Private Sub Sceltaimmo_AfterUpdate()
 
'valorizza dati maschera da combinata
Me.Plesso = Me.Sceltaimmo.Column(1)
Me.Plesso.Visible = True
Me.Etichetta56.Visible = True
Me.IndirizzoImmobile = Me.Sceltaimmo.Column(2)
Me.IndirizzoImmobile.Visible = True
Me.Etichetta49.Visible = True
Me.Codimmo = Me.Sceltaimmo.Column(3)
Me.Testo99 = Me.Sceltaimmo.Column(3)
Me.Etichetta18.Visible = True
Me.Codimmo.Visible = True
Me.lorda = Me.Sceltaimmo.Column(4)
Me.lorda.Visible = True
Me.Etichetta51.Visible = True
Me.EtichettaAz.Visible = True
Me.NettA = Me.Sceltaimmo.Column(5)
Me.NettA.Visible = True
Me.Etichetta45.Visible = True
Me.IGEA = Me.Sceltaimmo.Column(6)
Me.IGEA.Visible = True
Me.EtichettaIGEA.Visible = True
Me.EtichettaFu.Visible = True
Me.Scoperte = Me.Sceltaimmo.Column(7)
Me.Scoperte.Visible = True
Me.EtichettaScoperte.Visible = True
Me.Verdi = Me.Sceltaimmo.Column(8)
Me.Verdi.Visible = True
Me.EtichettaVerdi.Visible = True
Me.Esterne = Me.Sceltaimmo.Column(9)
Me.Esterne.Visible = True
Me.EtichettaEsterne.Visible = True
Me.BiEmme = Me.Sceltaimmo.Column(10)
Me.BiEmme.Visible = True
Me.EtichettaBiEmme.Visible = True
Me.TipologiaEdificio = Me.Sceltaimmo.Column(11)
Me.TipologiaEdificio.Visible = True
Me.EtichettaTipologia.Visible = True
Me.Status = Me.Sceltaimmo.Column(12)
Me.Status.Visible = True
Me.EtichettaStatus.Visible = True
 
Quindi quando individuo dalla combinata il record da controllare, questo codice me ne valorizza i valori.
Qaundo poi, gli stessi sono allineati con i dati a cui la maschera è collegata, avrei bisogno di modificare tramite una combo il valore della cella Status.
Se non sono stato chiaro o se hai bisogno di ulteriori notizie sono a tua completa disposizione.
grazie infinite, ciao.
 


ho inserito un codice univoco a ciascun record quindi mi servirebbe "solo"  (sigh !!!) riuscire a dare un istruzione tale da modificare nella tabella "pippo" il campo "status" del record n° "Code" .
 
grazie a chiunque avrà ancora la voglia e la pazienza di aiutarmi...

Chiedo aiuto a tutti i frequentatori del forum.
Lunedì rientro al lavoro, non ho fatto vacanze ma son dovuto stare a casa, e dovrei riuscire a proseguire questo lavoro.
Mi sembra che l'ultimo post, sempre che sia possibile fare quello che voglio fare, esplichi bene la mia difficoltà.
Qualche esperto di buon cuore mi può aiutare ?
Grazie infinite.


ciao
devo dire che non molto chiaro il tutto
 
se hai il codice Code univoco 
e devi modificare lo Status
 
 
metti il codice nell'evento 
 
Dim sSqlAggiorna As String
Dim db As dao.Database
sSqlAggiorna = "UPDATE Pippo SET Pippo.Status = " & Chr(34) & "ValoreTesto" & Chr(34) & "WHERE (((Pippo.Code)=1))"
 
db.Execute sSqlAggiorna ' esegue la query di aggiornamento
Me.Refresh   ' aggiorna la maschera

ciao pfmarro,
grazie per l'attenzione e per il tuo suggerimento che per mia ottusità non riesco ancora a far funzionare.
 
Nella mia maschera "frm_Strutture" posso selezionare un record il cui identificativo mi compare nella casella di testo "ID".
Nella stessa maschera ho una combo "ComboStatus" con tre stati possibili:
da Verificare
Verificato
Regolare
Dopo aggiornamento la combo (sulla maschera) si aggiorna regolarmente ma non riesce ad aggiornare il campo "Status" della tabella "tbl_Facility_Edifici" del record "ID" 
Ho cosi modificato il tuo codice, sicuramente sbagliando ma non comprendo dove...
riesci a darmi ancora un ultimo aiuto ?
 
' aggiorna campo tabella
Dim sSqlAggiorna As String
Dim db As dao.Database
sSqlAggiorna = "UPDATE tbl_Facility_Edifici SET tbl_Facility_Edifici.Status = " & Chr(34) & Me.ComboStatus & Chr(34) & "WHERE (((tbl_Facility_Edifici.ID)= me.ID))"
 ' esegue la query di aggiornamento
db.Execute sSqlAggiorna
' aggiorna la maschera
Me.Refresh
 
grazie infinite ciao.


MI PARE CHE TU ASSOCI alla combo box il campo Status 
creandoti nella combo i 3 valori possibili
 
prova a vedere 
https://hotfile.com/dl/244806679/8dab505/PFM.mdb.html
 


riguardando la stringa SQL
 
' aggiorna campo tabella
Dim sSqlAggiorna As String
Dim db As dao.Database
sSqlAggiorna = "UPDATE tbl_Facility_Edifici SET tbl_Facility_Edifici.Status = " & Chr(34) & Me.ComboStatus & Chr(34) & "WHERE (((tbl_Facility_Edifici.ID)= " & me.ID & "))"
 
me.id
 devi leggere il valore quindi fuori dalle virgolette

ciao,
purtroppo ancora nulla e io non riesco a scrivere un istruzione cosi complessa nonostante ripetuti tentativi senza alcun successo.
 
Se dopo l'aggiornamento della combo, con un pulsante lancio la query "qry_AggiornaStatus" con questo codice:
 
UPDATE tbl_Facility_Edifici SET tbl_Facility_Edifici.Status = [forms]![frm_Strutture]![ComboStatus]
WHERE (((tbl_Facility_Edifici.ID)=[forms]![frm_Strutture]![Codex]));
 
aggiorna regolarmente la tabella, ma certo non è bello...
Ovviamente se sostituisco questa stringa nel tuo suggerimento non funziona lo stesso.
grazie infinite per l'interesse.