Aggiornare una Casella Si/No

Question

Gentilissimi,

ho la necessità di aggiornare il campo si/no di una tabella al clic di un pulsante che sta situato in una maschera.

Cioè mi spiego meglio, ho una maschera continua con una lista di dati, al clic del pulsante invia, vorrei tramite VBA poter aggiornare un campo si no, e mettere magari -1.

Ho pertanto bisogno del codice che può permettermi di eseguire questa operazione

Riepilogo

nome tabella ELENCO

nome campo chiave primaria tabella ID_ELENCO

nome campo da aggiornare CHECK

al clic del pulsante su questa maschera, vorrei poter selezionare il record della Tabella ELENCO che come ID_ELENCO ha lo stesso ID_ELENCO della maschera, e aggiornare il campo CHECK della Tabella ELENCO mettendo magari -1

spero possiate aiutarmi...

Answer 1

ciao Giuseppe,

ho scelto per il calcolo delle probabilità lo scenario più complicato, in realtà avrei dovuto optare per l'altro...oppure….essere maggiormente chiaro tu nell'esposizione.

al click del command button invoca :

Private Sub cmdChkBoc_Click()

DBEngine(0)(0).Execute Query:="update tuaTabella set tuoCampoSiNo=-1 where tuaPK=" & Me.tuaPK, _

                       Options:=&H80

End Sub

dove tuaTabella impostarai il nome dell'altra tabella, quello corretto del tuo scenario,

tuoCampoSiNo, il nome del campo si no che devi aggiornare,

tuaPk e Me.TuaPk sono il nome della chiave primaria proprie della tabella su cui poggia la maschera che deve coincidere per varType con quello dell'altra tabella.

Se di tipo testo imposta gli apici :

"update tuaTabella set tuoCampoSiNo=-1 where tuaPK='" & Me.tuaPK & "';"

Ciao, Sandro.

ps. Sento puzza di bruciato detto anche errore potenziale di normalizzazione.....

Answer 2

Ciao Giuseppe,

nell'evento su click del pulsante puoi utilizzare la seguente:

docmd.setwarning false

docmd.runsql ("Update Elenco Set CHECK = True Where Id_Elenco = " & Me.Id_Elenco)

docmd.setwarning true

salvo errori ortografici (non l'ho testata).

Ciao Mimmo

Answer 3

ciao Giuseppe,

supponendo una form cosi' concepita :

ottiene la seleziona e deselezione della chekBox come segue :

Option Compare Database

option explicit

Private bool As Boolean

Private Sub cmdSwitch_Click()

With Me

    bool = .check

    .check = Not bool

    .Dirty = False

End With

End Sub

ovviamente nel caso in cui ti intessi solo la selezione, la cosa si semplifica, ma sono certo che riuscirai ad implementare questa piccola modifica da solo.

Ciao, Sandro.

Answer 4

GRAZIE A TUTTI!!

Grazie Sandro

Grazie Mimmo

Ho risolto con questo codice:

"update tuaTabella set tuoCampoSiNo=-1 where tuaPK='" & Me.tuaPK & "';"

Saluti!!

Answer 5

No perfavore cosi' non mi e' d'aiuto

Il pulsante sta all'interno della lista

Pertanto ci sono tanti pulsanti quanti sono i righi dell'elenco 

Al clic di quel pulsante deve aggiornarmi il campo che si trova su di una tabella che nella realtà non ha molto a che fare con l'elenco della maschera 

Pero' esiste un codice nell'elenco dei dati della maschera che e' uguale al codice della tabella che contiene il campo si no da aggiornare  

Pertanto avrei anche bisogno del codice 

Che mi richiama il record giusto nella tabella utilizzando il codice della maschera

Perfavore datemi una mano