Newsgroup: it.comp.appl.access
Titolo: Maschere Continue - Current Record in evidenza

Giorno nuovo, problema ... rimane!
In una maschera continua vorrei che il current record (nessun campo attivo 
ma solo l'indicazione dello stato current...) assumesse una caratteristica 
che visivamente lo distingua dagli altri ... che ne so ... colore del testo 
di un controllo, o altro ... però ... non ottengo risultati.
Suggerimenti a riguardo?
Grazie e buona giornata a tutti.
-- 
**********
EmMeCi - Strano...Mavero
**********
Blog Personale: 
http://www.setfocus.it
 
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

 Grazie e buona giornata a tutti.
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=98

[cut]
grazie, ma non funziona.
Form: frm_Ricerca
su corrente: =Evidenzia("[Azienda]";[Azienda];Maschere!frm_Ricerca)
Modulo
Public Function Evidenzia(ByVal NomeChiave As String, ByVal ValChiave As 
Variant, ByRef Frm As Form)
Dim lngRed As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngWhite = RGB(255, 255, 255)
  On Error GoTo GestErr
  'If <Opzioneglobale>=true Then
        With Frm
             'Blocca agg. schermo se modalità Foglio Dati
             If .DefaultView = 2 Then Application.Echo False
             'Crea a Runtime criterio format. condiz. controlli Combo e 
TextBox
             Dim Ctr As Control
             For Each Ctr In .Section(0).Controls
                   If Ctr.ControlType = acTextBox Or Ctr.ControlType = 
acComboBox Then
                          '
                          'N.B: per semplicità s'ipotizza che nel Design 
della Form NON siano
                          'stati assegnati altri criteri condizionali sui 
controlli.
                          '
                          If Ctr.FormatConditions.Count = 0 Then
                               Ctr.FormatConditions.Add acExpression, , 
NomeChiave & "=" & ValChiave
                          Else
                               Ctr.FormatConditions(0).Modify acExpression, 
, NomeChiave & "=" & ValChiave
                          End If
                          Ctr.FormatConditions(0).BackColor = lngRed
                          Ctr.FormatConditions(0).ForeColor = lngWhite
                   End If
             Next Ctr
             Set Ctr = Nothing
             If .DefaultView = 2 Then Application.Echo True
        End With
  'End If
   Exit Function
GestErr:
  If Err <> 2424 And Err <> 2465 And Err <> 7966 Then
       MsgBox Err.Number & " " & Err.Description
  End If
End Function
quando scrivo nel modulo ricerca e premo invio ho questo codice:
Private Sub Ricerca_KeyPress(KeyAscii As Integer)
   Dim rst As DAO.Recordset
   Dim str As String
   If KeyAscii = 13 Then
      If Not IsNull(Me!ricerca.Text) Then
         Set rst = Me.RecordsetClone
         rst.FindNext "Azienda like """ & ChiaveRicerca & Me!ricerca.Text & 
"*"""
         If rst.NoMatch Then rst.FindFirst "Azienda like """ & ChiaveRicerca 
& Me!ricerca.Text & "*"""
         Me.Bookmark = rst.Bookmark
         rst.Close
         Set rst = Nothing
      End If
      Me!ricerca.SetFocus
      Me!ricerca.SelStart = 255
      KeyAscii = 0
   End If
End Sub
...
Non succede niente ... il record corrente non si colora ... sto uscendo 
matto ... altre idee per evitare che giunga all'autoflagellamento in piazza? 
:O)


 :O)
Cosa volere più d'un esempio pratico?    ;-)
Devi provare con più attenzione...
Ciao, Simone

[cut]
grazie, ma non funziona.
Il problema è che funziona.....!
Quindi dove stà il problema...?
@Alex


Lo sò Simone! Hai perfettamente ragione.
Forse è l'attenzione che oggi mi manca, pazienza ...
grazie lo stesso.


[cut]
Il problema è che funziona.....!
Quindi dove stà il problema...?
sta che non riesco ad applicarlo alla mia form ... se guardi il mio post 
delle 15.47 ho dettagliato i passaggi ...
Lo sò che funziona, al di fuori del mio db ... scusa se mi sono espresso 
male!
Idee?


[cut]
....
devo andare in ferie ... era txtricerca ... vado subito a flagellarmi in 
piazza ...


[cut]
....
devo andare in ferie ... era txtricerca ... vado subito a flagellarmi in
piazza ...


 :O)
Cerco di tradurre la tua Email dal Sanscrito  :-)
La routine che ti hanno proposto funziona ma non se esci da un altra routine
di ricerca.
Ne consegue che probabilmente la tua routine non scatena l'evento current
alla fine, prova a risolvere questo problema, requery, refresh ecc. ecc.
Ciao

 alla fine, prova a risolvere questo problema, requery, refresh ecc. ecc.
La *routine* che gli è stata proposta funziona e basta...
Semplicemente ha dimenticato qualcosa mentre la implementava.
Ciao, Simone