Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 173
  • Last Modified:

Compiler Error

Why does the compiler stop here.  The Data1 control is defined in the property box for itself so DBList can operate.  See the ">" for the location of compiler error.

Private Sub A()
    Dim Fake As Integer
End Sub

Private Sub DBList1_Click()
    DBList1.Recordset.Bookmark = DBList1.SelectedItem
End Sub
>>>>>>>Private Sub cmdFirst_Click()
    Data1.Recordset.MoveFirst
    Data1.BoundText = Data1.Recordset.Fields("Name").Value
End Sub
Private Sub cmdNext_Click()
    If Not Data1.Recordset.EOF Then
        Data1.Recordset.MoveNext
        If Data1.Recordset.EOF Then
            Data1.Recordset.MovePrevious
        End If
        Data1.BoundText = Data1.Recordset.Fields("Name").Value
    End If
End Sub
Private Sub cmdPrev_Click()
    If Not Data1.Recordset.BOF Then
        Data1.Recordset.MovePrevious
        If Data1.Recordset.BOF Then
            Data1.Recordset.MoveNext
        End If
        Data1.BoundText = Data1.Recordset.Fields("Name").Value
    End If
End Sub
Private Sub cmdLast_Click()
    Data1.Recordset.MoveLast
    Data1.BoundText = Data1.Recordset.Fields("Name").Value
End Sub



0
optical
Asked:
optical
1 Solution
 
opticalAuthor Commented:
Thank you.
0
 
percosolatorCommented:
what error message are you getting?  the compiler should give you a reason why it stopped.
0
 
swiltCommented:
If the error is 'Procedure declaration does not match description of event or procedure having same name' then select the button cmdFirst at design time and change the 'index' is the properties to nothing i.e. deleted anything that is there, the index property denotes that the button is in a control array
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now