Newsgroup: it.comp.appl.access
Titolo: problema con controllo attivo.

Ho il seguente problema:
in un form ho alcune sottomaschere.
su evento invio di tali maschere ho inserito il seguente codice:
Private Sub tblApp5_Enter()
attiva Right(
Me.ActiveControl.Name
, 1)
End Sub
Sub attiva(intSub As Integer)
Dim x As Integer
Me.Controls("tblApp" & intSub).Form.Corpo.BackColor = vbYellow
Me.Controls("tblApp" & intSub).Form.txtApp.Enabled = True
Me.Controls("tblApp" & intSub).Form.txtApp.SetFocus
Me.Refresh
For x = 0 To 5
  With Me.Controls("tblApp" & CStr(x))
    If x <> intSub Then
        Me.Controls("tblApp" & x).Form.Corpo.BackColor = RGB(236, 233, 216)
        Me.Controls("tblApp" & x).Form.txtApp.Enabled = False
    End If
  End With
Next
ma mi viene restituito errore sulla riga
        Me.Controls("tblApp" & x).Form.txtApp.Enabled = False
l'errore è il seguente:
Errore di run-time 2164
Impossibile disattivare il controllo che ha correntemente lo stato attivo.
Ma se prima lo sposto su un altro controllo
    Me.Controls("tblApp" & intSub).Form.txtApp.SetFocus
perchè mi da' questo errore?
dove sbaglio?
grazie
Riccardo 

X =0÷5 ma intSub che valore ha...?
Se il valore di intSub rientra in X è normale.
@Alex

 ha scritto nel messaggio 
news:du9771$kre$1...@news.panservice.it...

Oggi sono fuso come un melone e ho un'emicrania paurosa ... forse farei 
meglio a rispondere perchè sinceramente ... non ci ho capito molto ... (ho 
le idee confuse) ... ma non devi citare anche il nome della sottomaschera 
nel codice?
In caso di castroneria, oltre a concedermela per lo stato fisico odierno, 
scusami anticipatamente ;)
Ciao
-- 
**********
EmMeCi
**********
Blog: 
http://www.setfocus.it
 

 ha scritto nel messaggio 
news:1141384273....@t39g2000cwt.googlegroups.com...
X =0÷5 ma intSub che valore ha...?
Se il valore di intSub rientra in X è normale.
@Alex
__________________________________
intSub è compreso tra 0 e 5 quindi come dici tu è normale.
si può aggirare l'ostacolo in qualche modo?
ciao
Riccardo 

X =0÷5 ma intSub che valore ha...?
Se il valore di intSub rientra in X è normale.
@Alex
__________________________________
intSub è compreso tra 0 e 5 quindi come dici tu è normale.
si può aggirare l'ostacolo in qualche modo?
praticamente sto modificando il tuo prg demo degli appuntamenti.
ho sostituito le 6 listbox con 6 form ma avrei naturalmente la necessità
di deselezionare il form uscente quando ne seleziono un'altra
(in modo da disattivare il record per togliere il colore dell'evidenza nel 
form,
così come hai fatto tu nelle listbox)
puoi darmi un suggerimento?
grazie e ciao
Riccardo

puoi darmi un suggerimento?
Se gestisci in modo corretto gli spostamenti del Focus viene
bene, poi ti consiglio, la dove non servono di usare delle Label
al posto delle textBox per i campi di sola visualizzazione.
Per i campi di Editing invece va bene la Text, ma a cosa
serve rendere Enabled o meno la TextBox contenuta in una
SubForm quando se agisci sulla proprietà Loked della stessa
ottieni lo stesso risultato...??
grazie e ciao
Riccardo
P.S. alla fine me lo farai vedere il risultato..?
Ciao
@Alex

[cut]
P.S. alla fine me lo farai vedere il risultato..?
Ciao
@Alex
ma certamente....
se vuoi te lo faccio vedere anche prima in quanto ho provato a fare come 
dici
ma sinceramente penso di sbagliare in qualcosa in quanto continua a darmi 
l'errore.
ciao
Riccardo 

 ha scritto nel messaggio 
news:du9h1n$r2d$1...@news.panservice.it...

...
mi correggo.
l'errore non lo da più, ma non mi seleziona più il record con l'ora.
ciao
Riccardo 

Devi sbloccare la SubForm attiva altrimenti credo sia normale...!
Tieni presente che con SelTop e SelHeight hai modo di gestire anche
la selezione di piu intervalli orari consecutivi.
Se vuoi mandarmelo fai pure.
Ciao
Alessandro


______
ma la tua email quale e'?
ciao
Riccardo 

 wrote in message
news:duhqkk$2d3$
1...@news.panservice.it

Quella che viene esposta quì publicamente.
ik2zok CHIOCCIOLA 
libero.it
Ciao
@Alex 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG