Pessoal eai blz, eu coloquei um relatorio no meu programfeito em active report e recebi eesa insrtuçao , coloquei um command dentro do meu form e coloquei esse codigo la dentro o motivo era para poder selecionar o registro a ser impresso, por exemplo poder imprimir em active report somente o registro a ser selecionado tipo 1 registro apenas ou 2 registros sem ter q imprimir a folha inteira e esta dando o seguinte erro nesse codigo "Method or Data menber Not Found" e esta selecionado o

DAODataControl1, alguem pode me ajudar?

 Private Sub Command3_Click()
Dim CodPesq As Long
Dim strSQLRpx As String
Dim rptTeste As Index

CodPesq = 10
strSQLRpx = "Select * From Tbl_Areas WHERE Código=" & CodPesq & "" ' Código Numérico
strSQLRpx = "Select * From Tbl_Areas WHERE Código='" & CodPesq & "'" ' Código String
    With rptTeste
      .DAODataControl1.DatabaseName = "C:WINDOWSDesktopCópia de ImobiliariaBdimobiliaria.mdb"
      .DAODataControl1.RecordSource = Tbl_Areas
      .Caption = rprRelaAreas
      .Show
    End With
End Sub

Private Sub Command3_Click()
Dim CodPesq As Long
Dim strSQLRpx As String
Dim rptTeste As Index

CodPesq = 10
strSQLRpx = "Select * From Tbl_Areas WHERE Código=" & CodPesq & "" ' Código Numérico
strSQLRpx = "Select * From Tbl_Areas WHERE Código='" & CodPesq & "'" ' Código String
    With rptTeste
      .DAODataControl1.DatabaseName = "C:WINDOWSDesktopCópia de ImobiliariaBdimobiliaria.mdb"
      .DAODataControl1.RecordSource = strSQLRpx 

      .Caption = "RELATORIO"

      .Show
    End With
End Sub

Esta dando um erro method or data menber not found, no ADOAPART, alguem sabe oq é? obrigado

Dim CodPesq As Long
Dim strSQLRpx As String
Dim rptTeste As Index
CodPesq = 10
strSQLRpx = "Select * From Tbl_Apartamentos WHERE Código=" & CodPesq & "" ' Código Numérico
strSQLRpx = "Select * From Tbl_Apartamentos WHERE Código='" & CodPesq & "'" ' Código String
    With rptTeste
      .DAOAPART.DatabaseName = "C:WINDOWSDesktopCópia de ImobiliariaBdimobiliaria.mdb"
      .DAOAPART.RecordSource = strSQLRpx
      .Caption = "RELATORIO"
      .Show
    End With

por acaso o DAOAPART que é um controle DAO, existe no relatorio ou está com o nome correto ?

 

Roberto

 

 

Este e´o nome do dao mas eu nao sei oq esta errado , no recordsettype se deixa " dynaset ou table" rptTeste seria uma bariavel ou o nome do meu relatorio?

rptTeste é o nome do form onde está o designe do seu relatório. Já testou a sua string SQL para ver se retorna dados? talvez seja isso..