Aprire form di access

Hai un problema con Excel?

Nuova discussione

Aprire form di access
di Trollo (utente non iscritto) data: 22/08/2009
Come posso aprire un form di access da una macro di excel?
di Apoben64 (utente non iscritto) data: 02/09/2009
Bastrebbe che ci spiegassi la ragione del perchè ci fai questa domanda !

ciao
luca
di Trollo (utente non iscritto) data: 07/09/2009
Grazie per la risposta, la mia necessita' e' quella, dopo aver copiato dei dati in una tabella di excel con una macro, di importare questi in una tabella di access tramite una macro che viene lanciata con un pulsante presente in una maschera di access.
questi dati importati in una tabella access di nome corpo sono in relazione con una tabella access di nome testa tramite dei dati ( numero ordine, data ordine, codice cliente) che inserisco nella maschera dove è presente il pulsante per l ' importazione dei dati dalla tabella di excel.
scusami nell' eventualità di essere stato poco chiaro.
di Apoben64 (utente non iscritto) data: 07/09/2009
Ciao,
mi devi scusare ma per poterti aiutare necessitiamo avere un esempio di quello che hai già in mano. sulla base di questo si può vedere come creare o meglio adattare il tuo codice al tuo obiettivo.
spero di essere stato chiaro.

attendiamo un riscontro o meglio un file di esempio.

luca
di Trollo (utente non iscritto) data: 08/09/2009
Questa è la macro che lancio:
cells.select
selection.delete shift:=xlup
range("a1").select
activesheet.paste
range("d2:d72").select
selection.numberformat = "0"
with selection
.horizontalalignment = xljustify
.verticalalignment = xlbottom
.orientation = 0
.addindent = false
.indentlevel = 0
.shrinktofit = false
.readingorder = xlcontext
end with
activewindow.smallscroll down:=-6
activeworkbook.save

application.quit

end sub

come ti dicevo prima del end sub manga la riga che mi apre il form di access.

tutto questo perche' ho un clienti con molti punti vendita che non hanno office, quindi mi fanno degli ordini per e-mail su una tabella preimpostata inserita in un file rtf dove c'è una macro che lancio che mi copia questi dati e mi apre il foglio di excel dove c' è il pulsante che lancia la macro sopra descritta.
saluti
Connessione access
di Apoben64 (utente non iscritto) data: 08/09/2009
Bene,
allora diciamo che tu hai un applicazione in access e vuoi che access si colleghi al database di excel ? giusto ? oppure vicerversa .
fai sapere ,
luca
di Trollo (utente non iscritto) data: 08/09/2009
La mia applicazione per la gestione degli ordini è in access,ed io la devo chiamare (aprendo la maschera specifica) lanciando una macro (descritta in precedenza) presente in un file di excel.
saluti
di Apoben64 (utente non iscritto) data: 09/09/2009
Quindi se la tua macro fosse presente in access sarebbe tutto ok ?

cioè access prende i dati presenti nel file di excel .

luca
di Trollo (utente non iscritto) data: 09/09/2009
Ecco cosa succede passo passo:
mi arriva l' ordine allegato in un file allegato ad un msg di posta elettronica in formato rtf, io apro il file e con una macro (premendo f2) copio o dai negli appunti e mi apre un file di nome xxxxx di excel dove è presente un pulsante che all' evento clic lancia la macro seguente:
cells.select
selection.delete shift:=xlup
range("a1").select
activesheet.paste
range("d2:d72").select
selection.numberformat = "0"
with selection
.horizontalalignment = xljustify
.verticalalignment = xlbottom
.orientation = 0
.addindent = false
.indentlevel = 0
.shrinktofit = false
.readingorder = xlcontext
end with
activewindow.smallscroll down:=-6
activeworkbook.save

application.quit

end sub

a questo punto io ho la necessita' di aprire ed attivare in automatico una maschera di access dove è presente il pulsante che all' evento clic mi lancia la macro che importa i dati dal file di excel in una tabella di access, penso che basti inserire una riga di codice prima del end sub della macro sopra descritta, il tutto per evitare ogni volta di andare a cercare con il mouse nella barra delle applicazioni, quello che ci interessa per poi scegliere quello che dobbiamo attivare.
sperando di essere stato chiaro, ringrazio e saluto
di Trollo (utente non iscritto) data: 12/09/2009
Con il codice sotto descritto sono riuscito ad aprire il mio file di access, dove "xxxxxxxx" è l' indirizzo del file, adesso pero' non riesco a far apparire in primo piano il form che mi interessa

dim oapp as object
const spath as string = _ "xxxxxxxxx"
on error resume next
set oapp = getobject(, "access.application")
if oapp is nothing then
set oapp = getobject("", "access.application")
with oapp
.opencurrentdatabase spath
.usercontrol = true

end with
end if

end sub

Vuoi Approfondire?