Access crashing when using a command button

[vad77]

I am new to this forum and I am lookng for help with one of my db.
I created a database to keep track and update my usernames and passwords.
It is made of up a 1 table and a couple of queries and forms.
I have a couple of buttons with the code shown below. If I were to click on a button it perform the correct function.
If I were to click another button in the same record Access crashes. The crash could happen the first time I click a button
or on the second button I click.
Don't know if I have a problem with my code or if I have a bad install of Access.

** This rotates the passwords in the record**

Private Sub Command34_Click()
Me.PreviousPassword = Me.CurrentPassword


Me.CurrentPassword = Me.Password1
Me.Password1 = Me.Password2
Me.Password2 = Me.Password3
Me.Password3 = Me.Password4
Me.Password4 = Me.Password5
Me.Password5 = Me.Password6
Me.Password6 = Me.PreviousPassword
Me.PreviousDate = Me.DateChanged
Me.DateChanged = Date
End Sub

---------------------

This code I use to be able to copy the password and paste it to what ever I am logging on too. I also have a button to copy the username.

Private Sub Command37_Click()
Me.CurrentPassword.SetFocus
DoCmd.RunCommand acCmdCopy
End Sub

Is there anything wrong with my code or is there a better way?
Thanks in adavance for your response

[June7]

That code structure will cause loss of CurrentPassword and duplication of passwords. Try:

Private Sub Command18_Click()
Dim PrePW As String
PrePW = Me.PreviousPassword
Me.PreviousPassword = Me.CurrentPassword
Me.CurrentPassword = Me.Password1
Me.Password1 = Me.Password2
Me.Password2 = Me.Password3
Me.Password3 = Me.Password4
Me.Password4 = Me.Password5
Me.Password5 = Me.Password6
Me.Password6 = PrePW
Me.PreviousDate = Me.DateChanged
Me.DateChanged = Date
End Sub


I don't know why the crash, I would have to analyze your db. If you want to provide, follow instructions at bottom of my post.

[Missinglinq]

Be aware that this is double-posted here

http://www.dbforums.com/microsoft-ac...mmand-btn.html

Linq ;0)>