Newsgroup: it.comp.appl.access
Titolo: Da casella di riepilogo a maschera con doppio click

Buonasera a tutti!
Mi serve un vostro consiglio su come procedere, perche' da sola mi sono proprio
piantata.
Ho scaricato dal Sito Comune il db d'esempio ricerche.mdb per la ricerca dei
record in una tabella in base a dei filtri, ho riadattato tutto al mio db (che
e' un db di catalogazione di cd audio) per ricercare le singole canzoni
all'interno dei cd catalogati. 
Il risultato della ricerca è una casella di riepilogo e adesso vorrei
implementare una funzione in piu' e piu' precisamente vorrei che con il doppio
click su uno dei risultati esposti nella casella di riepilogo, mi si aprisse la
maschera del database principale al record del cd cui appartiene quella canzone.
In pratica la ricerca si basa sulla tabella delle canzoni usando questi
parametri:
CatalogueNr (codice cd)
CANZONE
CANTANTE
Il CatalogueNr è la chiave primaria anche della tabella dei cd.
Io ho usato questo codice:
==============
Private Sub List_DblClick(Cancel As Integer)
 
    Dim stDocName As String
    DoCmd.OpenForm "Album", , "[CatalogueNr] = '" & Me![CatalogueNr] & "'"
    End Sub
==============
Cliccando sul risultato la maschera si apre, ma si apre su un record a caso, non
quello che voglio io.
Purtroppo io di codice ne capisco veramente poco. Potete aiutarmi a capire dove
sbaglio?
Molte grazie
Erika
-- 
Per rispondermi... Togli "nospam"
To send me an email... take out "nospam"

 ha scritto nel messaggio news:tjb8g0lusqkp875p0...@4ax.com...

Dovresti effettuare un ciclo per ogni voce dell'elenco e vedere quale è stata selezionata.
Es.
Private Sub List_DblClick(Cancel As Integer)
If Me!CatalogueNr.ItemsSelected.Count > 0 Then
    Dim a
    For Each a In Me!CatalogueNr.ItemsSelected
        Dim stDocName As String
        DoCmd.OpenForm "Album", , "[CatalogueNr] = " & Me!CatalogueNr.ItemData(a)
    Next
Else
    MsgBox "Nessun elemento selezionato."
End If
End Sub
Poi se [CatalogueNr] è numerico non devi racchiuderlo tra apici o doppi apici...
Ciao.
-- 
Sergio MAZZA

Poi se [CatalogueNr] è numerico non devi racchiuderlo tra apici o doppi apici...
CatalogueNr non è numerico, è un codice tipo cocc-12345
Grazie


 To send me an email... take out "nospam"
Ciao.
-- 
Sergio MAZZA

Quale riga?
If Me!CatalogueNr.ItemsSelected.Count > 0 Then


 If Me!CatalogueNr.ItemsSelected.Count > 0 Then
Strano, io utilizzo acc'97 e funziona...
Ciao.
-- 
Sergio MAZZA

Strano, io utilizzo acc'97 e funziona....
Io sono su access 2003, si blocca proprio li'... visto che la casella di
riepilogo non funziona, forse dovrei trovare qualcosa di diverso...
Continuero' a provare!
Intanto grazie!
Erika


 To send me an email... take out "nospam"
Guarda nell'help in linea se trovi l'Insieme ItemsSelected...
Ciao.
-- 
Sergio MAZZA

>Guarda nell'help in linea se trovi l'Insieme ItemsSelected...
Ahime', purtroppo non ho cavato un ragno dal buco... dopo lunghi studi su vari
libri e google ho deciso che tutto questo supera la mia comprensione del
problema e ho provato ad aggirarlo in questo modo, avanzando passo a passo.
La maschera di ricerca si chiama "Ricerche"
Ho lasciato inalterata la query di ricerca:
CatalogueNr (codice cd)
CANZONE
CANTANTE
Il criterio di ricerca è 
Like "*" & [Forms]![Ricerche]![CatalogueNr] & "*" 
etc etc
La query funziona.
Poi ho creato il pulsante cerca, associato a questo codice:
====================
Private Sub Cerca_Click()
Dim strValue As String, strMsg As String
    If IsNull(Me!CatalogueNr) Then
    MsgBox "Attenzione! La maschera di ricerca è vuota!!"
    End If
    If Not IsNull(Me!CatalogueNr) Then
 
strValue = Me.CatalogueNr.Value
DoCmd.OpenForm "Sottomaschera_Track_ricerca", acFormDS, , _
"[CatalogueNr]=" & "'" & Me![CatalogueNr] & "'"
Exit_Cerca_Click:
    Exit Sub
Err_cerca_Click:
    MsgBox Err.Description
    Resume Exit_Cerca_Click
End If
End Sub
====================
Dopodiche' ho creato una maschera (Sottomaschera_Track_ricerca) con diversi
campi basata appunto sulla query.
PROBLEMA: se io cerco il codice tipo ABC-12345 (codice completo), la maschera mi
restituisce i valori corretti, ma se io cerco solo una parte del codice...
MASCHERA VUOTA, anche se la query funziona.
Come posso fare? Ho sbagliato qui?
"[CatalogueNr]=" & "'" & Me![CatalogueNr] & "'"
Tra l'altro alla maschera ho associato un'ulteriore routine evento, per andare
ad aprire la maschera principale di "registrazione" dei cd
==============
Private Sub Form_DblClick(Cancel As Integer)
Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Album"
 
 
    stLinkCriteria = "[CatalogueNr]=" & "'" & Me![CatalogueNr] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
=============
Anche questo funziona perfettamente. Insomma, il problema è solo per la ricerca
di un valore parziale.
Vi sarei molto grata se poteste darmi un altro aiutino!
Grazie



Ciao.
-- 
Sergio MAZZA

'qualcosa-12345')
Ho corretto con 
"[CatalogueNr] Like " & "'*" & Me![CatalogueNr] & "*'"
e funziona perfettamente
Grazie di tutto!
