Closing the VBA Editor Window - vba

I am trying to close my Visual Basic Editor window. I couldn't find any perfect code for this. These are the previous suggested codes i have tried,
1) Application.VBE.MainWindow.Close
2) Application.VBE.ActiveWindow.Close
3) Application.VBE.ActiveCodePane.Window.Close
If I run any of these codes, i am getting the following Run time error(6068)
"Programmatic Access to Visual Basic Project is not trusted".
Please tell me if there is any solution for this problem.


Application.ShowVisualBasicEditor = False


Application.VBE.MainWindow.Visible = False
tested with:
Sub hideVBE()
MsgBox "foo"
Application.VBE.MainWindow.Visible = True
MsgBox "bar"
Application.VBE.MainWindow.Visible = False
End Sub

Related

Excel 'Cancel' button breaks entire application

Having trouble with calling an endpoint (connectionStringURI = http:\company.com:8000/Prices?format=csv&Transaction.ID=5456, e.g.). Call it with this code:
Set curveSource = curveDestination.QueryTables.Add(Connection:="TEXT;" & connectionStringURI, Destination:=DestinationSheet.Range("A1:F3000"))
curveSource.Name = "Prices"
curveSource.TextFileParseType = xlDelimited
curveSource.TextFileCommaDelimiter = True
curveSource.Refresh BackgroundQuery:=False
curveSource.SaveData = True
The call to the URI returns a csv file. Everything works great. When this code is hit:
curveSource.Refresh BackgroundQuery:=False
I see an Excel dialogue box that says, "Contacting the server for information", and it has a 'Cancel' button on it. If the user does nothing, it displays the data properly in the DestinationSheet. If the user clicks the 'Cancel' button while this is occurring, it breaks the entire spreadsheet. From then on, it throws an error at
curveSource.Refresh BackgroundQuery:=False
The error is, "Run-time error: '1004'. Excel cannot find the text file to refresh this external data range". The user has to close the file the Excel file and reopen it to get it to work. Can't find anything about this error after hours of googling.
I've tried setting everything to Nothing, removing QueryTables, very frustrating. Nothing seems to fix the issue.
Any ideas ?

Not sure if this would help but you can try Application.DisplayAlerts = False before that line, and revert back to True afterwards maybe. And/or On Error Resume Next before the line that give the error and On Error Goto 0 afterwards.

MS Access vba code error with visible invisible VBA code

I have a filed called application. I have written code in vba to make the other field "application_txt" field visible and invisible if a particular value from application field is selected. But for this particulat field application when I write the below code in vba it throws the error. I dont understand why. It works fine for the other fields. Below is the code:
Can anyone please help me with this problem. Is it allowed to give application as field name in MS Access.
Many thanks,
Kiran Chapidi
This is not working:
Private Sub application_Click()
If application.Value = "5= others" Then
Me.application_txt.Visible = True
Else
Me.application_txt.Visible = False
End If
End Sub
This is working fine:
Private Sub Design_Click()
If Design.Value = "3= others" Then
Me.design_txt.Visible = True
Else
Me.design_txt.Visible = False
End If
End Sub

How to I correctly handle a FollowHyperlink Error in VBA?

We're currently transitioning our current product site to a new one, and I need to put in some error handling to say that if the hyperlink returns an error on the new site, to look for it on the old site. The problem I'm having is that I'm currently trying to open up 2 separate pages. The logic would be:
If there's an error looking up [OldSKU] on the new site, follow the
hyperlink to the old site for the [OldSKU]
If there's an error looking up [ClosestSKU] on the new site, follow the
hyperlink to the old site for the [ClosestSKU]
In either case, only 2 tabs would open in the user's browser. With my current VBA, it's actually opening up 3 tabs, and I don't think my logic is sound.
Private Sub ClosestSKU_DblClick(Cancel As Integer)
On Error GoTo Error_Old
Access.FollowHyperlink "https://www.oursite.com/newstorefront/c/p/" & [OldSKU], , True
Error_Old:
Access.FollowHyperlink "https://www.oursite.com/oldstorefront/search/?text=" & [OldSKU], , True
On Error GoTo Error_New
Access.FollowHyperlink "https://www.oursite.com/newstorefront/c/p/" & [ClosestSKU], , True
Error_New:
Access.FollowHyperlink "https://www.oursite.com/oldstorefront/search/?text=" & [ClosestSKU], , True
End Sub
Any help/advice you all could provide would be greatly appreciated.
Thanks!

You must make sure your error handlers are out of the flow of your program. There are various ways to do that. If you don't want to move them, you can wrap them in If False Then to make sure they only get triggered if an error occurs.
Private Sub ClosestSKU_DblClick(Cancel As Integer)
On Error GoTo Error_Old
Access.FollowHyperlink "https://www.oursite.com/newstorefront/c/p/" & [OldSKU], , True
If False Then
Error_Old:
Access.FollowHyperlink "https://www.oursite.com/oldstorefront/search/?text=" & [OldSKU], , True
End If
On Error GoTo Error_New
Access.FollowHyperlink "https://www.oursite.com/newstorefront/c/p/" & [ClosestSKU], , True
If False Then
Error_New:
Access.FollowHyperlink "https://www.oursite.com/oldstorefront/search/?text=" & [ClosestSKU], , True
End If
End Sub

Can't find a library or function - Visual Basic 6

I am a newbie in visual basic, when i tried to run this code,the above error pops up.I have declared an user defined function named initiative but for no reason the error pops up.
Private Sub initiate()
For i = 0 To 2
COURSE(i).Value = False
SEM(i).Value = False
If i <> 2 Then
ODDEVEN(i).Value = False
End If
Any help is appreciated.

VBA code when refering a SubReport from a Main Report in Access

I am setting an instruction (VBA) in On Load Event on a report in MS Access.
When I open the report,the code works perfect.
But when i try to embeded the report as a subreport on a main report, the code doesnt work.
I think the problem is that I should be referering the field different(Me.Service1...), since I am trying to call the field now from a main report, but i havent found the right syntaxis.
This is the code i wanna embeed on my main report:
Private Sub Report_Load()
If Me.Service1 = "Scanmachine" Then
Me.Vessel.Visible = True
Me.Label400.Visible = True
Else
Me.Vessel.Visible = False
Me.Label400.Visible = False
End If
End Sub
Any suggestions?

Indeed, you need to change the relative reference of your sub report controls. Over the course of my Access database development work, I have used this Access MVPs resource, even bookmarked the webpage (though it uses forms, the same naming setup applies to reports).
Consider the following, adjusting names accordingly and run this on the main report's OnOpen() event:
Private Sub Report_Load()
If Me![subreportcontrolname].Report!Service1 = "Scanmachine" Then
Me![subreportcontrolname].Report!Vessel.Visible = True
Me![subreportcontrolname].Report!Label400.Visible = True
Else
Me![subreportcontrolname].Report!Vessel.Visible = False
Me![subreportcontrolname].Report!Label400.Visible = False
End If
End Sub