using send keys as a sub or function

[tjcinnamon]

I have some send keys F3 and F4 to move to next and previous record, what I'm trying to do is when on the first record I want to disable or not run the macro to goto previous record. The same goes for the last record, I want to disable goto the next record if I'm on the last.

I tried making a sub that used sendkeys but was unable to get it to execute from the form (I'm not sure if thats possible or what the format is if it is). The function I can get to run but cannot use me. to check the current record position. Any suggestions appreciated.

JOe K.

 

[MarkK]

Consider this...

Private Sub cmdMoveNext()
  With Me.Recordset
    If .AbsolutePosition < .RecordCount - 1 Then
      .MoveNext
    Else
      .MoveFirst
      MsgBox "Top of list"
    End If
  End With
End Sub

Does that help at all?

 

[tjcinnamon]

How would I use that code in a function? I don't think I could use me. Also I'm not sure how to use recordcount. But this is a good start.