Newsgroup: it.comp.appl.access
Titolo: comportamento anomalo del codice

Ho inserito codice associato all'evento clic di un pulsante.Viene
eseguito correttamente.
Ma se lo stesso codice lo inserisco su un'etichetta,sempre associato
allo stesso eveneto,il codice viene eseguito malamente.Come mai
succede questo?Ho provato a ricreare l'etichetta,a rifare il copia/
incolla del codice...ma non funziona mai come se si usa il bottone


Sulle Etichette è meglio usare l'Evento MouseUp, ma non è di certo la
spiegazione
a quanto lamenti che personalmente non ho capito...!
Che intendi per MALAMENTE...?
@Alex

 @Alex
per esempio il codice che ho copiato dal bottone all'etichetta è il
seguente:
Private Sub Etichetta259_Click()
If IsNull(Me.File) Then
MsgBox "Inserire il nome del file d'aprire", vbOKOnly, "FILE"
Else
If dir("g:\mio\" & Me.File) <> "" Then
Shell ("C:\Programmi\Microsoft Office\Office11\EXCEL.EXE " & "g:\mio\"
& Me.File), vbMaximizedFocus
Else
    MsgBox "il file: " & Me.File & ", non esiste."
End If
End If
End Sub
il codice apre il file excel che viene passato in una casella di testo
"file".Con il bottone non c'è alcun problema.Con l'etichetta non viene
eseguito bene nel senso che il vbMaximizedFocus non viene eseguito,mi
dice sempre che il file non esiste...non capisco proprio.Questo è un
esempio..altri codici portandoli dal bottone all'etichetta mi danno
problemi

 ha scritto nel messaggio
news:1188398411.7...@o80g2000hse.googlegroups.com...


Private Sub Etichetta259_Click()

End Sub

Hai messo lo spazio nella proprietà HyperlinkAddress per visualizzare la
MANINA....???
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 @Alex
per esempio il codice che ho copiato dal bottone all'etichetta è il
seguente:
Private Sub Etichetta259_Click()
If IsNull(Me.File) Then
MsgBox "Inserire il nome del file d'aprire", vbOKOnly, "FILE"
Else
If dir("g:\mio\" & Me.File) <> "" Then
Shell ("C:\Programmi\Microsoft Office\Office11\EXCEL.EXE " & "g:\mio\"
& Me.File), vbMaximizedFocus
Else
    MsgBox "il file: " & Me.File & ", non esiste."
End If
End If
End Sub
il codice apre il file excel che viene passato in una casella di testo
"file".Con il bottone non c'è alcun problema.Con l'etichetta non viene
eseguito bene nel senso che il vbMaximizedFocus non viene eseguito,mi
dice sempre che il file non esiste...non capisco proprio.
Allora, dal codice che hai postato tu prelevi il nome del file da una 
textBox, utilizzando la proprieta di value.
Dunque, l'etichetta non ha la proprieta' setfocus, per cui quando ci click 
sopra il focus non si sposta e la proprieta value della textBox non è 
aggiornata.
Se proprio vuoi utilizzare l'etichetta puoi usare la proprieta' text della 
textbox in questo modo:
If IsNull(Me.file.Text) Or (Me.file.Text = "") Then
MsgBox "Inserire il nome del file d'aprire", vbOKOnly, "FILE"
Else
If Dir("d:\mio\" & Me.file.Text) <> "" Then
MsgBox Me.file.Text
Shell ("d:\Programmi\Microsoft Office\Office11\EXCEL.EXE " & "d:\mio\" & 
Me.file.Text), vbMaximizedFocus
Else
    MsgBox "il file: " & Me.file.Text & ", non esiste."
End If
End If
Questo è un
esempio..altri codici portandoli dal bottone all'etichetta mi danno
problemi
per lo stesso problema che ti ho descritto sopra.
-- 
Ciao
Access 

 MANINA....???
Ho tolto la manina e quando clicco su un uetichetta sposto il focus su
un altro controllo.Sembra funzionare.Ma perchè la manina dà problemi?


Non sò sèiegarti il perchè... ma sapevo esistere il problema...!
@Alex