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