troubleshooting Question

Need to speed up unbound Form Load - use DAO?

Avatar of Thirt
Thirt asked on
Microsoft Access
2 Comments1 Solution267 ViewsLast Modified:
I have a split database and the backend is staying in Access. I heard that in this enviroment, DAO is the faster method to load an unbound form? If so, is there a better process to load up a forms unbound field values then what I'm doing?

My goal is to enhance the current Continuouis Form that I provide to date. The field columns span across and off the page. Plus I need to record the changes and send the new update to a change log table. So I need a new form to edit all the fields in one form for the selected record, allow changes to be cancelled at any time (thus my fear to use a bound form), and when they press OK it saves the changes in the main table and sends the updated record to the change log table.

Is there a better way to do approach this?
Private Sub Form_Open(Cancel As Integer)
 
Dim rs As DAO.Recordset
 
Set rs = CurrentDb.OpenRecordset("SELECT TblFileList.* FROM TblFileList WHERE TblFileList.FileIndexNo=1571")
rs.MoveFirst
Do Until rs.EOF
     
     Me.FileIndexNo = rs!FileIndexNo
     Me.FileCurrentDate = rs!FileCurrentDate
     Me.cboCat = rs!FileCatCode
     Me.cboFileName_ver = rs!FileName_ver
     Me.FileDocID = rs!FileDocID
     Me.txtTitleOnDoc = rs!FileDocTitle
     Me.txtLink = rs!FileLink
     Me.FileName_orginal = rs!FileName_orginal
     Me.FileRevisedby = rs!FileDocName_short
     Me.FileRelativeDate = rs!FileRelativeDate
     Me.FileFunction = rs!FileFunction
     Me.FileJob = rs!FileJob
     Me.FileDocCode = rs!FileDocCode
     Me.FileDocSubCode = rs!FileDocSubCode
     Me.FileDocSubMicroCode = rs!FileDocSubMicroCode
     Me.FilePUOID = rs!FilePUOID
     
 
FileErr:
rs.MoveNext
Loop
rs.Close
End Sub
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 1 Answer and 2 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros