Dim stDocName As StringDim stLinkCriteria As String stDocName = "GorevYeri" stLinkCriteria = "[kimlik]=" & Me![List1]DoCmd.OpenReport stDocName, , , stLinkCriteria
Private Sub Form_Load()Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .Navigate "https://URL" End WithEnd Sub