Home Forums Downloads Galleria Profilo

technomat.net :: Leggi il Topic - Info visual basic di Access
forums FAQ Cerca Lista degli utenti Gruppi utenti Profilo Messaggi Privati
Info visual basic di Access

 
Nuovo Topic   Rispondi    Indice del forum -> Programmazione
Precedente :: Successivo  
Autore Messaggio
luckasfra
Niubbo
Niubbo


Registrato: Jul 05, 2005
Messaggi: 13

MessaggioInviato: Ven Gen 20, 2006 4:41 pm    Oggetto: Info visual basic di Access Rispondi citando

Ciao a tutti
Vi pongo il mio problema:
devo visualizzare delle foto in access2000,
quando lo faccio su una machera associata ad una tabella non ci sono problemi, riesco a visualizzarla..(perchè scorrendo i record scorrono anche le foto)
il problema è invece come faccio a visualizzare nella maschera associata alla tabella 'x' un campo (in particolare Foto) di una tabella 'y' diversa, ma nella stessa maschera?

in particolare esiste un comando come DoCmd.GoToRecord , , acNext
che mi sfoglia i campi invece dei record?

si accettano anche escamotage di qualunque tipo
aiutatemi... Pensieroso

grazie e confido in voi!!!
Torna in cima
Profilo Messaggio privato MSN Messenger
Autore Messaggio
involt
MVP
MVP


Registrato: Aug 07, 2005
Messaggi: 265
Località: casa mia

MessaggioInviato: Ven Gen 20, 2006 7:01 pm    Oggetto: Rispondi citando

HMMMMMM.... Pensieroso ...non ho capito bene...cosa è memorizzato nella tabella? Il path dell'immagine da visualizzare?
In questo caso l'immagine viene visualizzata sul controllo tramite la proprietà "Picture" cui corrisponde un path:
Me!Immagine1.Picture = Path1
dove Path1 è una variabile stringa.

Devi scrivere allora un pezzetto di codice che apre l'altra tabella, legge il record, e ricava quindi il path. Lo puoi fare sotto forma di funzione. Se chiami la funzione FindPath, e passi il nome del recordi come stringa (ammettiamo che il record si chiami per l'appunto "Path") avrai:

Me!Immagine1.Picture = FindPath("Path")

La funzione FindPath può essere più o meno così:

Public Function FindPath(fldName As String) As String
On Error GoTo Err_FindPath
Dim DatiRecordset As DAO.Recordset
Dim fldPath As DAO.Field, ReturnedPath As String
Dim CurrRec As Integer
Dim MoveOffset As Long
Dim NomeDatabase As DAO.Database

CurrRec = Forms!QuestaMaschera.CurrentRecord



Set NomeDatabase = CurrentDb

Set DatiRecordset = NomeDatabase.OpenRecordset("AltraTabella", dbOpenTable)



DatiRecordset.Index = "PrimaryKey"
DatiRecordset.MoveFirst
DatiRecordset.Seek "=", CurrRec


Set fldPath = DatiRecordset.Fields(fldName)

ReturnedPath = fldPath.Value
FindPath = ReturnedPath


Exit_FindPath:
DatiRecordset.Close
Exit Function

Err_FindPath:

Resume Exit_FindPath

End Function

In questo esempio il tuo database è NomeDatabase, la maschera che contiene il controllo è QuestaMaschera, e la tabella che contiene il path è AltraTabella.

La funzione può essere chiamata in un evento Current della maschera:

Private Sub Form_Current()
Me!Immagine1.Picture = FindPath("Path")
etc., etc....

Non mi chiedere di essere più chiaro di così perchè ho grossi deficit espressivi. Caso mai, cut&paste

_________________
Per come la vedo io, tutte le persone si dividono in 10 categorie: quelle che comprendono la numerazione binaria, e quelle che non riescono a comprenderla
___________________________________________________

La mia antenna è più piccola della vostra Linguaccia
Torna in cima
Profilo Messaggio privato
Autore Messaggio
luckasfra
Niubbo
Niubbo


Registrato: Jul 05, 2005
Messaggi: 13

MessaggioInviato: Sab Gen 21, 2006 2:37 pm    Oggetto: Rispondi citando

ciao involt,
Ciao

quando ho inserito le foto nn l'ho fatto con il path ma ho cerato un oggetto OLE...Infatti nella tabella delle Foto trovo nei rispettivi campi la stessa parola 'Immagine bitmap'.
non trovo il path...
Come mi devo comportare???
Pensieroso
Torna in cima
Profilo Messaggio privato MSN Messenger
Autore Messaggio
involt
MVP
MVP


Registrato: Aug 07, 2005
Messaggi: 265
Località: casa mia

MessaggioInviato: Dom Gen 22, 2006 12:46 pm    Oggetto: Rispondi citando

Cambi nella struttura della tabella il tipo di dati da OLE a testo ed inserisci il path.
Questo modo di procedere:
1) è molto più flessibile
2) funziona benissimo
3) è l'unico che ti posso suggerire con certezza, considerato che il tuo database non l'ho mai neanche visto una sola volta, mentre la funzione che ti ho postato l'ho scritta io per un database che uso per il mio lavoro, l'ho debuggata (insieme a tutto il resto) e funziona benissimo.

OK?

_________________
Per come la vedo io, tutte le persone si dividono in 10 categorie: quelle che comprendono la numerazione binaria, e quelle che non riescono a comprenderla
___________________________________________________

La mia antenna è più piccola della vostra Linguaccia
Torna in cima
Profilo Messaggio privato
Mostra prima i messaggi di:   
Nuovo Topic   Rispondi    Indice del forum -> Programmazione Tutti i fusi orari sono GMT + 1 ora
Pagina 1 di 1
Vai a:  
Non puoi inserire nuovi Topic in questo forum
Non puoi rispondere ai Topic in questo forum
Non puoi modificare i tuoi messaggi in questo forum
Non puoi cancellare i tuoi messaggi in questo forum
Non puoi votare nei sondaggi in questo forum
Non puoi allegare file in questo forum
Non puoi scaricare file da questo forum

Powered by phpBB © 2004 phpBB Group

Forums ©
Tutto lo sport minuto per minuto sul tuo telefonino!

Tutti i loghi e i marchi sono proprietà dei loro rispettivi possessori.
I commenti sono di proprietà degli autori. Tutto il resto è Copyright © 2004-2008 technomat.net
Creative Commons License
Privacy - Disclaimer

PHP-Nuke Copyright © 2004 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Generazione pagina: 0.50 Secondi