Newsgroup: it.comp.appl.access
Titolo: Inserire codice VBA su Menu Personalizzato

Ho creato una barra dei menu per il mio "ordigno"
e vorrei sapere se e come posso inserire del codice VBA
su un comando di questo.Il codice è il seguente e richiama
un file excel con la funzione Shell.
Dim strPath As String
strPath = "D:\Calcoli\Calcoli.xls"
 Shell "C:\Programmi\Microsoft Office\Office\Excel.exe " & strPath,
vbNormalNoFocus
SunRex

 ha scritto nel messaggio
news:nAg5b.8287$R32.3...@news2.tin.it...

Nel menù richiama una macro eseguicomando.
Nel comando richiami la tua chiamata precedentemente inserita in un modulo.
MAssimiliano
p.s. ROTFL per "ordigno"...

 ha scritto nel messaggio
news:dXg5b.34119$w8....@news.edisontel.com...

Ok Max funziona ma con alcuni accorgimenti.
1) la routine nel modulo deve essere dichiarata come Function
2) Così facendo nella macro selezioni "EseguiCodice" e poi ti cerchi il nome
della Function.
Ho scoperto anche che in realtà si potrebbe richiamare una function dal menu
direttamente
inserendo su propietà del controllo alla voce "Azione" invece del nome della
macro il nome della funzione preceduto
dal segno = .Ma a me non funziona.
SunRex


Sì ti chiedo scusa andavo un pò di fretta
MAssimiliano

 SunRex
PERFETTO....!
Era proprio li che dovevi arrivare....!
Prova a mettere anche le PARENTESI e dichiarare Public la Function
nel Modulo.
Es.:
=TuaFunction()
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:aff00d9c400bfd92cd...@mygate.mailgate.org...

Azione = ApriCalcoli()
la funzione l'ho messa in un modulo chiamato modUtility
Public Function ApriCalcoli()
Dim strPath As String
strPath = "D:\Calcoli\Calcoli.xls"
 Shell "C:\Programmi\Microsoft Office\Office\Excel.exe " & strPath,
vbNormalNoFocus
End Function
Ma al lancio mi appare il seguente msgbox
Impossibile trovare il nome di un campo ,di un controllo o di una propietà
immesso nell'espressione.
La quale faccio notare io è la stessa che usa la macro che funziona però.
SunRex

 SunRex
Prova ora....!



Ma de che uguale a prima.Ho messo anche un punto di interruzione
sulla Function per vedere che succedeva ma non mi va neanche in debug.
Dovessi settare qualcosa sulle opzioni del progetto?
In più ho visto che c'è un campo parametro forse....?
SunRex
Public Function ApriCalcoli()
Dim strPath As String
Dim RetVal
strPath = "D:\VirtualLab\Calcoli\Calcoli.xls"
RetVal = Shell("C:\Programmi\Microsoft Office\Office\Excel.exe " & strPath,
vbNormalNoFocus)
End Function

 In più ho visto che c'è un campo parametro forse....?
Scusa Ale ma sono un coglione.
Certo che se non faccio partire il modulo col cazzo che mi funzionerà mai.
Seguono scuse a tutto il genere umano :(
SunRex

 SunRex
E con @Alex, che non vi appartiene, non ti scusi??
MAssimiliano

 ha scritto nel messaggio
news:jkk5b.34280$w8.2...@news.edisontel.com...

Rimedio subito ;)
Functiom ChiediScusa(Cancel As Integer)
'la basedati la apro in un altro modulo
dim strSQL as String
strSQL="SELECT * FROM tblGenereUmano Where Nome LIKE  '" & strRicerca &
"*'""
set rsScuse = db.Openrecordset(strSQL)
    If rsScuse.BOF And rsScuse.EOF Then
        MsgBox "Non ti ho ancora chiesto scusa " & strRicerca ,vbInformation
        Cancel=True
        Exit Sub
    Else
        MsgBox "Ti ho già chiesto scusa il " & rsScuse.Fildes("DataScuse") ,
vbInformation
        Cancel = False
    End If
Exit Function
SunRex

 MAssimiliano
He...He...He....!
Questo mo proprio lo ritengo un COMPLIMETO....!
Ma se così non fosse aspettati la vendetta di
"MONTE DI VENERE", figlio di MONTEZUMA....!


figlio di MONTEZUMA....!
sì proprio di MONTEZUMA...
;-)))
MAssimiliano