Newsgroup: it.comp.appl.access
Titolo: leggere info da record corrente in una query

Ciao a tutti
Windows 7 e Access 2003
Ho a video i record estratti da una tabella tramite una query.
Scorrendo i record estrapolati con la query, fermo il cursore (o puntatore) 
su un record che mi interessa.
La domanda :
E' possibile trasferire il contenuto di campo di questo record ad un 
controllo/comando/pulsante/...   ?
In sostanza come si fa a leggere quel record su cui c'e' il cursore ?
Spero di essere riuscito ad esternare il mio quesito..
Grazie in anticipo per l'eventuale risposta.
Antonio 
 

 ...
 
Concentrati, guarda intensamente, seleziona e ... usa gli appunti. :-)
Cio� no, se capisco bene cosa vuoi ottenere, devi usare delle
maschere.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 ...
 
Concentrati, guarda intensamente, seleziona e ... usa gli appunti. :-)
Cioè no, se capisco bene cosa vuoi ottenere, devi usare delle
maschere.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
Ciao Karl, grazie per la tua disponibilità.
Il problema:
Ho a video una query (MiaQuery) di selezione. I record in essa contenuti 
sono le info di brani musicali,
Cd di appartenenza, posizione su Cd, Autore, Titolo, Durata del brano, Anno, 
Percorso in hard disk, ecc...
Scorrendo tra i record mi soffermo su un brano musicale.
A questo punto vorrei ascoltarlo, quindi vorrei ascoltare il brano musicale 
sul quale è posizionato il cursore
Non so come si fa a leggere la posizione corrente del cursore nella query.
Attualmente ho raggirato il problema creando un recordset sulla MiaQuery, 
leggendo dalla MiaQuery la
posizione del brano musicale e usando una inputbox()   ...  (non mi sembra 
il massimo...) :-(
(Per l'ascolto c'è il controllo ActiveX di Windows Media Player)
 
Dim dbas As Database
Dim Rs As Recordset
Dim VaiAlRecord
 
cut.....
 
Set dbas = CurrentDb
 
VaiAlRecord = 1
Set Rs = dbas.OpenRecordset( MiaQuery )
VaiAlRecord = Val(InputBox("Digita Posizione Brano (Pos): ", "ASCOLTO 
BRANI", 1))
 
If VaiAlRecord > 0 Then
   Rs.Move VaiAlRecord - 1
   WindowsMediaPlayer5.URL = Rs!Percorso & Trim(Rs!Pos) & "-" & Rs!Autore & 
" - " & Rs!Titolo & IIf(Len(Rs!Anno & "") = 0, "", " - " & Rs!Anno) & ".mp3"
End If
 
Grazie in anticipo per l'eventuale ottima 'Tiratina di orecchi..'
(Non fare troppo forte perchè ho una età più che ragguardevole... )
Antonio
 
 

 ...
 
Il problema � chiarissima, ma come gi� detto una query
non si puo programmare in modo "interattivo" perch� non
ha eventi ecc.
 
Dov'� il problema di creare una maschera sulla base della
query e usare questa maschera per scorrere (magari in
vis. foglio dati) e scegliere il record che vuoi far suonare?


 ...
 
Il problema è chiarissima, ma come già detto una query
non si puo programmare in modo "interattivo" perché non
ha eventi ecc.
 
Dov'è il problema di creare una maschera sulla base della
query e usare questa maschera per scorrere (magari in
vis. foglio dati) e scegliere il record che vuoi far suonare?
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
Grazie Karl
Antonio 
 

....cut
 
"Karl Donaubauer"  ha scritto nel messaggio 
news:b8gtom...@mid.individual.net...
 
Ciao Antonio,
Dov'� il problema di creare una maschera sulla base della
query e usare questa maschera per scorrere (magari in
vis. foglio dati) e scegliere il record che vuoi far suonare?
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
Ciao Karl, scusami se torno sull'argomento per eseguire file.mp3
Ho fatto la maschera che mi suggerivi in visualizzazione foglio dati.
Il controllo ActiveX di Windows Media Player lo messo sul campo Titolo
In effetti le info le raccolgo, (le vedo con la MsgBox...)
All'esecuzione della riga successiva per� ho una brutta sorpresa:
Compare a video questo messaggio di errore:
Errore di run-time '438' :
Propriet� o metodo non supportati dall'oggetto
 
Private Sub Titolo_DblClick(Cancel As Integer)
MsgBox Me.Percorso & Trim(Me.Pos) & "-" & Me.Autore & " - " & Me.Titolo & 
IIf(Len(Me.Anno & "") = 0, "", " - " & Me.Anno) & ".mp3"
WindowsMediaPlayer1.URL = Me.Percorso & Trim(Me.Pos) & "-" & Me.Autore & " - 
" & Me.Titolo & IIf(Len(Me.Anno & "") = 0, "", " - " & Me.Anno) & ".mp3"
End Sub
 
 
 
 

 
 
"AntFast"  ha scritto nel messaggio 
news:ykKVt.3365$tE4....@tornado.fastwebnet.it...

******************
Ciao a tutti
Non so se � 'ortodosso' quello che ho fatto, sta di fatto che ho risolto il
mio problema creando un'altra Maschera nella quale la propriet� o metodo 
sono
supportati dall'oggetto.
(...� un continuo creare maschere...  :-(  )
Antonio