Anybody can help me .. how to add Progress bar and also add DoEvents()when the OpenRecordSet command run. because The statement below wasting my time to wait ..
Dim RS as Recordset
Dim DBDS as Database
Dim QdfTrap as QueryDef
Dim txtDateTrap as Date
strParm = "PARAMETERS [txtDate] DateTime; "
SQLTrap = strParm & "Select * from Sales where Sdate = " & "#"& txtDate.Text & "#" & " Order by pl_no, line, cproc, worker"
Set QdfTrap = DBDS.CreateQueryDef("", SQLTrap)
Set PrMeter = QdfTrap2.Parameters!txtDate
txtDateTrap = txtDate.Text
PrMeter = txtDateTrap
Set RS = QdfTrap.OpenRecordset(dbOpenDynaset)
thanks very much for any advice or suggestion
Best Regards
Winan
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement