Highlight a line in a continuous form (& FindFirst)

boliches

I am trying to get a continuous form to highlight lines individually (ideally on hover). I have used the following code as recommended by a previous entry on this website. My problems begin in that my Database does not appear to recognise "FindFirst". The sample database I downloaded for help does recognise the script and when I begin to type the drop down gives the prompt for "FindFirst"! Why is it that my MDB does not? The only drop downprompt is "Find"

The code I am trying to work with is:

Expand|Select|Wrap|Line Numbers

 
Function GetLineNumber()

Dim RS As Recordset

Dim CountLines

Dim F As Form

Dim KeyName As String

Dim KeyValue
 
Set F = Form

KeyName = "productid"

KeyValue = [ProductID]
 
         On Error GoTo Err_GetLineNumber

         Set RS = F.RecordsetClone

         ' Find the current record.

         Select Case RS.Fields(KeyName).Type

            ' Find using numeric data type key value.

            Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _

            DB_DOUBLE, DB_BYTE

               RS.FindFirst "[" & KeyName & "] = " & KeyValue

            ' Find using date data type key value.

            Case DB_DATE

               RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"

            ' Find using text data type key value.

            Case DB_TEXT

               RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"

               RS.F

            Case Else

            MsgBox "ERROR: Invalid key field data type!"

               Exit Function

               End Select

         ' Loop backward, counting the lines.

         Do Until RS.BOF

            CountLines = CountLines + 1

            RS.MovePrevious

            Loop

Bye_GetLineNumber:               ' Return the result.

         GetLineNumber = CountLines

         Exit Function

Err_GetLineNumber:

      CountLines = 0

      Resume Bye_GetLineNumber

End Function

Any assistance please.

JKing

I suppose we should start with the FindFirst issue. Check to make sure you have a reference to the Microsoft DAO 3.6 Object Library (or higher). To do this open the VBA editor and go to Tools > References then scroll through to find and check the library.

boliches

Quote:

Originally Posted by JKing

I suppose we should start with the FindFirst issue. Check to make sure you have a reference to the Microsoft DAO 3.6 Object Library (or higher). To do this open the VBA editor and go to Tools > References then scroll through to find and check the library.

Have done as suggested and added MS DAO 3.6 as well as Utility.mda but still I can only get "Find" when I start typing and enter a period (.) ie rs. producing a drop down list but sadly no FindFirst only "Find". I am sure there is a simple solution. Your help and knowledge is appreciated!

boliches

Quote:

Originally Posted by boliches

Have done as suggested and added MS DAO 3.6 as well as Utility.mda but still I can only get "Find" when I start typing and enter a period (.) ie rs. producing a drop down list but sadly no FindFirst only "Find". I am sure there is a simple solution. Your help and knowledge is appreciated!

Have since tried the following which has worked!

Dim rs AS DAO.recordset

This has enabled the FindFirst in the drop down list.

Thanks for the pointer.

Any other ideas on highlighting an individual line in a continuous form ideally on "hover"?

Highlight a line in a continuous form (& FindFirst)

re: Highlight a line in a continuous form (& FindFirst)

re: Highlight a line in a continuous form (& FindFirst)

re: Highlight a line in a continuous form (& FindFirst)

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about