Newsgroup: it.comp.appl.access
Titolo: Pulsante in una maschera

Salve a tutti, sono un novello di access e per motivi di lavoro lo
devo imparare e anche in modo abbastanza veloce "se voglio mantenere
il posto", vengo al punto:
In azienda abbiamo un programma costruito in Java che a fine mese
genera un report consegne in excel.
Tale report contiene i nomi di tutte le operatrici di tale azienda
ripetuti più volte per ogni ordine che hanno prodotto durante il mese
es: teleoperatrice moira ha prodotto 100 ordini il record in excel
viene riportato cento volte, ha fatturato € 10000 in ogni record alla
colonna fatturato viene riportato € 100.
In access sto creando un pannello comandi e avrei bisogno di creare un
tasto che cliccandoci su mi apra excel o esplora risorse in modo che
io possa selezionarmi il file excel generato dal programma e
importarmelo in access.
Ho bisogno di fare questo perchè il programma deve risultare
totalmente automatizzato.
Confido vivamente in voi.

 ha scritto nel messaggio news:1177850265....@y5g2000hsa.googlegroups.com...





Confido vivamente in voi.
[risposta]
"Importare", ossia inserire i dati contenuti nelle celle di excel, nei campi di una tabella di access?
Sul sito comune (
www.sitocomune.com
) Sezione General:
6.22 Richiamare la finestra di dialogo per la selezione di un file.
E per importare un file excel leggi nell'help di VBA (attivabile con ALT-F11 poi F1) il metodo: Metodo TransferSpreadsheet.
Ma prima di questo; visto che sei novello e rischi il posto di lavoro mi permetto di suggerirti di aspettare un attimo e descrivere 
meglio quello che vuoi fare.
A parte l'importazione dei dati, che è banale, ma tu hai anche parlato di report e se non strutturi bene le tabelle (prima); 
potresti (poi) trovarti a rifare il lavoro di nuovo...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:1177850265....@y5g2000hsa.googlegroups.com...

allora qualcuno mi aiuta?
il tempo stringe e non so come fare?
help me!!!

 ha scritto nel messaggio 
news:1177924180.0...@y5g2000hsa.googlegroups.com...
allora qualcuno mi aiuta?
il tempo stringe e non so come fare?
help me!!!
[risposta]
Ti ho risposto (alla tua) per e-mail; cosa c'è che non va?
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Scusami tanto ma non avevovisionato l'email...
sono davvero un imbranato...scusa ancora...
Potresti dirmi i passaggi per inserire quel codice che mi hai postato?
Ciao
Crescenzo

 ha scritto nel messaggio 
news:1177929802.7...@e65g2000hsc.googlegroups.com...
Scusami tanto ma non avevovisionato l'email...
sono davvero un imbranato...scusa ancora...
Potresti dirmi i passaggi per inserire quel codice che mi hai postato?
Ciao
Crescenzo
[risposta]
- Crei un modulo e ci inserisci il codice che trovi sul link suggerito al 
sito comune;
- Crei un bottone e ci inserisci dentro il codice che richiama la funzione 
cmddlg_file:
es. (per provare)
msgbox cmdlg_file()
Se ti appare la finestra "Apri" e dopo aver selezionato il file ti si apre 
la msgbox con il nome del file allora scrivi (togliendo il msgbox):
'---
dim nomeFile as string
nomeFile = cmd_file()
if nomeFile<>"" then
    docmd.TransferSpreadsheet acImport,,"nometabella",nomeFile,true
else
    msgbox "Non hai selezionato nessun file"
end if
'---
Fai prima delle prove creandoti dei file di backup!!
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:1177929802.7...@e65g2000hsc.googlegroups.com...

ok ora provo e ti faccio sapere.
Grazie Crescenzo.

 - Mostra testo tra virgolette -
Il primo esempio suggerito da te è andato a buon fine...
quando invece provo così mi dice " cmd_file() errore di compilazione
sub o function non definita"
Private Sub Comando13_Click()
msgbox cmdlg_file()
Dim nomeFile As String
nomeFile = cmd_file()
If nomeFile <> "" Then
    DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile,
True
Else
    MsgBox "Non hai selezionato nessun file"
End If
End Sub
se invece provo (togliendo il msgbox) mi da lo stesso errore.
Dim nomeFile As String
nomeFile = cmd_file()
If nomeFile <> "" Then
    DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile,
True
Else
    MsgBox "Non hai selezionato nessun file"
End If
P.S grazie di vero cuore per l'interessamento.
End Sub

 ha scritto nel messaggio 
news:1177933778....@p77g2000hsh.googlegroups.com...
Il primo esempio suggerito da te è andato a buon fine...
quando invece provo così mi dice " cmd_file() errore di compilazione
sub o function non definita"
Private Sub Comando13_Click()
msgbox cmdlg_file()
[risposta]
Questa riga è solo di prova; puoi rimuoverla.
Dim nomeFile As String
nomeFile = cmd_file()
[risposta]
Qui (sopra) ho sbagliato il nome della funzione; non hai visto che in debug 
si ferma su quella riga?
La funzione si chiama (l'hai pure copiata/incollata) cmdlg_file() non come 
ti ho scritto io.
If nomeFile <> "" Then
    DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile,
True
Else
    MsgBox "Non hai selezionato nessun file"
End If
End Sub
se invece provo (togliendo il msgbox) mi da lo stesso errore.
[risposta]
(per forza) Leggi sopra.
P.S grazie di vero cuore per l'interessamento.
[risposta]
Prego.
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:1177933778....@p77g2000hsh.googlegroups.com...

Sei un grande tutto risolto......
un altra cosa quando importo il file non mi da nessun messaggio di
Importazione eseguita, posso inserire un msgbox se si in quale parte
del codice?
Ciao Crescenzo.

 ha scritto nel messaggio 
news:1177936457.8...@n59g2000hsh.googlegroups.com...
Sei un grande tutto risolto......
un altra cosa quando importo il file non mi da nessun messaggio di
Importazione eseguita, posso inserire un msgbox se si in quale parte
del codice?
[risposta]
...
If nomeFile <> "" Then
     DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile, True
    msgbox "Il file: " & nomeFile & ", è stato importato."
Else
..
Ciao Crescenzo.
[risposta]
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:1177936457.8...@n59g2000hsh.googlegroups.com...

ok è andato a buon fine
ciao Crescenzo