problem with Datareport please help me iam final stage in my project

[pramodrepaka]

hi this is pramod i am facing a small problem

Private Sub Command_Click()
Dim a As String

a = InputBox("enter empno")

If rs.State = 1 Then rs.Close

rs.Open "select * from microbiology Where bat_num = " & a, cn, adOpenForwardOnly, adLockReadOnly

LinkDataReport1

end sub

Public Sub LinkDataReport1()

With DataReport2

    'We must set The DataReport source to nothing!
    'Else DataReport wants to use its own Source
    Set .DataSource = Nothing
    .DataMember = ""
    
        'We Connect the DataReport to our Recordset Since
        'we disallowed DataReport1 to use its own above
        Set .DataSource = rs
                
        'Here we are 'Hard Coding the textboxs to the fields
        With .Sections("Section1").Controls
            .Item(1).DataMember = ""
            .Item(1).DataField = rs.Fields(0).Name
            .Item(2).DataMember = ""
            .Item(2).DataField = rs.Fields(1).Name
            .Item(3).DataMember = ""
            .Item(3).DataField = rs.Fields(2).Name
            .Item(4).DataMember = ""
            .Item(4).DataField = rs.Fields(3).Name
            .Item(5).DataMember = ""
            .Item(5).DataField = rs.Fields(4).Name
       End With
               
    .Show

End With

End Sub

In the above code i am getting a RUNTIME Error i.e

Object does not support this property or method

while in the above code when iam using with datareport1 i am not getting error
what is the problem i am not able to understand please help if any can

[Killer42]

Do you know which line produces the error?

[pramodrepaka]

Do you know which line produces the error?

.Item(1).DataMe mber = ""
.Item(1).DataFi eld = rs.Fields(0).Na me

error: object doesn't support this property or method

[Dököll]

.Item(1).DataMe mber = ""
.Item(1).DataFi eld = rs.Fields(0).Na me

error: object doesn't support this property or method

Hey there, pramodrepaka!

Looks like you dimensioned a, but you did not do the same for rs. Your problem may be more specific. Also, run your code in debug mode to see what it is doing:

(1) Choose Debug
(2) Step Into
(3) Hit F8 until you each the error pop up

I will plug in your code see what it does here...

[Dököll]

.Item(1).DataMe mber = ""
.Item(1).DataFi eld = rs.Fields(0).Na me

error: object doesn't support this property or method

Hey there, pramodrepaka!

Looks like you dimensioned a, but you did not do the same for rs. Your problem may be more specific. Also, run your code in debug mode to see what it is doing:

(1) Choose Debug
(2) Step Into
(3) Hit F8 until you each the error pop up

I will plug in your code see what it does here...

[pramodrepaka]

hey
i tried what u said but i am not able to solve the problem i,e the error is
.Item(1).DataMe mber = ""
.Item(1).DataFi eld = rs.Fields(0).Na me

the error number is 438
and the error message is
object doesn't support this prorperty or method
what 2 do i am not able 2 understand plz help me

Hey there, pramodrepaka!

Looks like you dimensioned a, but you did not do the same for rs. Your problem may be more specific. Also, run your code in debug mode to see what it is doing:

(1) Choose Debug
(2) Step Into
(3) Hit F8 until you each the error pop up

I will plug in your code see what it does here...

[Killer42]

.Item(1).DataMe mber = ""
.Item(1).DataFi eld = rs.Fields(0).Na me

There are two lines there. We still don't know which one produces the error. Which also means that we don't know whether the error refers to .Item(1) or rs.Fields(0).

You need to be more specific.