Hi all I am trying to figure out how recreate the CTRL+' function using the AutoKeys macro, or the OnKeyPress of the form.
I know how to create a macro but I have never created an AutoKey. Can anyone assist?? Pls I did some research and it can be done through a macro
Here is my situation, We swicth from having a mdb to having an ADP, and the users were using shortcut keys that were supported throught the MDB but since we changed to an ADP (SQL 2005 as Engine) the short Cut Key CTRL + Apostrophe ( Insert the data from the same field in the previous record CTRL+'
) no longer works and I need to find a work around for it. Its like a Ditto Key and since I dont know allot about VBA I'm unsure as to what to do. I used the code below but insertng it into the Properties of the Text box in the AFterUpdate Event but it doesnt work. When the user enters data into one record it looks like its copying the data over to the correct fields, but it actually doesnt, I know this because I opened the table and no data was copied over. Can someone please help.
Private Sub Earned_hours_AfterUpdate()
Me.Earned_hours.DefaultValue = """" & Me.Earned_hours.Value & """"
End Sub
I know how to create a macro but I have never created an AutoKey. Can anyone assist?? Pls I did some research and it can be done through a macro
Here is my situation, We swicth from having a mdb to having an ADP, and the users were using shortcut keys that were supported throught the MDB but since we changed to an ADP (SQL 2005 as Engine) the short Cut Key CTRL + Apostrophe ( Insert the data from the same field in the previous record CTRL+'
) no longer works and I need to find a work around for it. Its like a Ditto Key and since I dont know allot about VBA I'm unsure as to what to do. I used the code below but insertng it into the Properties of the Text box in the AFterUpdate Event but it doesnt work. When the user enters data into one record it looks like its copying the data over to the correct fields, but it actually doesnt, I know this because I opened the table and no data was copied over. Can someone please help.
Private Sub Earned_hours_AfterUpdate()
Me.Earned_hours.DefaultValue = """" & Me.Earned_hours.Value & """"
End Sub
