Newsgroup: it.comp.appl.access
Titolo: Controllo TreeView

 
In un controllo TreeView  devo aprire una Form  "GIVI" 
 
ElseIf Node.Children = 0 And Node.Key = "GIVIricercaModello" Then
DoCmd.Echo True
DoCmd.OpenForm "GIVI", acNormal, "", "", acNormal  
 
 
solo che  su apertura della Form   mi dice :
 
ERRORE di Run Time '94'
Utilizzo non valido di Null
 
e sul debug  mi apre 
 
Private Sub Form_Current()
Me.Immagine.Picture = Me.PATH
 
End Sub
 
Come posso correggere ?
 
Grazie

 
Secondo me nulla a che vedere con il TreeView.
 
[Me.path] conterrà valore Null... che dici...?
 
Evita che se vale Null vada a valorizzare la proprietà Picture.
 
Hai diversi modi... il più banale potrebbe essere:
Me.ControlloImmagine.Picture=Nz(Me.Path, vbNullstring)
 
Oppure:
If not IsNull(Me!Path) then
   Me.ControlloImmagine.Picture=Me.Path
Else
   Me.ControlloImmagine.Picture=vbNullstring
End if
 
Oppure:
Me.ControlloImmagine.Picture=Me.Path & vbNullString
 
Ecc...
@Alex

 Come posso correggere ?
 
Se usi una versione di Access >=2007 di solito è meglio di lasciar 
perdere il codice con picture e invece impostare la proprietà "Origine 
controllo" del controllo imagine al nome del campo con il percorso, 
cioè: PATH
 
Così nel caso di un percorso mancante non succede un errore ma Access 
solo non mostra qualcosa nel controllo imagine.
 
vedi anche: 
http://www.donkarl.com/it?FAQ2.2
 
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 

 Me.ControlloImmagine.Picture=Me.Path & vbNullString
 
ho provato tutte le ipotesi che mi hai fornito ma non mi funzionano 
 
 
Ma quello che non capisco è perché se apro la Form da Pulsante :
Private Sub Cmd74_Click()
DoCmd.OpenForm "GIVI"
End Sub
 
la form si apre e posso regolarmente cercare il record che mi serve e visualizzare l'immagine corrispondente .
 
se la stessa cosa la faccio dal controllo TreeView 
ElseIf Node.Children = 0 And Node.Key = "GIVIricercaModello" Then
DoCmd.Echo True
DoCmd.OpenForm "GIVI", acNormal, "", "", acNormal  
 
la form si apre regolarmente ma quando vado a cercare il record con immagine corrispondente mi da lo stesso errore 
ERRORE di Run Time '94'
Utilizzo non valido di Null 
e il debug va su Me.Immagine.Picture = Me.PATH 
 
Private Sub CasellaCombinata0_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Modello] = '" & Me![CasellaCombinata0] & "'"
    Me.Immagine.Picture = Me.PATH
    Me.Bookmark = rs.Bookmark
 
Giuseppe

 Giuseppe
 
 
Per quanto mi riguarda fatico a farmi una visione se ricevo informazioni a spizzichi e bocconi(masticati male)...!
 
Mi limito ad osservare una stranezza su cui avresti dovuto riflettere:
 
 Set rs = Me.RecordsetClone  < Usa il RECORDSETCLONE non il RECORDSET
 rs.FindFirst "[Modello] = '" & Me![CasellaCombinata0] & "'"
 ' SERVE GESTIRE il caso NOMATCH...?
 Me.Immagine.Picture = Me.PATH  <----- [Me.Path non è ancora aggiornata]
 Me.Bookmark = rs.Bookmark   <----- [Me.Path ora è aggiornata]
 
Quindi io scriverei così:
 With Me.RecordsetClone
    .FindFirst "[Modello] = '" & Me![CasellaCombinata0] & "'"
    If not .Nomatch Then
       Me.Bookmark = .Bookmark   <----- [Me.Path ora è aggiornata]
       Me.Immagine.Picture = Me.PATH 
    End if
 End With
 
Per il resto fatico a seguire...
@Alex

 
 
Perfetto  Alex 
 
ho scritto la tua Istruzione come sopra e ora si apre anche da TreeView 
 
Bravissimo 
 
Grazie mille 
 
Giuseppe