Hi Guy's, I have looked a couple of things on this but unsure if something is possible ?
So the following piece of code (not fully pasted) as there is a lot, however, based on what is pasted, this opens up the correct Tab Page from Main page, adds in the correct week dates etc based on strSL
Is there a method where it can highlight the specific record ie select so the record highlights blue as if you had selected it manually ?
The records are displayed on a Form in Datasheet view
IDEALLY TAKE OUT PART OF MSGBOX "Scroll To", everything works fine but I suppose my question is, can I auto scroll and/or highlight and/or select the record based on strSL
Hoping there is enough here to advise ?
Code:
varStatusOpt = InputBox(strSL & " Is In Deliveries For Week: " & Format(dtDate, "dddd-dd-mmm-yyyy") & vbCrLf & vbCrLf & _ "What Do You Want To Do Next ?" & vbCrLf & vbCrLf & _
vbTab & "Leave Blank to Abort" & vbCrLf & vbCrLf & _
vbTab & Chr(149) & " 1 " & Chr(149) & " To Go To Record" & vbCrLf & vbCrLf & _
vbTab & Chr(149) & " 2 " & Chr(149) & " To Remove From Assign And Re-Plan", "RECORD FOUND")
Select Case varStatusOpt
Case ""
Exit Sub
Case Is = "1"
MsgBox ("Opening Assigned Deliveries For " & Format(dtDate, "dddd-dd-mmm-yyyy") & vbCrLf & vbCrLf & _
"Scroll To: " & strDelTo & vbCrLf & vbCrLf & _
strSL), vbInformation + vbOKOnly, "GOING TO RECORD NOW"
Forms!frmMainMenu.tbcMain = 3
Forms!frmMainMenu!frmIndex3!cboShipmentDateIndex3 = DLookup("ShipmentDate", "tblEdit", "[SONumber] = '" & strSL & "'")
Forms!frmMainMenu!frmIndex3!txtDelDate = dtDate
Forms!frmMainMenu!frmIndex3DS.Requery
End Select