continuous form - using arrow keys move up,down or accoss 2

[neemi]

I have a contiuous form and want to give the user the ability to move either up, down, left or right in the grid system made up of the contious form fields...

Does anyone know how this is possible to do? as currently it moves left or right as the tab stop is set to true but even if the up or down key is pressed then it still moves left or right in the current record.

I am assuming that some coding with the key press even will be required on the objects but I have no idea on how to do this? Any help with the coding apreciated...

regards,
Neemi

 

[TheAceMan1]

How are ya neemi . . .

Detect up & down arrow keys in the forms [blue]On Key Down[/blue] event:

[blue]   Dim LastRec As Long
   
   LastRec = Me.Recordset.RecordCount
   
   If Shift = 0 Then
      If KeyCode = vbKeyUp Then
         If Me.CurrentRecord > 1 Then Me.Recordset.MovePrevious
         KeyCode = 0
      ElseIf KeyCode = vbKeyDown Then
         If Me.CurrentRecord < LastRec Then Me.Recordset.MoveNext
         KeyCode = 0
      End If
   End If[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[neemi]

I'm fine Aceman,

That is perfect and works great! Thanks for your help.

 

[neemi]

One more thing. on updating these individual feilds I run a requery which sets the current record as the first one on the recordsource. Any advice on running a requery but keeping focus to the feild that was updated in the record that was updated?

 

[TheAceMan1]

neemi . . .

You can save a record without having to requery with:

[blue]   docmd.RunCommand acCmdSaveRecord[/blue]

This is for the current record!

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[neemi]

the reason why I am requerying is because when the user edits the field with a different number of hours some code runs which rights it to the main table. (table of dates is the main table and the recordsource is based on a maketable of a crosstab). and then the total hours is calculated which needs to be in the recordsource for the form, due to the fact that some conditional formatting is based on it. hence the requery.
It is quite complicated. so if you need me to explain in more detail please let me know.

 

[TheAceMan1]

neemi . . .

[blue]Roger That![/blue]

Here's the Idea:

[blue]   Dim hldID As Long, fldName As String
   
   hldID = Me![[purple][B][I]PrimaryKeyName[/I][/B][/purple]] [green]'to return to same record.[/green]
   fldName = Screen.ActiveControl.Name [green]'return to same field.[/green]
   
   Me.Requery
   
   Me.Recordset.FindFirst "[[purple][B][I]PrimaryKeyName[/I][/B][/purple]] = [red][b]'[/b][/red]" & hldID & "[red][b]'[/b][/red]"
   Me(fldName).SetFocus[/blue]

If the primarykey is numeric, remove the two single quotes in red ([red]'[/red]).

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[neemi]

thats great cheers...
I kindoff done something like that but used recordset clone and bookmark etc..
whish way would be programatically better? the way you suggested or recordsetclone and bookmark? Any thoughts?

 

[TheAceMan1]

neemi . . .

Although the result is the same you generate more lines of code compared to the one!

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886