Hi All,
I am in .NET 2003
I have a form and a toolbar on the form.
When the user clicks on a button on the toolbar I call
the following Sub
I get a crash on the last line: tlbSearch.Butto ns(0).Enabled = True
' Enable search
An unhandled exception of type "System.Nullref erenceExecption " occured
etc.....
Object Reference not set to an instance of an object
How can this be?, near the stop of the Sub I execute:
tlbSearch.Butto ns(0).Enabled = False ' Disable search
with no problem. What could have happended to the toolbar object?
I am new to objects, I come from a VB background.
Thanks in Advance,
Larry
'--------------------------------------------------------------------------------------
Public Sub DoTheSearch()
Dim intDX As Integer
Dim Structures As New clsStructures
Dim clsMiscProjMult i As New
MiscProjectMult iTable_Handler( Permissions.Con nectionString)
Dim SearchDataReade r As SqlClient.SqlDa taReader
Dim blnWhere As Boolean = False
Dim TheRetrievalTyp e As RetrievalType
Dim NotFoundMsg As String
Dim strSelectString = "SELECT ProjectID,Reg,F ee,Title," & _
"MiscFeeTypeID, " & _
"Fee, Quarter,
[Year],MiscProjectSta tusID," & _
"StatusDate,Mis cellaneous_Proj ect.Account_ID, FinalizedDate," & _
"ContactEmploye eID,ContactEmai l," & _
"Unex_Employee. EmpFirstName + ' ' +
Unex_Employee.E mpLastName As EmpName," & _
"Account.Exp_Ac count + '-' +
Account.Cost_Ce nter As ExpAcctCC " & _
"FROM Miscellaneous_P roject " & _
"Left Outer Join Unex_Employee " & _
"On
Miscellaneous_P roject.ContactE mployeeID = Unex_Employee.E mployeeID " & _
"Left Outer Join Account " & _
"On Miscellaneous_P roject.Account_ ID
= Account.Account _ID "
'----------
Me.Cursor = System.Windows. Forms.Cursors.W aitCursor()
tlbSearch.Butto ns(0).Enabled = False ' Disable (this is ok)
menuSearch.Enab led = False
tlbSearch.Butto ns(1).Enabled = True ' Enable
stop
menuStop.Enable d = True
tlbSearch.Butto ns(2).Enabled = False '
Disable print
menuPrint.Enabl ed = False
tlbSearch.Butto ns(4).Enabled = False '
Disable the create new button.
menuCreateNew.E nabled = False '
Disable the create new menu item.
tlbSearch.Butto ns(5).Enabled = False '
Disable Edit
menuEdit.Enable d = False
stsSearch.text = "Searching..... "
' Clear the grid.
C1FGResults.Row Sel = -1
C1FGResults.Col Sel = -1
If C1FGResults.Row s.Count > 1 Then
For intDX = (C1FGResults.Ro ws.Count - 1) To 1 Step -1
C1FGResults().R ows.Remove(intD X)
Next
End If
'-----------------------------------------------
If Me.txtRegProjID .Text = vbNullString Then
' look for projects using the type, Status and Deparatment
' build the query string, using the parameters.
If c1cboFeeType.Se lectedIndex > 0 Then
strSelectString = strSelectString & " Where
Miscellaneous_P roject.MiscFeeT ypeID = " &
Structures.GetC omboValue(c1cbo FeeType)
blnWhere = True
End If
'----------
If c1cboProjectSta tus.SelectedInd ex > 0 Then
If blnWhere = False Then
strSelectString = strSelectString & " Where "
blnWhere = True
Else
strSelectString = strSelectString & " And "
End If
strSelectString = strSelectString &
"Miscellaneous_ Project.MiscPro jectStatusID = " &
Structures.GetC omboValue(c1cbo ProjectStatus)
End If
'----------
If c1cboDept.Selec tedIndex > 0 Then
If blnWhere = False Then
strSelectString = strSelectString & " Where "
blnWhere = True
Else
strSelectString = strSelectString & " And "
End If
strSelectString = strSelectString &
"Miscellaneous_ Project.Account _ID = " & Structures.GetC omboValue(c1cbo Dept)
End If
'----------
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString,
SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then
While SearchDataReade r.Read() = True
Call AddARow(SearchD ataReader)
End While
Else
Me.Cursor = System.Windows. Forms.Cursors.D efault()
MsgBox("Unable to find any projects with the parameters
selected.", MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.")
End If
Else
Me.Cursor = System.Windows. Forms.Cursors.D efault()
Dim err As New errorHandler(cl sMiscProjMulti. lastException,
"", True)
End If
Else
' Did the user enter a project Id or a Reg number?
If IsNumeric(Mid(t xtRegProjID.Tex t, 1, 1)) Then
strSelectString = strSelectString & " Where ProjectID = " &
Trim$(txtRegPro jID.Text)
TheRetrievalTyp e = RetrievalType.P rojectID
Else
' the user entered a reg number.
strSelectString = strSelectString & " Where Reg = '" &
Trim$(txtRegPro jID.Text) & "'"
TheRetrievalTyp e = RetrievalType.R egNumber
End If
' do the read.
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString,
SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then
SearchDataReade r.Read()
Call AddARow(SearchD ataReader)
Else
Me.Cursor = System.Windows. Forms.Cursors.D efault()
If TheRetrievalTyp e = RetrievalType.P rojectID Then
NotFoundMsg = "Project ID of : " & Trim$(txtRegPro jID.Text)
Else
NotFoundMsg = "Reg Number of : " & Trim$(txtRegPro jID.Text)
End If
MsgBox("Unable to find a project with a " & NotFoundMsg,
MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.")
End If
Else
Me.Cursor = System.Windows. Forms.Cursors.D efault()
Dim err As New errorHandler(cl sMiscProjMulti. lastException,
"", True)
End If
End If
'-------------------------------------------------------
Me.Cursor = System.Windows. Forms.Cursors.D efault()
tlbSearch.Butto ns(0).Enabled = True ' Enable (This crashes) 6 3674
I would suggest you first put Option Explicit On, the .vb file and see if
you get any errors in the method, correct them and try.. If you still get
the error , we will take it from there
Vijay
"Larry" <bl***@Blifff.c om> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. .. Hi All, I am in .NET 2003
I have a form and a toolbar on the form. When the user clicks on a button on the toolbar I call the following Sub
I get a crash on the last line: tlbSearch.Butto ns(0).Enabled = True ' Enable search
An unhandled exception of type "System.Nullref erenceExecption " occured etc..... Object Reference not set to an instance of an object
How can this be?, near the stop of the Sub I execute: tlbSearch.Butto ns(0).Enabled = False ' Disable search with no problem. What could have happended to the toolbar object?
I am new to objects, I come from a VB background.
Thanks in Advance,
Larry
'--------------------------------------------------------------------------------------
Public Sub DoTheSearch()
Dim intDX As Integer Dim Structures As New clsStructures Dim clsMiscProjMult i As New MiscProjectMult iTable_Handler( Permissions.Con nectionString) Dim SearchDataReade r As SqlClient.SqlDa taReader Dim blnWhere As Boolean = False Dim TheRetrievalTyp e As RetrievalType Dim NotFoundMsg As String
Dim strSelectString = "SELECT ProjectID,Reg,F ee,Title," & _ "MiscFeeTypeID, " & _ "Fee, Quarter, [Year],MiscProjectSta tusID," & _
"StatusDate,Mis cellaneous_Proj ect.Account_ID, FinalizedDate," & _ "ContactEmploye eID,ContactEmai l," & _ "Unex_Employee. EmpFirstName + ' ' + Unex_Employee.E mpLastName As EmpName," & _ "Account.Exp_Ac count + '-' + Account.Cost_Ce nter As ExpAcctCC " & _ "FROM Miscellaneous_P roject " & _ "Left Outer Join Unex_Employee " & _ "On Miscellaneous_P roject.ContactE mployeeID = Unex_Employee.E mployeeID " & _ "Left Outer Join Account " & _ "On Miscellaneous_P roject.Account_ ID = Account.Account _ID " '----------
Me.Cursor = System.Windows. Forms.Cursors.W aitCursor()
tlbSearch.Butto ns(0).Enabled = False ' Disable (this is ok) menuSearch.Enab led = False
tlbSearch.Butto ns(1).Enabled = True ' Enable stop menuStop.Enable d = True
tlbSearch.Butto ns(2).Enabled = False ' Disable print menuPrint.Enabl ed = False
tlbSearch.Butto ns(4).Enabled = False ' Disable the create new button. menuCreateNew.E nabled = False ' Disable the create new menu item.
tlbSearch.Butto ns(5).Enabled = False ' Disable Edit menuEdit.Enable d = False stsSearch.text = "Searching..... "
' Clear the grid.
C1FGResults.Row Sel = -1 C1FGResults.Col Sel = -1
If C1FGResults.Row s.Count > 1 Then
For intDX = (C1FGResults.Ro ws.Count - 1) To 1 Step -1 C1FGResults().R ows.Remove(intD X) Next
End If
'-----------------------------------------------
If Me.txtRegProjID .Text = vbNullString Then
' look for projects using the type, Status and Deparatment ' build the query string, using the parameters.
If c1cboFeeType.Se lectedIndex > 0 Then strSelectString = strSelectString & " Where Miscellaneous_P roject.MiscFeeT ypeID = " & Structures.GetC omboValue(c1cbo FeeType) blnWhere = True End If
'----------
If c1cboProjectSta tus.SelectedInd ex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.MiscPro jectStatusID = " & Structures.GetC omboValue(c1cbo ProjectStatus) End If
'----------
If c1cboDept.Selec tedIndex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.Account _ID = " & Structures.GetC omboValue(c1cbo Dept)
End If
'----------
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then
While SearchDataReade r.Read() = True Call AddARow(SearchD ataReader) End While Else Me.Cursor = System.Windows. Forms.Cursors.D efault() MsgBox("Unable to find any projects with the parameters selected.", MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
Else
' Did the user enter a project Id or a Reg number?
If IsNumeric(Mid(t xtRegProjID.Tex t, 1, 1)) Then strSelectString = strSelectString & " Where ProjectID = " & Trim$(txtRegPro jID.Text) TheRetrievalTyp e = RetrievalType.P rojectID Else ' the user entered a reg number. strSelectString = strSelectString & " Where Reg = '" & Trim$(txtRegPro jID.Text) & "'" TheRetrievalTyp e = RetrievalType.R egNumber End If
' do the read.
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then SearchDataReade r.Read() Call AddARow(SearchD ataReader) Else Me.Cursor = System.Windows. Forms.Cursors.D efault()
If TheRetrievalTyp e = RetrievalType.P rojectID Then NotFoundMsg = "Project ID of : " & Trim$(txtRegPro jID.Text) Else NotFoundMsg = "Reg Number of : " & Trim$(txtRegPro jID.Text) End If
MsgBox("Unable to find a project with a " & NotFoundMsg, MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If
Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
End If
'-------------------------------------------------------
Me.Cursor = System.Windows. Forms.Cursors.D efault()
tlbSearch.Butto ns(0).Enabled = True ' Enable (This crashes)
If VB 2003 has Option Strict, turn it on as well. Make the compiler do as
much of the work for you as it can.
Mike Ober.
"vj" <vi********@yah oo.com> wrote in message
news:%2******** ********@TK2MSF TNGP14.phx.gbl. .. I would suggest you first put Option Explicit On, the .vb file and see if you get any errors in the method, correct them and try.. If you still get the error , we will take it from there
Vijay
"Larry" <bl***@Blifff.c om> wrote in message news:%2******** ********@TK2MSF TNGP09.phx.gbl. .. Hi All, I am in .NET 2003
I have a form and a toolbar on the form. When the user clicks on a button on the toolbar I call the following Sub
I get a crash on the last line: tlbSearch.Butto ns(0).Enabled = True ' Enable search
An unhandled exception of type "System.Nullref erenceExecption " occured etc..... Object Reference not set to an instance of an object
How can this be?, near the stop of the Sub I execute: tlbSearch.Butto ns(0).Enabled = False ' Disable search with no problem. What could have happended to the toolbar object?
I am new to objects, I come from a VB background.
Thanks in Advance,
Larry
'---------------------------------------------------------------------------
----------- Public Sub DoTheSearch()
Dim intDX As Integer Dim Structures As New clsStructures Dim clsMiscProjMult i As New MiscProjectMult iTable_Handler( Permissions.Con nectionString) Dim SearchDataReade r As SqlClient.SqlDa taReader Dim blnWhere As Boolean = False Dim TheRetrievalTyp e As RetrievalType Dim NotFoundMsg As String
Dim strSelectString = "SELECT ProjectID,Reg,F ee,Title," & _ "MiscFeeTypeID, " & _ "Fee, Quarter, [Year],MiscProjectSta tusID," & _
"StatusDate,Mis cellaneous_Proj ect.Account_ID, FinalizedDate," & _ "ContactEmploye eID,ContactEmai l," & _ "Unex_Employee. EmpFirstName + ' ' + Unex_Employee.E mpLastName As EmpName," & _ "Account.Exp_Ac count + '-' + Account.Cost_Ce nter As ExpAcctCC " & _ "FROM Miscellaneous_P roject " & _ "Left Outer Join Unex_Employee " & _ "On Miscellaneous_P roject.ContactE mployeeID = Unex_Employee.E mployeeID " & _ "Left Outer Join Account " & _ "On Miscellaneous_P roject.Account_ ID = Account.Account _ID " '----------
Me.Cursor = System.Windows. Forms.Cursors.W aitCursor()
tlbSearch.Butto ns(0).Enabled = False ' Disable (this is ok) menuSearch.Enab led = False
tlbSearch.Butto ns(1).Enabled = True ' Enable stop menuStop.Enable d = True
tlbSearch.Butto ns(2).Enabled = False ' Disable print menuPrint.Enabl ed = False
tlbSearch.Butto ns(4).Enabled = False ' Disable the create new button. menuCreateNew.E nabled = False ' Disable the create new menu item.
tlbSearch.Butto ns(5).Enabled = False ' Disable Edit menuEdit.Enable d = False stsSearch.text = "Searching..... "
' Clear the grid.
C1FGResults.Row Sel = -1 C1FGResults.Col Sel = -1
If C1FGResults.Row s.Count > 1 Then
For intDX = (C1FGResults.Ro ws.Count - 1) To 1 Step -1 C1FGResults().R ows.Remove(intD X) Next
End If
'-----------------------------------------------
If Me.txtRegProjID .Text = vbNullString Then
' look for projects using the type, Status and Deparatment ' build the query string, using the parameters.
If c1cboFeeType.Se lectedIndex > 0 Then strSelectString = strSelectString & " Where Miscellaneous_P roject.MiscFeeT ypeID = " & Structures.GetC omboValue(c1cbo FeeType) blnWhere = True End If
'----------
If c1cboProjectSta tus.SelectedInd ex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.MiscPro jectStatusID = " & Structures.GetC omboValue(c1cbo ProjectStatus) End If
'----------
If c1cboDept.Selec tedIndex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.Account _ID = " & Structures.GetC omboValue(c1cbo Dept)
End If
'----------
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then
While SearchDataReade r.Read() = True Call AddARow(SearchD ataReader) End While Else Me.Cursor = System.Windows. Forms.Cursors.D efault() MsgBox("Unable to find any projects with the parameters selected.", MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
Else
' Did the user enter a project Id or a Reg number?
If IsNumeric(Mid(t xtRegProjID.Tex t, 1, 1)) Then strSelectString = strSelectString & " Where ProjectID = " & Trim$(txtRegPro jID.Text) TheRetrievalTyp e = RetrievalType.P rojectID Else ' the user entered a reg number. strSelectString = strSelectString & " Where Reg = '" & Trim$(txtRegPro jID.Text) & "'" TheRetrievalTyp e = RetrievalType.R egNumber End If
' do the read.
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then SearchDataReade r.Read() Call AddARow(SearchD ataReader) Else Me.Cursor = System.Windows. Forms.Cursors.D efault()
If TheRetrievalTyp e = RetrievalType.P rojectID Then NotFoundMsg = "Project ID of : " &
Trim$(txtRegPro jID.Text) Else NotFoundMsg = "Reg Number of : " &
Trim$(txtRegPro jID.Text) End If
MsgBox("Unable to find a project with a " & NotFoundMsg, MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If
Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
End If
'-------------------------------------------------------
Me.Cursor = System.Windows. Forms.Cursors.D efault()
tlbSearch.Butto ns(0).Enabled = True ' Enable (This crashes)
Thank You for your input,
I tried Option Strict On,
but I get many errors that I don't believe I can correct,
I am referring to a Component One Flex Grid control,
I get:
"Option Strict On prohibits operands of type object for operator%"
It seems that the Component One Flex Grid Control has a a property
or parameter that is object.
C1.FlexGridBase Item(ByVal Integer, byVal Integer) as object
Larry
Michael D. Ober wrote: If VB 2003 has Option Strict, turn it on as well. Make the compiler do as much of the work for you as it can.
Mike Ober.
"vj" <vi********@yah oo.com> wrote in message news:%2******** ********@TK2MSF TNGP14.phx.gbl. .. I would suggest you first put Option Explicit On, the .vb file and see if you get any errors in the method, correct them and try.. If you still get the error , we will take it from there
Vijay
"Larry" <bl***@Blifff.c om> wrote in message news:%2******** ********@TK2MSF TNGP09.phx.gbl. .. Hi All, I am in .NET 2003
I have a form and a toolbar on the form. When the user clicks on a button on the toolbar I call the following Sub
I get a crash on the last line: tlbSearch.Butto ns(0).Enabled = True ' Enable search
An unhandled exception of type "System.Nullref erenceExecption " occured etc..... Object Reference not set to an instance of an object
How can this be?, near the stop of the Sub I execute: tlbSearch.Butto ns(0).Enabled = False ' Disable search with no problem. What could have happended to the toolbar object?
I am new to objects, I come from a VB background.
Thanks in Advance,
Larry
'--------------------------------------------------------------------------- ----------- Public Sub DoTheSearch()
Dim intDX As Integer Dim Structures As New clsStructures Dim clsMiscProjMult i As New MiscProjectMult iTable_Handler( Permissions.Con nectionString) Dim SearchDataReade r As SqlClient.SqlDa taReader Dim blnWhere As Boolean = False Dim TheRetrievalTyp e As RetrievalType Dim NotFoundMsg As String
Dim strSelectString = "SELECT ProjectID,Reg,F ee,Title," & _ "MiscFeeTypeID, " & _ "Fee, Quarter, [Year],MiscProjectSta tusID," & _
"StatusDate,Mis cellaneous_Proj ect.Account_ID, FinalizedDate," & _ "ContactEmploye eID,ContactEmai l," & _ "Unex_Employee. EmpFirstName + ' ' + Unex_Employee.E mpLastName As EmpName," & _ "Account.Exp_Ac count + '-' + Account.Cost_Ce nter As ExpAcctCC " & _ "FROM Miscellaneous_P roject " & _ "Left Outer Join Unex_Employee " & _ "On Miscellaneous_P roject.ContactE mployeeID = Unex_Employee.E mployeeID " & _ "Left Outer Join Account " & _ "On Miscellaneous_P roject.Account_ ID = Account.Account _ID " '----------
Me.Cursor = System.Windows. Forms.Cursors.W aitCursor()
tlbSearch.Butto ns(0).Enabled = False ' Disable (this is ok) menuSearch.Enab led = False
tlbSearch.Butto ns(1).Enabled = True ' Enable stop menuStop.Enable d = True
tlbSearch.Butto ns(2).Enabled = False ' Disable print menuPrint.Enabl ed = False
tlbSearch.Butto ns(4).Enabled = False ' Disable the create new button. menuCreateNew.E nabled = False ' Disable the create new menu item.
tlbSearch.Butto ns(5).Enabled = False ' Disable Edit menuEdit.Enable d = False stsSearch.text = "Searching..... "
' Clear the grid.
C1FGResults.Row Sel = -1 C1FGResults.Col Sel = -1
If C1FGResults.Row s.Count > 1 Then
For intDX = (C1FGResults.Ro ws.Count - 1) To 1 Step -1 C1FGResults().R ows.Remove(intD X) Next
End If
'-----------------------------------------------
If Me.txtRegProjID .Text = vbNullString Then
' look for projects using the type, Status and Deparatment ' build the query string, using the parameters.
If c1cboFeeType.Se lectedIndex > 0 Then strSelectString = strSelectString & " Where Miscellaneous_P roject.MiscFeeT ypeID = " & Structures.GetC omboValue(c1cbo FeeType) blnWhere = True End If
'----------
If c1cboProjectSta tus.SelectedInd ex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.MiscPro jectStatusID = " & Structures.GetC omboValue(c1cbo ProjectStatus) End If
'----------
If c1cboDept.Selec tedIndex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.Account _ID = " & Structures.GetC omboValue(c1cbo Dept)
End If
'----------
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then
While SearchDataReade r.Read() = True Call AddARow(SearchD ataReader) End While Else Me.Cursor = System.Windows. Forms.Cursors.D efault() MsgBox("Unable to find any projects with the parameters selected.", MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
Else
' Did the user enter a project Id or a Reg number?
If IsNumeric(Mid(t xtRegProjID.Tex t, 1, 1)) Then strSelectString = strSelectString & " Where ProjectID = " & Trim$(txtRegPro jID.Text) TheRetrievalTyp e = RetrievalType.P rojectID Else ' the user entered a reg number. strSelectString = strSelectString & " Where Reg = '" & Trim$(txtRegPro jID.Text) & "'" TheRetrievalTyp e = RetrievalType.R egNumber End If
' do the read.
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then SearchDataReade r.Read() Call AddARow(SearchD ataReader) Else Me.Cursor = System.Windows. Forms.Cursors.D efault()
If TheRetrievalTyp e = RetrievalType.P rojectID Then NotFoundMsg = "Project ID of : " & Trim$(txtRegPro jID.Text) Else NotFoundMsg = "Reg Number of : " & Trim$(txtRegPro jID.Text) End If
MsgBox("Unable to find a project with a " & NotFoundMsg, MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If
Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
End If
'-------------------------------------------------------
Me.Cursor = System.Windows. Forms.Cursors.D efault()
tlbSearch.Butto ns(0).Enabled = True ' Enable (This crashes)
'Option Strict On' may seem like it is causing problems at the moment. I have
lost a lot of time due to unintended type conversions that VB.NET did without
me knowing. Because of that, I always switch it on.
In this case, the return value is an object. If you know it is in fact a text
that can be converted to an integer, use ctype(<expressi on>,Integer) to
explicitely perform the conversion.
But really, use 'Option Strict On'!!!
Accidentally, have I told you I think you should use 'Option Strict On'?
Renze.
In article <eJ************ **@TK2MSFTNGP11 .phx.gbl>, Larry <bl***@Blifff.c om>
wrote: Thank You for your input,
I tried Option Strict On, but I get many errors that I don't believe I can correct, I am referring to a Component One Flex Grid control, I get: "Option Strict On prohibits operands of type object for operator%" It seems that the Component One Flex Grid Control has a a property or parameter that is object.
C1.FlexGridBas e Item(ByVal Integer, byVal Integer) as object
Larry
Larry,
Are you sure that you have typed that correct?
Cor
"Larry" <bl***@Blifff.c om> schreef in bericht
news:eJ******** ******@TK2MSFTN GP11.phx.gbl... Thank You for your input,
I tried Option Strict On, but I get many errors that I don't believe I can correct, I am referring to a Component One Flex Grid control, I get: "Option Strict On prohibits operands of type object for operator%" It seems that the Component One Flex Grid Control has a a property or parameter that is object.
C1.FlexGridBase Item(ByVal Integer, byVal Integer) as object
Larry
Michael D. Ober wrote: If VB 2003 has Option Strict, turn it on as well. Make the compiler do as much of the work for you as it can.
Mike Ober.
"vj" <vi********@yah oo.com> wrote in message news:%2******** ********@TK2MSF TNGP14.phx.gbl. .. I would suggest you first put Option Explicit On, the .vb file and see if you get any errors in the method, correct them and try.. If you still get the error , we will take it from there
Vijay
"Larry" <bl***@Blifff.c om> wrote in message news:%2******** ********@TK2MSF TNGP09.phx.gbl. .. Hi All, I am in .NET 2003
I have a form and a toolbar on the form. When the user clicks on a button on the toolbar I call the following Sub
I get a crash on the last line: tlbSearch.Butto ns(0).Enabled = True ' Enable search
An unhandled exception of type "System.Nullref erenceExecption " occured etc..... Object Reference not set to an instance of an object
How can this be?, near the stop of the Sub I execute: tlbSearch.Butto ns(0).Enabled = False ' Disable search with no problem. What could have happended to the toolbar object?
I am new to objects, I come from a VB background.
Thanks in Advance,
Larry
'--------------------------------------------------------------------------- ----------- Public Sub DoTheSearch()
Dim intDX As Integer Dim Structures As New clsStructures Dim clsMiscProjMult i As New MiscProjectMult iTable_Handler( Permissions.Con nectionString) Dim SearchDataReade r As SqlClient.SqlDa taReader Dim blnWhere As Boolean = False Dim TheRetrievalTyp e As RetrievalType Dim NotFoundMsg As String
Dim strSelectString = "SELECT ProjectID,Reg,F ee,Title," & _ "MiscFeeTypeID, " & _ "Fee, Quarter, [Year],MiscProjectSta tusID," & _
"StatusDate,Mis cellaneous_Proj ect.Account_ID, FinalizedDate," & _ "ContactEmploye eID,ContactEmai l," & _ "Unex_Employee. EmpFirstName + ' ' + Unex_Employee.E mpLastName As EmpName," & _ "Account.Exp_Ac count + '-' + Account.Cost_Ce nter As ExpAcctCC " & _ "FROM Miscellaneous_P roject " & _ "Left Outer Join Unex_Employee " & _ "On Miscellaneous_P roject.ContactE mployeeID = Unex_Employee.E mployeeID " & _ "Left Outer Join Account " & _ "On Miscellaneous_P roject.Account_ ID = Account.Account _ID " '----------
Me.Cursor = System.Windows. Forms.Cursors.W aitCursor()
tlbSearch.Butto ns(0).Enabled = False ' Disable (this is ok) menuSearch.Enab led = False
tlbSearch.Butto ns(1).Enabled = True ' Enable stop menuStop.Enable d = True
tlbSearch.Butto ns(2).Enabled = False ' Disable print menuPrint.Enabl ed = False
tlbSearch.Butto ns(4).Enabled = False ' Disable the create new button. menuCreateNew.E nabled = False ' Disable the create new menu item.
tlbSearch.Butto ns(5).Enabled = False ' Disable Edit menuEdit.Enable d = False stsSearch.text = "Searching..... "
' Clear the grid.
C1FGResults.Row Sel = -1 C1FGResults.Col Sel = -1
If C1FGResults.Row s.Count > 1 Then
For intDX = (C1FGResults.Ro ws.Count - 1) To 1 Step -1 C1FGResults().R ows.Remove(intD X) Next
End If
'-----------------------------------------------
If Me.txtRegProjID .Text = vbNullString Then
' look for projects using the type, Status and Deparatment ' build the query string, using the parameters.
If c1cboFeeType.Se lectedIndex > 0 Then strSelectString = strSelectString & " Where Miscellaneous_P roject.MiscFeeT ypeID = " & Structures.GetC omboValue(c1cbo FeeType) blnWhere = True End If
'----------
If c1cboProjectSta tus.SelectedInd ex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.MiscPro jectStatusID = " & Structures.GetC omboValue(c1cbo ProjectStatus) End If
'----------
If c1cboDept.Selec tedIndex > 0 Then
If blnWhere = False Then strSelectString = strSelectString & " Where " blnWhere = True Else strSelectString = strSelectString & " And " End If
strSelectString = strSelectString & "Miscellaneous_ Project.Account _ID = " & Structures.GetC omboValue(c1cbo Dept)
End If
'----------
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then
While SearchDataReade r.Read() = True Call AddARow(SearchD ataReader) End While Else Me.Cursor = System.Windows. Forms.Cursors.D efault() MsgBox("Unable to find any projects with the parameters selected.", MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
Else
' Did the user enter a project Id or a Reg number?
If IsNumeric(Mid(t xtRegProjID.Tex t, 1, 1)) Then strSelectString = strSelectString & " Where ProjectID = " & Trim$(txtRegPro jID.Text) TheRetrievalTyp e = RetrievalType.P rojectID Else ' the user entered a reg number. strSelectString = strSelectString & " Where Reg = '" & Trim$(txtRegPro jID.Text) & "'" TheRetrievalTyp e = RetrievalType.R egNumber End If
' do the read.
If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, SearchDataReade r) = True Then
' No errors, did we find any records?
If SearchDataReade r.HasRows = True Then SearchDataReade r.Read() Call AddARow(SearchD ataReader) Else Me.Cursor = System.Windows. Forms.Cursors.D efault()
If TheRetrievalTyp e = RetrievalType.P rojectID Then NotFoundMsg = "Project ID of : " & Trim$(txtRegPro jID.Text) Else NotFoundMsg = "Reg Number of : " & Trim$(txtRegPro jID.Text) End If
MsgBox("Unable to find a project with a " & NotFoundMsg, MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") End If
Else Me.Cursor = System.Windows. Forms.Cursors.D efault() Dim err As New errorHandler(cl sMiscProjMulti. lastException, "", True) End If
End If
'-------------------------------------------------------
Me.Cursor = System.Windows. Forms.Cursors.D efault()
tlbSearch.Butto ns(0).Enabled = True ' Enable (This crashes)
Thank You for your help.
I found out what it was, I was calling a proc
that did something that caused the form to be unloaded (closed)
and that caused the toolbar buttons collection to not exist.
Thanks again,
Larry
Cor Ligthert [MVP] wrote: Larry,
Are you sure that you have typed that correct?
Cor
"Larry" <bl***@Blifff.c om> schreef in bericht news:eJ******** ******@TK2MSFTN GP11.phx.gbl... Thank You for your input,
I tried Option Strict On, but I get many errors that I don't believe I can correct, I am referring to a Component One Flex Grid control, I get: "Option Strict On prohibits operands of type object for operator%" It seems that the Component One Flex Grid Control has a a property or parameter that is object.
C1.FlexGridBase Item(ByVal Integer, byVal Integer) as object
Larry
Michael D. Ober wrote: If VB 2003 has Option Strict, turn it on as well. Make the compiler do as much of the work for you as it can.
Mike Ober.
"vj" <vi********@yah oo.com> wrote in message news:%2******** ********@TK2MSF TNGP14.phx.gbl. .. I would suggest you first put Option Explicit On, the .vb file and see if you get any errors in the method, correct them and try.. If you still get the error , we will take it from there
Vijay
"Larry" <bl***@Blifff.c om> wrote in message news:%2******** ********@TK2MSF TNGP09.phx.gbl. .. > Hi All, > I am in .NET 2003 > > I have a form and a toolbar on the form. > When the user clicks on a button on the toolbar I call > the following Sub > > I get a crash on the last line: tlbSearch.Butto ns(0).Enabled = True ' > Enable search > > An unhandled exception of type "System.Nullref erenceExecption " occured > etc..... > Object Reference not set to an instance of an object > > How can this be?, near the stop of the Sub I execute: > tlbSearch.Butto ns(0).Enabled = False ' Disable search > with no problem. What could have happended to the toolbar object? > > I am new to objects, I come from a VB background. > > Thanks in Advance, > > Larry > > '--------------------------------------------------------------------------- ----------- > Public Sub DoTheSearch() > > Dim intDX As Integer > Dim Structures As New clsStructures > Dim clsMiscProjMult i As New > MiscProjectMult iTable_Handler( Permissions.Con nectionString) > Dim SearchDataReade r As SqlClient.SqlDa taReader > Dim blnWhere As Boolean = False > Dim TheRetrievalTyp e As RetrievalType > Dim NotFoundMsg As String > > Dim strSelectString = "SELECT ProjectID,Reg,F ee,Title," & _ > "MiscFeeTypeID, " & _ > "Fee, Quarter, > [Year],MiscProjectSta tusID," & _ > > "StatusDate,Mis cellaneous_Proj ect.Account_ID, FinalizedDate," & _ > "ContactEmploye eID,ContactEmai l," & _ > "Unex_Employee. EmpFirstName + ' ' + > Unex_Employee.E mpLastName As EmpName," & _ > "Account.Exp_Ac count + '-' + > Account.Cost_Ce nter As ExpAcctCC " & _ > "FROM Miscellaneous_P roject " & _ > "Left Outer Join Unex_Employee " & _ > "On > Miscellaneous_P roject.ContactE mployeeID = Unex_Employee.E mployeeID " & > _ > "Left Outer Join Account " & _ > "On Miscellaneous_P roject.Account_ ID > = > Account.Account _ID " > '---------- > > Me.Cursor = System.Windows. Forms.Cursors.W aitCursor() > > tlbSearch.Butto ns(0).Enabled = False ' Disable (this is ok) > menuSearch.Enab led = False > > tlbSearch.Butto ns(1).Enabled = True ' Enable > stop > menuStop.Enable d = True > > tlbSearch.Butto ns(2).Enabled = False ' > Disable > print > menuPrint.Enabl ed = False > > tlbSearch.Butto ns(4).Enabled = False ' > Disable > the create new button. > menuCreateNew.E nabled = False ' > Disable > the create new menu item. > > tlbSearch.Butto ns(5).Enabled = False ' > Disable > Edit > menuEdit.Enable d = False > stsSearch.text = "Searching..... " > > ' Clear the grid. > > C1FGResults.Row Sel = -1 > C1FGResults.Col Sel = -1 > > If C1FGResults.Row s.Count > 1 Then > > For intDX = (C1FGResults.Ro ws.Count - 1) To 1 Step -1 > C1FGResults().R ows.Remove(intD X) > Next > > End If > > '----------------------------------------------- > > If Me.txtRegProjID .Text = vbNullString Then > > ' look for projects using the type, Status and Deparatment > ' build the query string, using the parameters. > > If c1cboFeeType.Se lectedIndex > 0 Then > strSelectString = strSelectString & " Where > Miscellaneous_P roject.MiscFeeT ypeID = " & > Structures.GetC omboValue(c1cbo FeeType) > blnWhere = True > End If > > '---------- > > If c1cboProjectSta tus.SelectedInd ex > 0 Then > > If blnWhere = False Then > strSelectString = strSelectString & " Where " > blnWhere = True > Else > strSelectString = strSelectString & " And " > End If > > strSelectString = strSelectString & > "Miscellaneous_ Project.MiscPro jectStatusID = " & > Structures.GetC omboValue(c1cbo ProjectStatus) > End If > > '---------- > > If c1cboDept.Selec tedIndex > 0 Then > > If blnWhere = False Then > strSelectString = strSelectString & " Where " > blnWhere = True > Else > strSelectString = strSelectString & " And " > End If > > strSelectString = strSelectString & > "Miscellaneous_ Project.Account _ID = " & > Structures.GetC omboValue(c1cbo Dept) > > End If > > '---------- > > If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, > SearchDataReade r) = True Then > > ' No errors, did we find any records? > > If SearchDataReade r.HasRows = True Then > > While SearchDataReade r.Read() = True > Call AddARow(SearchD ataReader) > End While > Else > Me.Cursor = System.Windows. Forms.Cursors.D efault() > MsgBox("Unable to find any projects with the parameters > selected.", MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") > End If > Else > Me.Cursor = System.Windows. Forms.Cursors.D efault() > Dim err As New errorHandler(cl sMiscProjMulti. lastException, > "", > True) > End If > > Else > > ' Did the user enter a project Id or a Reg number? > > If IsNumeric(Mid(t xtRegProjID.Tex t, 1, 1)) Then > strSelectString = strSelectString & " Where ProjectID = " & > Trim$(txtRegPro jID.Text) > TheRetrievalTyp e = RetrievalType.P rojectID > Else > ' the user entered a reg number. > strSelectString = strSelectString & " Where Reg = '" & > Trim$(txtRegPro jID.Text) & "'" > TheRetrievalTyp e = RetrievalType.R egNumber > End If > > ' do the read. > > If clsMiscProjMult i.dbSelect_Data Reader(strSelec tString, > SearchDataReade r) = True Then > > ' No errors, did we find any records? > > If SearchDataReade r.HasRows = True Then > SearchDataReade r.Read() > Call AddARow(SearchD ataReader) > Else > Me.Cursor = System.Windows. Forms.Cursors.D efault() > > If TheRetrievalTyp e = RetrievalType.P rojectID Then > NotFoundMsg = "Project ID of : " & Trim$(txtRegPro jID.Text) > Else > NotFoundMsg = "Reg Number of : " & Trim$(txtRegPro jID.Text) > End If > > MsgBox("Unable to find a project with a " & NotFoundMsg, > MsgBoxStyle.Inf ormation + MsgBoxStyle.OKO nly, "Not Found.") > End If > > Else > Me.Cursor = System.Windows. Forms.Cursors.D efault() > Dim err As New errorHandler(cl sMiscProjMulti. lastException, > "", > True) > End If > > End If > > '------------------------------------------------------- > > Me.Cursor = System.Windows. Forms.Cursors.D efault() > > tlbSearch.Butto ns(0).Enabled = True ' Enable (This crashes)
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics |
by: Daniel |
last post by:
Hello =)
I have an object which contains a method that should execute every x ms. I
can use setInterval inside the object construct like this -
self.setInterval('ObjectName.methodName()', this.pinginterval);
- but is there no way to do this without using the literal ObjectName? If I
write 'this.methodName()' I get "Line 1 Char 1: Object doesn't support this
property or method." in IE, and nothing happens in Firebird.
|
by: Martin |
last post by:
I'd like to be able to get the name of an object instance from within
a call to a method of that same object. Is this at all possible?
The example below works by passing in the name of the object instance
(in this case 'myDog'). Of course it would be better if I could
somehow know from within write() that the name of the object instance
was 'myDog' without having to pass it as a parameter.
////////////////////////////////
function...
|
by: Carlos Lozano |
last post by:
Hi,
What is the right way to create an OCX COM component. The component is
already registerred, but can't create an instance. I am using the reference
to the interop module created.
If I use javascript or vbscript it works.
I will appreciate any help.
I do the following (C#):
|
by: Adam |
last post by:
We have a web site that uses .vb for the web pages and .cs for a class
module. We are getting the error in .NET 2.0 and VS 2005 beta 2. It does
work with .NET 1.1.
When trying to access a page that needs the class module I get an error on
web site:
Object reference not set to an instance of an object
Here is where the error is:
|
by: Luke Matuszewski |
last post by:
Here are some questions that i am interested about and wanted to here
an explanation/discussion:
1. (general) Is the objectness in JavaScript was supported from the
very first version of it (in browsers) ? What about the new syntax of
creating a object using { 'propName1':'propValue1',
'propName2':'propValue2', 'propName3':{ /* another object */ } } - from
what version of JScript/JavaScript it was supported (from what browsers
versions) ?...
| |
by: Andrew Poulos |
last post by:
With the following code I can't understand why this.num keeps
incrementing each time I create a new instance of Foo. For each instance
I'm expecting this.num to alert as 1 but keeps incrementing.
Foo = function(type) {
this.num = 0;
this.type = type
this.trigger();
}
Foo.prototype.trigger = function() {
|
by: Shailen Sukul |
last post by:
Observed a weird behaviour with object references.
See code listing below:
using System;
using System.Collections.Generic;
using System.Text;
namespace PointerExceptionTest
{
/*
|
by: Philipp Reif |
last post by:
Hi all,
I've got a little hole in my head concerning references. Here's what
I'm trying to do: I'm calling a function, passing the reference of a
business object for editing. The function clones the object, calls an
editor dialog to let the user edit the object, and then - depending on
the DialogResult - assigns either the clone/backup copy or the modified
object itself to the reference. Maybe I'm thinking too much in pointer
references...
|
by: User1014 |
last post by:
A global variable is really just a property of the "Global Object", so
what does that make a function defined in the global context? A method
of the Global Object?
http://developer.mozilla.org/en/docs/Core_JavaScript_1.5_Guide:Defining_Functions
doesn't actually give any insight.
|
by: Ralph |
last post by:
Hi
I don't understand why it's not working:
function schedule(imTop){
this.tdImagesTop = imTop;
}
schedule.prototype.selectEl = function() {
alert(this.tdImagesTop);
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| |
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
| |
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |