Condividi:        

access 2003: aiuto per creare un pulsante

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 14/12/09 18:51

In una maschera devo inserire un pulsante che, una volta premuto, mi apra la tabella di origine del database di access.
Non conosco visual basic, e al momento sono solo riuscito a fare aprire access modificando il codice:

Private Sub Comando51_Click()
On Error GoTo Err_Comando51_Click

Dim oApp As Object

Set oApp = CreateObject("Access.Application")
oApp.Visible = True

Exit_Comando51_Click:
Exit Sub

Err_Comando51_Click:
MsgBox Err.Description
Resume Exit_Comando51_Click

End Sub

Nella creazione dei pulsanti c'è solo la possibilità di avviare excel o word, e io manulmente ho sostituito la parola access a word. Ora però vorrei fare aprire una specifica tabella. Si può fare?
Grazie.
__________________
Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27

Sponsor
 

Re: access 2003: aiuto per creare un pulsante

Postdi archimede » 14/12/09 19:01

Credo sia sufficiente
Codice: Seleziona tutto
DoCmd.OpenTable "NomeTabella", acViewNormal
ma è quanto meno bizzarro aprire una tabella da dentro a una form: perché non visualizzare i dati direttamente nella form?

HTH.

Alessandro
archimede
Moderatore
 
Post: 2851
Iscritto il: 07/11/02 12:41
Località: Genova

Re: access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 15/12/09 19:22

Lo so, solo che a volte nella ricerca dei dati ho la necessità di visualizzare la tabella di origine.
Riguardo al codice postato, ma dove lo devo inserire esattamente? Perchè sembra non funzionare.
Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27

Re: access 2003: aiuto per creare un pulsante

Postdi archimede » 15/12/09 20:05

gamma_ray ha scritto:dove lo devo inserire esattamente?
Sull'evento click del pulsante (al posto del tuo).
gamma_ray ha scritto:sembra non funzionare.
Un po' generica come descrizione: dà errore? Dove l'hai messo esattamente?

Alessandro
archimede
Moderatore
 
Post: 2851
Iscritto il: 07/11/02 12:41
Località: Genova

Re: access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 15/12/09 20:33

Sono andato nelle proprietà del pulsante, poi nella finestra evento, e alla voce SU CLIC ho inserito il comando (al posto di routine evento).
Mi da un errore che dice che la macro non è esiste.
Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27

Re: access 2003: aiuto per creare un pulsante

Postdi archimede » 15/12/09 20:48

No:
Codice: Seleziona tutto
Private Sub Comando51_Click()
DoCmd.OpenTable "NomeTabella", acViewNormal
End Sub
Alessandro
archimede
Moderatore
 
Post: 2851
Iscritto il: 07/11/02 12:41
Località: Genova

Re: access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 15/12/09 21:16

Non funziona, mi da errore nella routine evento.
Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27

Re: access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 15/12/09 21:19

Ce l'ho fatta! Ma per puro caso! In pratica cliccando col destro sul pulsante, scegliendo genera evento e poi macro, si apre una griglia dove è possibile scegliere dei tipi di macro, tra cui c'è l'esecuzione di tabelle. Ho scelto la mia che era già in elenco e ho risolto.
Grazie comunque per l'aiuto.
:)
Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27

Re: access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 16/12/09 18:39

accidenti il problema si è ripresentato. Ho la necessità di creare un pulsante che mi apra un determinato documento di word.
Qual'è il comando giusto da scrivere?
Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27

Re: access 2003: aiuto per creare un pulsante

Postdi archimede » 16/12/09 19:20

Innanzitutto dovrai aggiungere il riferimento alla libreria di Word (credo Module -> Tools -> References -> Microsoft Word x.x Object Library). Quindi puoi provare qualcosa di simile (nella routine evento del pulsante):
Codice: Seleziona tutto
Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word non e' attivo
   Set wdApp = CreateObject("Word.Application")
End If

Set wdDoc = wdApp.Documents.Open("C:\cartella\nomefile.doc")

wdApp.Visible = True
HTH.

Alessandro
archimede
Moderatore
 
Post: 2851
Iscritto il: 07/11/02 12:41
Località: Genova

Re: access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 17/12/09 14:52

archimede ha scritto:Innanzitutto dovrai aggiungere il riferimento alla libreria di Word (credo Module -> Tools -> References -> Microsoft Word x.x Object Library).


Questo percorso non lo trovo. Ma è in access?
Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27

Re: access 2003: aiuto per creare un pulsante

Postdi Flash30005 » 17/12/09 15:27

Modificando una riga di codice dell'ottima macro di Archimede puoi evitare di aggiungere riferimenti a librerie

Codice: Seleziona tutto
Sub ApriDoc()
'Dim wdApp As Word.Application, wdDoc As Word.Document  '<<<< commentare o cancellare
Dim wdApp As Object   '<<< aggiungere
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word non e' attivo
   Set wdApp = CreateObject("Word.Application")
End If
Set wdDoc = wdApp.Documents.Open("C:\Cartella\NomeFile.doc")
wdApp.Visible = True
On Error GoTo 0
End Sub


Fai sapere
ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: access 2003: aiuto per creare un pulsante

Postdi gamma_ray » 17/12/09 19:23

Avatar utente
gamma_ray
Utente Senior
 
Post: 1559
Iscritto il: 09/05/03 16:27


Torna a Applicazioni Office Windows


Topic correlati a "access 2003: aiuto per creare un pulsante":

aiuto windows 10
Autore: mod360
Forum: Software Windows
Risposte: 1
aiuto installazione
Autore: mod360
Forum: Software Windows
Risposte: 3

Chi c’è in linea

Visitano il forum: Nessuno e 36 ospiti