dataenvironment problem

[martialdc]

i have this code in the form;

Public Function connectDB() As ADODB.Connection
Set connectDB = New ADODB.Connection
connectDB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\dbPayroll.mdb;Uid=Admin;Pwd=;"
connectDB.Open
End Function

Private Sub btnClose_Click()
Unload Me
End Sub

Private Sub btnPreview_Click()

copyToTempDTR

If DataEnvironment.rsEmployee.State = adStateClosed Then
DataEnvironment.rsEmployee.Open
Else
DataEnvironment.rsEmployee.Close
DataEnvironment.rsEmployee.Open
End If
'
DataEnvironment.rsEmployee.Requery

rptDTR.Sections(1).Controls("lblDate").Caption = Format(dtpFrom.Value, "mmmm dd, yyyy") & " - " & Format(dtpTo.Value, "mmmm dd, yyyy")
rptDTR.Show 1
End Sub

Private Sub copyToTempDTR()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim intCount As Integer

Set con = connectDB
Set rs = New ADODB.Recordset
With rs

.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "DELETE * from tmpDTR", con
.Open "INSERT INTO tmpDTR ( dDate, EmployeeID, TimeInAM, TimeOutAM, TimeInPM, TimeOutPM, RegularHours, OvertimeHours, Vale )SELECT tblDTR.dDate, tblDTR.EmployeeID, tblDTR.TimeInAM, tblDTR.TimeOutAM, tblDTR.TimeInPM, tblDTR.TimeOutPM, tblDTR.RegularHours, tblDTR.OvertimeHours, tblDTR.Vale FROM tblDTR Where dDate>=#" & dtpFrom.Value & "# And dDate<=#" & dtpTo.Value & "#;", con
.Open "Select * from tmpDTR", con

.Close

End With

con.Close
Set rs = Nothing
Set con = Nothing

End Sub

>>My problem is this code.. Sometimes I have to click the Preview button twice of even thrice to view the exact record that i need to display in datareport?? kindly help me pls??? attached with this thread is the report that im doing..

Private Sub btnPreview_Click()

copyToTempDTR

If DataEnvironment.rsEmployee.State = adStateClosed Then
DataEnvironment.rsEmployee.Open
Else
DataEnvironment.rsEmployee.Close
DataEnvironment.rsEmployee.Open
End If
'
DataEnvironment.rsEmployee.Requery

rptDTR.Sections(1).Controls("lblDate").Caption = Format(dtpFrom.Value, "mmmm dd, yyyy") & " - " & Format(dtpTo.Value, "mmmm dd, yyyy")
rptDTR.Show 1
End Sub

thanks in advance..

[dee-u]

How about...

Private Sub btnPreview_Click()

copyToTempDTR

If DataEnvironment.rsEmployee.State = adStateClosed Then
DataEnvironment.rsEmployee.Open
Else
DataEnvironment.rsEmployee.Close
DataEnvironment.rsEmployee.Open
End If
'
DataEnvironment.rsEmployee.Requery

rptDTR.Sections(1).Controls("lblDate").Caption = Format(dtpFrom.Value, "mmmm dd, yyyy") & " - " & Format(dtpTo.Value, "mmmm dd, yyyy")
rptDTR.Refresh
rptDTR.Show 1
End Sub

[Hack]

Moved to reporting section

[martialdc]

rptDTR.Refresh
rptDTR.Show 1

this code still doesnt work?? i still have to click the preview button twice??