AIUTO...SETFOCUS SUI RECORD DI MASCHERE CONTINUE

[laura]

Aiutatemi per favore ...sto diventando pazza :-()
Un cliente vorrebbe visualizzare in una maschera continua e sull'evento "su
mouse spostato" il contenuto di un altro controllo (molto ridotto per
problemi di spazio) che descrive le caratteristiche del prodotto. La cosa
andrebbe in effetti bene perche' la descrizione è lunga e porterebbe troppo
spazio.E fin qui NESSUN PROBLEMA!!
Con questa routine, associata a "On Mouse Move" riesco ad ottenere quello
che lui vuole:
Dim strDescrizione As String
strDescrizione = [Forms]![Prodotti]![Descrizione]
Me.Prodotto.ControlTypeText = strDescrizione
Quando vado sul controllo prodotto mi appaiono le 20/30 righe che mi
descrivono il prodotto.

Il problema è che non riesco a spostare il Focus, sempre con l'evento Mouse
Move, sul record dove mi voglio posizionare!!!!
In effetti per la maschera continua il controllo ha sempre lo stesso
nome:quindi devo spostarlo dicendogli che lo voglio spostare
SUL RECORD dove sono posizionata col mouse.
Mi sembra di aver visto sull'help che potrei farlo con una ricerca sul
recordset, ma non sono ancora pratica.
Chi mi da una mano con un piccolo esempio???
Grazie millissime ed un bacione a tutti
Laura

[Frenck]

Secondo il mio modesto parere 20/30 righe sono parecchie e quindi sia il
controltiptext,sia l'evento mouse_move
non sono adatti al caso e poi si riferiscono al record corrente .
il mouse_move si verifica ogni qualvolta muovi il mouse anche rimanendo
nella text.

Io creerei un altra maschera DesProdotto con una bella text txtdescrizione
al centro che aprirai al DblClick del campo
Descrizione sulla maschera continua.

Private Sub Descrizione_DblClick(Cancel As Integer)
'Apre la maschera DesProdotto e gli passa la desrizione del
articolo(corrente)
DoCmd.OpenForm "DesProdotto", acNormal, , , acFormReadOnly, acDialog,
Me.Descrizione
End Sub

Crea la maschera DesProdotto e nell'evento load mettici

Private Sub Form_Load()
'Io toglierei i selettori record e i pulsanti di spostamento
'Nell' Keydown della text su keycode= VbkeyReturn (invio)gli darei il
docmd.close

Me.txtdescrizione.Locked = True
Me.txtdescrizione = Me.OpenArgs
End Sub

laura <venus...@libero.it> wrote in message
HVW37.5506$m06.2...@news.infostrada.it...