Moderatori: Anthony47, Flash30005
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
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 10 ospiti