Find and bookmark function of adodc to a data control

[jaz215]

hi! in my program i'm using the find and bookmark function of the adodc control. as the people want me to use a normal data control, when i tried to run it using the same commands i've got an error. is there any other way to do this function through a data control? i'll post on what i've got but i it seems no to work. can anyone help me pls..

Dim counter As Integer
counter = 0
adoEmployee.Recordset.MoveFirst
Do While adoEmployee.Recordset.EOF
    MsgBox (adoEmployee.Recordset.Fields(0).Value)
    If txtInputID.Text = adoEmployee.Recordset.Fields("EmployeeID").Value Then
        counter = 1
    End If
    adoEmployee.Recordset.MoveNext
Loop
If counter = 0 Then
    MsgBox "Employee ID does not exist", vbInformation, "Find Failure"
    txtInputID.Text = ""
    txtInputID.SetFocus
    adoEmployee.Recordset.MoveFirst
    Exit Sub
End If

[QVeen72]

Hi,

Why Loop through complete Record set. Use "Find" method of ADODC..

Check this out :

adoEmployee.Recordset.MoveFirst
adoEmployee.Recordset.Find "EmployeeID='" & txtInputID.Text & "'"
If adoEmployee.Recordset.NoMatch Then
    MsgBox "No Matching Record Found"
Else
   MsgBox "Match Found ,..Name Is  " & adoEmployee.Recordset("EmpName")
End If
End If

Regards
Veena

[jaz215]

Hi,

I've tried what you said but it doesn't work. an error i got (object doesnt support property or method) its probably because i'm not using adodc, im using a normal data control (sorry if the naming got you confused) does anyone know how to find using normal data control?

** what i mean about normal data control is the one that's is already in the toolbox without adding components

[lotus18]

Hi jaz215

Dim counter As Integer
counter = 0
adoEmployee.Recordset.MoveFirst
Do While adoEmployee.Recordset.EOF
    MsgBox (adoEmployee.Recordset.Fields(0).Value)
    If txtInputID.Text = adoEmployee.Recordset.Fields("EmployeeID").Value Then
        counter = 1
    End If
    adoEmployee.Recordset.MoveNext
Loop
If counter = 0 Then
    MsgBox "Employee ID does not exist", vbInformation, "Find Failure"
    txtInputID.Text = ""
    txtInputID.SetFocus
    adoEmployee.Recordset.MoveFirst
    Exit Sub
End If

When opening your recordset, try this:

     "Select * From <TableName> Where <FieldName>='" & Text1.Text & "'"
 

[jaz215]

Hi lotus & queen!

I've found out what the problem is, there is no find in datacontrol only findfirst :P (i thought the code was correct as there were no error before i run it) sorry for the trouble you guys! thanks for the help!

[QVeen72]

Hi,
I've tried what you said but it doesn't work. an error i got (object doesnt support

Hi,

OK, My Coding was for ADODC. and yes, your naming got me confused.
For normal Data Control (call it as DAO's data control)
you can change the code (my previuos post) from
".Find" to ".FindFirst"
You must have got the error in this line..
Rest of the coding remiand same..

Regards
Veena

[jaz215]

Thanks Veena & Lotus!

Sorry about the coding convention it was my first time using the DAO :P