Creare macro con query su file mdb

[fabietto81]

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.

[Flash30005]

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

[fabietto81]

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

Grazie ancora.

[Flash30005]

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

[fabietto81]

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.

[Flash30005]

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