matteosiviero.it

 

Il questo nuovo tutorial di Access vediamo come creare una raccolta di immagini e foto utilizzando le finestre di dialogo.

In pratica il concetto e' lo stesso che mette a disposizione Windows per cercare un file e riportarne il percorso in una casella di testo.
Il risultato finale sara' quello in Fig.1

Fig.1

Per prima cosa creiamo la tabella (Fig.2) in cui verranno salvati i percorsi delle immagini e i dettagli:

Fig.2

Ora disponiamo gli elementi nella maschera a piacimento (l'immagine di esempio e' solo indicativa).
I riquadri delle immagini sono delle semplici etichette.

Il codice in Visual Basic presente e' il seguente:

• nella maschera sull'evento Su Corrente
  
  Private Sub Form_Current()
  On Error GoTo Errore
  Me.F1.Picture = ""                                                'nome riquadro delle immagini
  Me.F2.Picture = ""
  Me.F3.Picture = ""
  Me.F4.Picture = ""
  If IsNull(Me.Immagine_001) Then GoTo Foto2
  Me.F1.Picture = Me.Immagine_001                 'nome casella di testo
  Foto2:
  If IsNull(Me.Immagine_002) Then GoTo Foto3
  Me.F2.Picture = Me.Immagine_002
  Foto3:
  If IsNull(Me.Immagine_003) Then GoTo Foto4
  Me.F3.Picture = Me.Immagine_003
  Foto4:
  Me.F4.Picture = Me.Immagine_004
  
  Exit Sub
  
  Errore:
  Exit Sub
  
  End Sub

• sulle caselle di testo contenenti il percorso delle foto sull'evento Dopo Aggiornamento (cambiando opportunamente i nomi):
  
  Private Sub Immagine_001_AfterUpdate()
  On Error GoTo Errore
  Me.F1.Picture = ""
  Me.F1.Picture = Me.Immagine_001
  Errore:
  Exit Sub
  End Sub

• sui pulsanti che aprono le finestre di dialogo sull'evento Su clic:
  
  Private Sub P1_Click()
  On Error GoTo Errore
  Dim II As String
  II = cmdlg_file
  Me.Immagine_001 = II
  Me.F1.Picture = II
  Errore:
  Exit Sub
  End Sub

 

Riassumendo, la logica di funzionamento e' questa:
cliccando sul tasto si apre la finestra di dialogo che permette di selezionare l'immagine ed il percorso viene salvato nella casella di testo.
A questo punto il "valore" delll'etichetta che contiene l'immagine diventa uguale al percorso di quest'ultima.
Nel caso in cui non si voglia procedere "in ordine" nel salvare le immagini, l'evento Su corrente della maschera controlla se il percorso e' nullo e passa alla foto seguente.

Buon lavoro.