The following Dodgers have been smited by the JDK for their crimes against Jam:
All the girls! for picking on the JDK and damaging his already delicate self esteem!
The Basserd Who Nicked Copper's Stuff For the offense of nicking Copper's stuff. You are a tw*t, whoever you are and we all hope you get run over by a tram in Nottingham. Or Liverpool. Or whereever else they have trams!
Copper For the crime of playing with her Wii instead of her Jammie pals!
I'm simply trying open a very dodgy file (more the developers fault, not Excel's) off of a very slow network, based in Phoenix.
Normally I would terminate Excel and try again, but I had another file, still open in the same instance with a lot information that I was rollling up for 100s of files and if I kill the instance, it's all gone.
I usually back up all the time, and now I remember why... This looks like an indefinite loop of some sort...
Damn it. There is a Workbook Open macro, one that I wrote. It’s trying to flip the ODBC connection to a SQL Server that was taken down after I wrote the App/Code and then populate the connection with some information from the local Lotus Notes App for the DB Admins to see (so that it didn't, falsely, appear like I, personally, was logged in 500 times).
What the hell it’s still doing in there is beyond me…
Er, it's a Lotus Notes problem, the following isn't working properly, for some reason, in the Open Event:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long
Public Function GrabUser() As String Dim User As String h = FindWindow("Notes", vbNullString) If CBool(h) Then On Error GoTo 1 GrabUser = NotesID Else: GrabUser = Application.UserName End If Exit Function 1: GrabUser = Application.UserName End Function
Private Function NotesID() As String Dim Session As Object, MailDB As Object Dim UserName As String, MailDBName As String Set Session = CreateObject("Notes.NotesSession") UserName = Session.UserName MailDBName = Left$(UserName, 1) & Right$(UserName, _ (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" Set MailDB = Session.GetDataBase(vbNullString, MailDBName) If Not MailDB.IsOpen Then MailDB.OpenMail NotesID = Mid$(UserName, 4, InStr(1, UserName, "/") - 4) Set Session = Nothing: Set MailDB = Nothing End Function
Worked fine in my old version of Notes, not so hot in my recent upgrade. Still using R5 though, so I'm not quite sure what the problem is... Lotus screws me again...
Er sorry, I use Novell Groupwise. Does Notes expose its API for you to use early binding instead of creating objects at runtime? The infinite loop was from creating an automation object right? This may be your problem
Set Session = CreateObject("Notes.NotesSession")
can you try explicitly creating a Notes object at compile time? You will need to check your references to see if you have a notes object
Groupwise's is called a GroupwiseCommander (how queer is that). Its in the Groupwise Client Library. See if you can find some documentation on the API
For shipping I want to use Late Binding as we have users using R5 (release 5), R6, and God knows what...
But, there is a 'Lotus Notes Automation Class' library I can poke around in and check out some of my code... It looks right, but I think you're right in that CreateObject() as such is probably the culprit...
For now, because that SQL Server is down, the solution is to delete the code.
Pretty schwaggart when your own code bites you in the ass!