quanto ao primeiro agora diz que o meu banco nao pode ser encontrado

e quanto ao activate la , veio , nao funciono, mas eu axo q é em relacao ao banco que esta desconectado no form menu, se eu conecto o banco de novo da erro no new connection ta ligado

Ae vei eu to com um filtro aki q faz o seguinte ele aparece no relatorio somente o registro q esta na capa do form , so um registro ate ai ta certo mas se tiver dois registros codigos 01 tem que aparecer ta ligado ,e quando eu saio do relatorio o mouse fica tipo akela ampulheta ta ligado , como se o program tivesse dado pau , eu tentem colocar o mouse pointer no form load , mas nao adiantou é algum comflito memo se tiver dois com o mesmo codigo ele so vai pegar o primeiro, saco , e esta dando erro de overflow ta ligado, ou quando eu saio e da erro de " Out of Stack Space" , da erro no unloade do botao voltar ta ligado , o botao voltar leva para o form menu, sei la oq acontece , o codigo é esse, tiop agora deu pau geral nao consigo nem abrir o program, no meu sistema tem dois tipos de codigo o codigo do cliente e o codigo do imoveil, so q ambos podem ser 01 e nas outros registros tamen pode ter codigoimovel 01 , eu queria puxase pelo codigo xave da tblqu é  o codigo do cliente liga,  no relatorio , quando eu tento colocar nos codigos  enveis de Codigoimo colocar CodigoCli para tentar puxar o relatorio pegando somente os codigos do cliente, da erro nesta expressao "rst.Open sSql, , adOpenStatic, adLockBatchOptimistic" que esta la embaixo, tipo erro assim " tipos de dados incompativel na expressao de criterios

eo problemas é quando volta do relatorio, ta ligado

No frmApartamentos coloque o seguinte:

 

Private Sub Form_Activate()
Me.MousePointer = 0
End Sub

 

 

ENVIEI PARA O SEU E-MAIL O PROJETO JÁ COM AS DEVIDAS CORREÇÕES DOS BUGS DE AMPULHETA E CONECÇÃO..

veoi o codigo q estou mudando mudaou ja nao é mais akele

eu tenho esse codigo aki tamen vei so q esta dando erro aki ".DataControl1.DatabaseName = "C:WINDOWSDesktopCópia de ImobiliariaBdimobiliaria.mdb"

ta ligado , object doestn't suport this property or method

 

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