[access] azione on focus

[Bugu]

Ho una form con 2 caselle di testo: CASELLA1 e CASELLA2

Nella form ho anche un pulsante che su click imposta il valore di CASELLA1 a zero.

Come posso dire al pulsante che se il cursore è su CASELLA2, mi deve impostare CASELLA2 a zero invece di CASELLA1?

In pratica deve compiere l'azione di impostare il valore a seconda di dove si trova il focus del mouse in quel momento.

Si può fare?

[nicola75ss]

Cerca su google le proprietà activecontrol e previouscontrol.

[Bugu]

Originariamente inviato da nicola75ss
Cerca su google le proprietà activecontrol e previouscontrol.

Grazie!

[Bugu]

Purtroppo non riesco a reperire info utili.
Qualcuno sa farmi un esempio di comando da potermi poi adattare?
Mi serve solo che il mio pulsante imposti un valore nella casella di testo nel quale mi sono posizionato prima di premere il pulsante stesso...

[Bugu]

Come tornare al previouscontrol l'ho capito:

screen.previouscontrol.setFocus

il mio problema è aggiungere la riga che dice di impostare il valore ad 1

Che comando devo aggiungere?

[nicola75ss]

http://myfreefilehosting.com/f/ef4d8a73d0_0.16MB

[Bugu]

Grazie Nicola, sei davvero gentilissimo.
Praticamente mi hai aiutato a realizzare il 90% del mio programma.
Non so come ringraziarti.
Grazie

[nicola75ss]

L'ho fatto con piacere.
So quanto possa essere frustrante lavorare con access.
A suo tempo anch'io sono stato molto aiutato per un mio progetto da Mistexxx e da fabio309 che ringrazio ancora pubblicamente. Siam qui per aiutarci reciprocamente.

[Bugu]

Grazie.

Sto usando il codice che mi hai mandato.

If screen.previouscontrol.name= "sconto1" Then
sconto1.value = 1

Funziona
Avrei solo bisogno di fare una piccola modifica, e cioè di impostare il valore di SCONTO1 a:
SCONTO1 & 1.
Cioè deve aggiungere il valore 1 a quello già inserito nella casella SCONTO1.
Se ad esempio SCONTO1 ha come valore 10, quando premo il pulsante il valore deve diventare 101. Oppure se il valore è AAA, deve diventare AAA1
Sto provando un pò di soluzioni ma non riesco.
P.S. specifico che la casella in questione è in una SubForm.
Sai come fare?

[nicola75ss]

Premetto che non ho provato

sconto1.value = sconto1.value & "1"