Mouse Pointer to Hourglass

[ARPRINCE]

How do I change a mouse pointer to an hourglass in excel OR disable the CLOSE PROGRAM (the "X" on the upper right hand)?

Thanks

[si_the_geek]

here you go..

Application.Cursor = xlWait
'your code here
    Application.Cursor = xlDefault

You can set it to:
xlDefault -The default pointer
xlWait - The hourglass pointer
xlNorthwestArrow - The northwest-arrow pointer
xlIBeam - The I-beam pointer

[ARPRINCE]

Thanks. Now I just how to figure out how to call this in my VB program when the function export to excel is called.

[si_the_geek]

assuming you have a variable to reference excel:

objExcel.Cursor = xlWait

(where objExcel is your variable)

[ARPRINCE]

Dim objEXCEL As Object     '-OBJECT USED TO EXPORT EXCEL
   Dim iINDEX As Integer
   Dim iROWINDEX As Integer
   Dim iCOLINDEX As Integer
   Dim iRECORDCOUNT As Integer
   Dim iFIELDCOUNT As Integer
   Dim sMESSAGE As String
   Dim avROWS As Variant
   Dim excelVERSION As Integer
   
   adoRSQUERY.MoveFirst
   '-PLACE ALL RECORDSET IN AN ARRAY
   avROWS = adoRSQUERY.GetRows()
   
   iRECORDCOUNT = UBound(avROWS, 2) + 1
   iFIELDCOUNT = UBound(avROWS, 1) + 1
   
   Set objEXCEL = CreateObject("Excel.Application")
   objEXCEL.Visible = True
   objEXCEL.workbooks.Add
   
   excelVERSION = Val(objEXCEL.Application.Version)
   If (excelVERSION >= 8) Then
      Set objEXCEL = objEXCEL.activesheet
   End If
   objEXCEL.cursor = xlwait

I get a "VARIABLE NOT DEFINED" error at the last line with the xlwait highlighted. What did I miss here?

[ARPRINCE]

Set objEXCEL = CreateObject("Excel.Application")
   'MOVED HERE
   objEXCEL.cursor = xlwait
   objEXCEL.Visible = True
   objEXCEL.workbooks.Add
      
   excelVERSION = Val(objEXCEL.Application.Version)
   If (excelVERSION >= 8) Then
      Set objEXCEL = objEXCEL.activesheet
   End If

I moved the line but I still get the same error.

[si_the_geek]

ah, didn't realise you were using late binding...

the value of xlWait is 2, so just put 2 in place of it

to find out any other Excel constants (xl***), go into Excel's Vba editor and press F2 - type the name into the second combo, press the find icon, then you will get the definition at the bottom of the screen (eg: Const xlWait = 2)

[ARPRINCE]

Great that did the trick!!! Thank you.