Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Creare macro con query su file mdb

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

Creare macro con query su file mdb

Postdi fabietto81 » 16/08/14 20:24

Ciao a tutti, innanzitutto ringrazio chi potra' aiutarmi.
Ho un file chiamato negozio.mdb, all'interno si trova una tabella ("TArticoli") con all'interno due colonne ("CodBarre" e "PrezzoIvato1").
La mia esigenza e' la seguente: devo creare una schermata (magari con una macro di excel) con una casella di testo dove andro' ad inserire il codice a barre del prodotto e in automatico, tramite query su negozio.mdb/TArticoli/CodBarre, mi verra' mostrato il rispettivo prezzo (colonna PrezzoIvato1). Dopo 5 secondi la schermata dovrebbe tornare "pulita" per inserire un altro codice.
Vi ringrazio nuovamente per l'eventuale aiuto.
fabietto81
Utente Junior
 
Post: 11
Iscritto il: 10/10/12 20:00

Sponsor
 

Re: Creare macro con query su file mdb

Postdi Flash30005 » 17/08/14 23:41

Per creare la macro in Access (non Excel) dovremmo creare un db simile al tuo e postartelo perché, a differenza di Excel, i database hanno una struttura specifica e collegata in ogni sua parte a tabelle, maschere, query etc etc.
Sarebbe opportuno, quindi, l'invio, da parte tua, del database che utilizzi mascherando/modificando dati sensibili

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Creare macro con query su file mdb

Postdi fabietto81 » 18/08/14 08:56

Ciao, allego il database mdb sul quale fare la query: http://www.morinasnc.it/download/negozio.mdb

Grazie ancora.
fabietto81
Utente Junior
 
Post: 11
Iscritto il: 10/10/12 20:00

Re: Creare macro con query su file mdb

Postdi Flash30005 » 18/08/14 12:46

ma come inserirai il codice a barre nella maschera?
tramite lettore laser, digitato a mano, oppure vuoi che la maschera ti proponga i codici a barre esistenti nella tabelle e lo potrai scegliere semplicemente selezionandolo?

fai sapere
ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Creare macro con query su file mdb

Postdi fabietto81 » 18/08/14 13:39

Il codice a barre verrá inserito tramite lettore barcode (in emulazione tastiera). Praticamente vorrei permettere ai clienti tramite questa maschera di poter conoscere i prezzi degli articoli presenti nel db. Grazie ancora.
fabietto81
Utente Junior
 
Post: 11
Iscritto il: 10/10/12 20:00

Re: Creare macro con query su file mdb

Postdi Flash30005 » 18/08/14 20:37

Devi creare una maschera con due caselle testo (nel mio caso ho Testo8 per il barcode e Testo6 per il prezzo (quindi modifica nella macro questi nomi in funzione dei nomi delle tue caselle testo)
Poi selezioni la casella testo del Barcode (testo8) e con il tasto destro selezioni Genera Evento -> Genera Codice
inserirai l'intera macro postata qui sotto
Codice: Seleziona tutto
Private Sub Testo8_AfterUpdate()
Set db = CurrentDb
Passo = 0
MiaQ = "SELECT CodBarre, PrezzoIvato1 From TArticoli WHERE TArticoli.CodBarre = '" & Testo8.Value & "'"

Set ds = db.OpenRecordset(MiaQ)
On Error GoTo MSalta
If ds!PrezzoIvato1 = "" Then
MSalta:
On Error GoTo 0
MsgBox "Inserire un Codice Barre corretto"
Testo8.SetFocus

GoTo SaltaP
End If
Testo6.Value = ds!PrezzoIvato1

    PauseTime = 5    ' Imposta la durata.
    Start = Timer    ' Imposta l'ora di inizio.
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
 ' Passo = 1
    GoTo Fine
SaltaP:
ds.Close
Exit Sub
Fine:
    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close
    stDocName = "Maschera1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

(modifica i nomi delle caselle testo)
Ora non devi far altro che inserire un codice corretto nella casella Testo8 e premere invio o tab da tastiera
apparirà il prezzo e dopo 5 secondi (stabiliti dalla Pausa nella macro)
i campi si puliranno per consentire altro inserimento

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Creare macro con query su file mdb":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti