Newsgroup: it.comp.appl.access
Titolo: set focus non funziona

xchè non funziona setFocus? l'ho usato prima di usare il metodo SelStart, il
quale richiede lo stato attivo.
vi posto il db 
www.kitebazar.it/db1.zip
 34 kb
Grazie molte spero mi possiate aiutare non ne vengo fuori

 ha scritto nel messaggio
news:aYlZb.261609$VW.10...@news3.tin.it...

He...He....He....!!!!!!
Insieme al DB fai un Bonifico.....!!
Non sarebbe stato più corretto chiedere eventualmente
la disponibilità a valutare sul NG il problema piuttosto...!
@Alex.

 la disponibilità a valutare sul NG il problema piuttosto...!
già fatto qualche post + sotto, purtroppo il problema  sembra impossibile e
senza un riscontro pratico come faccio a dimostrare il contrario?
cmq
errore: impossibile fare riferimento ad una propr.. o metodo se l'oggetto
non è attivo
per passare il controllo all'oggetto ho usato SetFocus, ma non va
il cod è il seguente, si incasina su selstart dove ci sono gli asterischi
grazie
Private Sub RicercaF()
'On Error GoTo Err_RicercaF
Dim strR As String
Dim strNuovaRicerca As String
Dim Campo_Valore As Integer
Dim campo As String
Dim esatto As String
Me!Ricerca.SetFocus
If Not IsNull(Me!Ricerca) Then
    strR = Me!Ricerca.Text
    Me!campo.SetFocus
    Campo_Valore = Me!campo.value
    Select Case Campo_Valore
        Case 1
        campo = "CL_NOME"
        Case 2
        campo = "CL_VIA"
        Case 3
        campo = "CL_CF"
        Case 4
        campo = "CL_NOTE"
        Case Else
        campo = "CL_NOME"
    End Select
    esatto = "*"
    If Me![RICERCA_ESATTA] = -1 Then
    esatto = ""
    End If
    Me.RecordSource = "CLIENTE"
   strNuovaRicerca = "SELECT CLIENTE.*, * FROM CLIENTE  where " & campo & "
Like '" & ChiaveRicerca & strR & esatto & "'"
    Me.RecordSource = strNuovaRicerca
End If 'if Not IsNull(Me!Ricerca.Text)
Me!Ricerca = strR
Me!Ricerca.SetFocus
****************************
Me!Ricerca.SelStart = 255 'Len(me!Ricerca.text)
**************************
Exit_Err_RicercaF:
    Exit Sub
Err_RicercaF:
    MsgBox "ERRORE:"
    Resume Exit_Err_RicercaF
End Sub

 grazie
Che errore ti da che da me funziona......!!!!!
Hai titti i riferimenti corretti...??
Ho scaricato il tuo programma e da me funziona.
@Alex.


Forse ho trovato il motivo dell'errore.....!!!
Si verifica solo quando digiti caratteri che non corrispondono a nessun
criterio nella QRY di conseguenza il Recordset è VUOTO.....!
Dovresti eseguire un controllo preventivo ed accettare la digitazione
solo se possibile...!
A tal discorso vedo che le righe che hai reso inattive:
    'If (Me.RecordsetClone.RecordCount <= 0) Then
    'Me.RecordSource = "AB_ABUSO"
    'End If
Potrebbero essere sostituite da questo:
    If (Me.RecordsetClone.EOF And Me.RecordsetClone.BOF) Then
        Me.RecordSource = "CLIENTE"
        'Me.RecordSource = "AB_ABUSO"   scegli tu cosa preferisci.
        Me.Ricerca.Undo
    End If
Non devi controllare la proprietà recordsetClone in quanto il Recordset è
Null quindi non va bene, come ti ho modificato la cosa funziona......!
VEdi se il tutto fa al caso tuo.
@Alex.

 ha scritto nel messaggio
news:c15epu$lpk$1...@lacerta.tiscalinet.it...

La diagnosi che ho fatto del problema in un altro thread è simile alla tua:
però io ho provato a lasciare la proprietà recordsetClone senza alcun
problema: naturalmente, visto che si usa una versione di Access successiva
ad Access 97, è necessario aggiungere ai riferimenti del database la
libreria Microsoft DAO, posizionando tale riferimento in testa agli altri
riferimenti.
Insomma, è stato sufficiente ripristinare le istruzioni che già esistevano,
cambiare il nome della tabella ed aggiungere il riferimento alla libreria
Microsoft DAO.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
In effetti confermo...., ma mi ero perso il 3D precedente....!
Per quanto mi riguarda tutto perfettamente funzionante anche
eliminando la spunta di commento come hai detto.
Ciao Roberto.
@Alex.

 eliminando la spunta di commento come hai detto.
non ho cmq risolto il problema xchè il valore del parametro passato non è
quello inserito ma quello salvato precedentemente nel controllo,
sostanzialmente la differenza sta nell'usare text o value...
ho risolto passando il focus attivo ad un altro controllo e poi leggendo sul
campo, in + il valore null non è supportato da una variabile string, quindi
il parametro l'ho passato dopo la verifica della presenza di caratteri.
grazie ciauz