Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
System error &H8000FFFF (-2147418113)
Hallo.
What is message: "System error &H8000FFFF (-2147418113)" Thank you |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
System error &H8000FFFF (-2147418113)
You need to call the FormatMessage API function to translate the system
error code to descriptive text. I have a procedure on my web site called GetSystemErrorMessageText that declares all the relevant constants, takes care of the string buffer handling, and returns a VBA string containing the error message. See http://www.cpearson.com/excel/FormatMessage.htm . Dim MsgText As String Dim ErrNum As Long ErrNum = &H8000FFFF MsgText = GetSystemErrorMessageText(ErrNum) Debug.Print MsgText In your case, FormatMessage for &H8000FFFF returns "Catastrophic failure". Not very descriptive. Some BAD happened. Could you post the code that produces the error? -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site) "Clovcek" wrote in message ... Hallo. What is message: "System error &H8000FFFF (-2147418113)" Thank you |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
System error &H8000FFFF (-2147418113)
Code in form:
------------------------------------- Private Sub cboEnd_Click() Unload Me End End Sub Private Sub optUvolneniTechnologemAno_Change() If optUvolneniTechnologemAno Then lblDatumUvolneni.Visible = True txtDatumUvolneni.Visible = True lblUvolnil.Visible = True cboUvolnil.Visible = True lblDuvodNeuvolneni.Visible = False txtDuvodNeuvolneni.Visible = False Else lblDuvodNeuvolneni.Visible = True txtDuvodNeuvolneni.Visible = True lblDatumUvolneni.Visible = False txtDatumUvolneni.Visible = False lblUvolnil.Visible = False cboUvolnil.Visible = False End If End Sub Private Sub optUvolneniTechnologemNe_Change() If optUvolneniTechnologemNe Then lblDuvodNeuvolneni.Visible = True txtDuvodNeuvolneni.Visible = True lblDatumUvolneni.Visible = False txtDatumUvolneni.Visible = False lblUvolnil.Visible = False cboUvolnil.Visible = False Else lblDatumUvolneni.Visible = True txtDatumUvolneni.Visible = True lblUvolnil.Visible = True cboUvolnil.Visible = True lblDuvodNeuvolneni.Visible = False txtDuvodNeuvolneni.Visible = False End If End Sub Private Sub UserForm_Initialize() With mpKarty.Pages("pgKarta1") .Caption = "Hlavička" .ControlTipText = "Hlavička operace" End With Sheets("Data").Activate Range("A2").Select Do If ActiveCell.Value = Empty Then Exit Do cboTechnolog.AddItem ActiveCell.Value cboUvolnil.AddItem ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop End Sub ---------------------------- If you need image of form, send me you e-mail address. Since book doesn't go save, cannot him send. Chip Pearson p*še: You need to call the FormatMessage API function to translate the system error code to descriptive text. I have a procedure on my web site called GetSystemErrorMessageText that declares all the relevant constants, takes care of the string buffer handling, and returns a VBA string containing the error message. See http://www.cpearson.com/excel/FormatMessage.htm . Dim MsgText As String Dim ErrNum As Long ErrNum = &H8000FFFF MsgText = GetSystemErrorMessageText(ErrNum) Debug.Print MsgText In your case, FormatMessage for &H8000FFFF returns "Catastrophic failure". Not very descriptive. Some BAD happened. Could you post the code that produces the error? -- Cordially, Chip Pearson Microsoft MVP - Excel www.cpearson.com (email address is on the web site) "Clov*cek" wrote in message ... Hallo. What is message: "System error &H8000FFFF (-2147418113)" Thank you |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error varying from System to System | Excel Programming | |||
system errror &H8000FFFF | New Users to Excel | |||
File/Path Error, then &H8000FFFF | Excel Discussion (Misc queries) | |||
System Error &H8000FFFF (-2147418113). Catastrophic Failure | Excel Programming | |||
system error &H8000FFFF | Excel Programming |