Più che un aiuto, un bell'effetto per una selezione record.

[ignazio.pilone]

Buongiorno a tutti,
come da oggetto non vorrei il classico aiuto che sempre domando e sempre gentilmente ricevo dai sempre "disponibili" ma una "dritta" sulla base della vs. impareggiabile esperienza.

Ho una maschera continua che attinge da una query i miei dati.
Selezionando alcuni di questi record (circa 20/30 in base a [progr]) avrei bisogno di modificarne due campi, uno data e uno testo come preventivamente impostato in combo nell'intestazione di pagina.

Praticamente, dalla maschera continua, selezionando una ventina di record avrei bisogno di modificare il campo data ponendolo uguale a quello indicato dalla combodata in intestazione e un altro campo testo.

Dovrei riuscire a fare più o meno tutto, mi piacerebbe però poter selezionare i record direttamente dalla maschera su click, magari modificandone il colore una volta selezionati, e avviando un msg box: "stai per modificare i progr n° xxxxx sei sicuro ?"

Qualcuno ha già fatto qualcosa di simile e mi può supportare ?

grazie infinite.

[Pablitomf]

Post by ignazio.pilone
Buongiorno a tutti,
come da oggetto non vorrei il classico aiuto che sempre domando e sempre

gentilmente ricevo dai sempre "disponibili" ma una "dritta" sulla base
della vs. impareggiabile esperienza.

Post by ignazio.pilone
Ho una maschera continua che attinge da una query i miei dati.
Selezionando alcuni di questi record (circa 20/30 in base a [progr])

avrei bisogno di modificarne due campi, uno data e uno testo come
preventivamente impostato in combo nell'intestazione di pagina.

Post by ignazio.pilone
Praticamente, dalla maschera continua, selezionando una ventina di

record avrei bisogno di modificare il campo data ponendolo uguale a quello
indicato dalla combodata in intestazione e un altro campo testo.

Post by ignazio.pilone
Dovrei riuscire a fare più o meno tutto, mi piacerebbe però poter

selezionare i record direttamente dalla maschera su click, magari
modificandone il colore una volta selezionati, e avviando un msg box:
"stai per modificare i progr n° xxxxx sei sicuro ?"

Post by ignazio.pilone
Qualcuno ha già fatto qualcosa di simile e mi può supportare ?
grazie infinite.

Per selezionare, aggiungi un campo check-box per ogni record (es. MioCheck)

Per colorare i selezionati, poni a "trasparente" lo sfondo di tutti i
campi del form, poi aggiungi un campo (messo rispetto a tutti gli altri in
"SECONDO PIANO"), formattalo con Testo "TERMINAL" e in origine controllo
dello stesso, ci metti :
=IIf([MioCheck]=true;"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";"")

Per "dire" al sistema quali sono i campi su cui stai apportando delle
modifiche, crea una query (Es. TuaQuery) di aggiornamento che prenda solo
i campi con MioCheck a true, per aggiornarli a ciò che hai nella Tua combo
e nel Tuo campo testo del Form

Per avere una richiesta di conferma, sul pulsante che ti avvia
l'aggiornamento, su click ci metti:

If MsgBox("SICURO?", vbYesNo, "INFO") = vbYes Then
docmd.OpenQuery "TuaQuery"
End If

[ignazio.pilone]

Britos deve recuperare per arrivare in forma al prossimo infortunio - 24/10/12

Pablito, questa mi fa sbellicare ogni volta, bellissima...

Quando scrivevo di impareggiabile esperienza non pensavo a una tale soluzione semplice,(ora che l'ho capita) e immediata.
Ho solo un problemino. Non ho il font TERMINAL e non posso installarlo per problenmi di sicurezza (sic !)
Posso in alternativa, dare un colore di fondo da codice alla casella ? Ora ci provo...
Domanda di tecnica, scusa se approfitto. Posso utilizzare sia una casella di testo che un etichetta ? Con l'eichetta risparmio risorse ?


grazie infinite

[Pablitomf]

Post by ignazio.pilone

Britos deve recuperare per arrivare in forma al prossimo infortunio - 24/10/12

Pablito, questa mi fa sbellicare ogni volta, bellissima...

e' che conosco i miei polli... ;)

Post by ignazio.pilone
Quando scrivevo di impareggiabile esperienza non pensavo a una tale

soluzione semplice,(ora che l'ho capita) e immediata.

Post by ignazio.pilone
Ho solo un problemino. Non ho il font TERMINAL e non posso installarlo per

problenmi di sicurezza (sic !)

Eh... no problem... vedi sotto

Post by ignazio.pilone
Posso in alternativa, dare un colore di fondo da codice alla casella ? Ora ci provo...

certo... con la Formattazione condizionale...

Post by ignazio.pilone
Domanda di tecnica, scusa se approfitto. Posso utilizzare sia una casella

di testo che un etichetta ? Con l'eichetta risparmio risorse ?

no.. con l'etichetta non puoi usare gli iif...

Post by ignazio.pilone
grazie infinite

di nulla

[BFS]

Post by Pablitomf
Per colorare i selezionati, poni a "trasparente" lo sfondo di tutti i
campi del form, poi aggiungi un campo (messo rispetto a tutti gli altri in
"SECONDO PIANO"), formattalo con Testo "TERMINAL" e in origine controllo
=IIf([MioCheck]=true;"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ";"")

non so che versione di access hai...
ma fai prima ad impostare la formattazione condizionale dei vari
controlli. (tasto destro sul controllo--->formattazione condizionale)

ciao
BFS

[ignazio.pilone]

eccezzionale e ....grandioso.
grazie
Ciao
M

[Pablitomf]

Post by BFS
non so che versione di access hai...
ma fai prima ad impostare la formattazione condizionale dei vari
controlli. (tasto destro sul controllo--->formattazione condizionale)

neanche io lo so che versione ha lui... per questo gli ho postato una
soluzione che va bene a prescindere dalla versione... ;)

[ignazio.pilone]

Pablito e BFS una ulteriore chicca....spero di non abusare troppo.
posso nel codice:

If MsgBox("SICURO?", vbYesNo, "INFO") = vbYes Then
docmd.OpenQuery "TuaQuery"
End If

indicare i progr delle query ?
Cioè porre una domanda del tipo --"Sei sicuro di voler modificare "progr1","progr5","progr7","progrx",---
dove i progr sono quelli indicati nella "miaquery".

grazie infinite a entrambi.

[Pablitomf]

Post by ignazio.pilone
Pablito e BFS una ulteriore chicca....spero di non abusare troppo.
If MsgBox("SICURO?", vbYesNo, "INFO") = vbYes Then
docmd.OpenQuery "TuaQuery"
End If
indicare i progr delle query ?
Cioè porre una domanda del tipo --"Sei sicuro di voler modificare

"progr1","progr5","progr7","progrx",---

Post by ignazio.pilone
dove i progr sono quelli indicati nella "miaquery".
grazie infinite a entrambi.

certo che puoi... basta che prima di porre la domanda, ti cicli da codice la
"TuaQuery" e ti porti in una variabile "TuaVariabile" i valori (tutti in fila
come li hai descritti) che ti servono...

If MsgBox("Sei sicuro di voler modificare " & TuaVariabilt & "?", vbYesNo,
"INFO") = vbYes Then

[Pablitomf]

Post by ignazio.pilone

Post by ignazio.pilone
Pablito e BFS una ulteriore chicca....spero di non abusare troppo.
If MsgBox("SICURO?", vbYesNo, "INFO") = vbYes Then
docmd.OpenQuery "TuaQuery"
End If
indicare i progr delle query ?
Cioè porre una domanda del tipo --"Sei sicuro di voler modificare

"progr1","progr5","progr7","progrx",---

Post by ignazio.pilone
dove i progr sono quelli indicati nella "miaquery".
grazie infinite a entrambi.

certo che puoi... basta che prima di porre la domanda, ti cicli da codice la
"TuaQuery" e ti porti in una variabile "TuaVariabile" i valori (tutti in fila
come li hai descritti) che ti servono...
If MsgBox("Sei sicuro di voler modificare " & TuaVariabilt & "?", vbYesNo,
"INFO") = vbYes Then

unico problema potrebbe essere è il numero di caratteri permesso dal MsgBox e la
leggibilità dello stesso...

[ignazio.pilone]

.....e ti porti in una variabile "TuaVariabile" i valori (tutti in fila
come li hai descritti) che ti servono...

i progr sono quelli che trovo nella query "checcati" ma come farli digerire a VBA
cioè come importare nella variabile solo i progr(..e non gli altri campi ) della query ?

ciao, scusami ..non rompo più, ci SIAMO riusciti....

grazie infinite

[Pablitomf]

......e ti porti in una variabile "TuaVariabile" i valori (tutti in fila
come li hai descritti) che ti servono...
i progr sono quelli che trovo nella query "checcati" ma come farli digerire a VBA
cioè come importare nella variabile solo i progr(..e non gli altri campi ) della query ?
ciao, scusami ..non rompo più, ci SIAMO riusciti....
grazie infinite

Dim TuaVariabile As String
TuaVariabile=""

Dim db As Database
Dim rs As DAO.Recordset

Set db = Currentdb
Set rs = db.OpenRecordset("TuaQuery")

With rs
While rs.EOF = false
If TuaVariabile="" Then
TuaVariabile = !progr
Else
TuaVariabile = TuaVariabile & vbcrlf & !progr
End If
.MoveNext
Wend
End With

rs.close
Set rs = Nothing
Set db = Nothing

[ignazio.pilone]

Post by Pablitomf
Per selezionare, aggiungi un campo check-box per ogni record (es. MioCheck)

Pablito, scusami ancora se rompo.
sono in difficoltà perchè dopo l'aggiornamente dei record avrei bisogno di cancellare il true dai checkbox in tabella, (volevo farlo tramite pulsante).
Ho provato a cercare un pò su Google per capire l'istruzione per azzerare i campi, ma con il solo risultato di confondermi ancor di più.
Se ad esempio su 15.000 record ne avessi solo 5 cui azzerare il checkbox, mi conviene sempre azzerare tutto il contenuto del campo in tabella o solo dove impostato a true ?
Scusami, ti saluto e...giro la ruota, compro una vocale....

grazie ciao

[ignazio.pilone]

Pablito,
leggi un pò qui e vedi se devi modificare la firma....

http://www.corrieredellosport.it/serie_a/napoli/2013/11/09-340410/Serie+A,+Napoli%3A+lista+dei+convocati.+Torna+il+difensore+Britos

[Pablitomf]

Post by ignazio.pilone
Pablito,
leggi un pò qui e vedi se devi modificare la firma....

http://www.corrieredellosport.it/serie_a/napoli/2013/11/09-340410/Serie+A,+Napoli%3A+lista+dei+convocati.+Torna+il+difensore+Britos

la firma, per lui e' sempre valida... non mi hai detto se il popolamento della
Variabile ti e' servita...

[ignazio.pilone]

Post by Pablitomf
la firma, per lui e' sempre valida... non mi hai detto se il popolamento della
Variabile ti e' servita...

Non ci son riuscito e ho lasciato una versione più semplice, senza la dichiarazione dei Progr che verranno modificati.

Il codice si bloccava sulla alimentazione della variabile con i numeri Progr
(cioè quelli da indicare nella variabile) che intercetto dalla query "QRY_Checcati" che ha questa forma

Check Progr stato Status
Sì 11 Da Effettuare Blocco
Sì 16 Da Effettuare Blocco
Sì 22 Da Effettuare Chius