T
Tony WONG
the Office has been upgraded from Office xp to Office 2007.
the Access 2007 performance is very slow after upgraded from Access XP. the
database is then upgraded from share file to SQL for faster performance.
i still find the Access 2007 with SQL is still slower than Access xp running
on access file. The database is just less than 10m size.
the performance is much more slower after adding back some codes, like the
following code
sometimes, i can see the input to the database 1 character by 1 character.
could anyone advise me whether my config or code is bad?
does Access 2007 need huge resource, such cpu or ram?
Thanks a lot.
******************************************
Private Sub Form_AfterInsert()
Me.Notified_on = Date
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.Last_response = Date
End Sub
Private Sub Form_Current()
If Forms!FrmApplicant!Status = "Closed" Or Forms!FrmApplicant!Status
= "Cancelled" Or Forms!FrmApplicant!Box <> "" Then
Me.AllowEdits = False
Me.AllowDeletions = False
ElseIf Forms!FrmApplicant!FrmOfficer!assignee = "Unassigned"
Then
Me.AllowEdits = True
ElseIf Forms!FrmApplicant!FrmOfficer!assignee <>
Environ("Username") Then
Me.AllowEdits = False
Me.AllowDeletions = False
Else
Me.AllowEdits = True
Me.AllowDeletions = False
End If
End Sub
the Access 2007 performance is very slow after upgraded from Access XP. the
database is then upgraded from share file to SQL for faster performance.
i still find the Access 2007 with SQL is still slower than Access xp running
on access file. The database is just less than 10m size.
the performance is much more slower after adding back some codes, like the
following code
sometimes, i can see the input to the database 1 character by 1 character.
could anyone advise me whether my config or code is bad?
does Access 2007 need huge resource, such cpu or ram?
Thanks a lot.
******************************************
Private Sub Form_AfterInsert()
Me.Notified_on = Date
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.Last_response = Date
End Sub
Private Sub Form_Current()
If Forms!FrmApplicant!Status = "Closed" Or Forms!FrmApplicant!Status
= "Cancelled" Or Forms!FrmApplicant!Box <> "" Then
Me.AllowEdits = False
Me.AllowDeletions = False
ElseIf Forms!FrmApplicant!FrmOfficer!assignee = "Unassigned"
Then
Me.AllowEdits = True
ElseIf Forms!FrmApplicant!FrmOfficer!assignee <>
Environ("Username") Then
Me.AllowEdits = False
Me.AllowDeletions = False
Else
Me.AllowEdits = True
Me.AllowDeletions = False
End If
End Sub