내 문제는 열린 특정 보고서 인스턴스에 포커스를 설정하는 것입니다. 양식 객체에는 완벽하게 작동하지만 Report 객체에는 작동하지 않는 함수를 복사합니다. 내 기능 : 오류 438 MS 특정 다중 보고서 인스턴스에 초점을 설정하는 방법에 액세스
Function mInstanceReportCA(varYear As Variant)
Dim oReport As Access.Report
Dim obj As Object
' Création du nouveau formulaire
For Each obj In clsReport
If obj.txtYear = varYear Then
obj.Visible 'Error 438
obj.SetFocus 'Error 2465
Exit Function
End If
Next obj
Set oReport = New Report_rptCaMois
' Activation du nouveau formulaire
With oReport
If varYear = "1999" Then
.txtYear = "1999"
.Caption = "Rapport toutes années confondues"
.Filter = "Year(dateFacture) > 1999 "
Else
.txtYear = CStr(varYear)
.Caption = "Rapport pour l'année " & CStr(varYear)
.Filter = "Year(dateFacture) = " & varYear
End If
.FilterOn = True
.Visible = True
End With
' Ajout du formulaire à la collection globale
clsReport.Add Item:=oReport, Key:=CStr(oReport.Hwnd)
Set oReport = Nothing
end function
오류 메시지가
- obj.Visible을 생성 오류 2465
감사합니다. elp
clsReport 란에
감사? 보고서의 배열이 아닌 것으로 보입니다. 객체 – BitAccesser
clsReport는 콜렉션 객체입니다. –
보고서 객체 인 경우'debug.print TypeName (obj)'로 확인하십시오. – BitAccesser