Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 2516

Jun 15th, 2006

Boolean checking

Expand Post »

Hi Guys,

Below is a code that searches for a value in a cell in excel. I want a code that would check to see if the word has been found or not. When I do the search and the word is not found, I get an error message " Object Variable or With block variable not set".

I know the above message comes up only when the word is not found. How can I by pass this inorder to tell the user through a message box that the document does not exist. That way the will be able to create a new record.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
word = frmSearch.txtEnterDate.Text
If frmSearch.cboSystems.ListIndex = 0 Then
Sheets("Current").Select
Range("A1").Select
'Selection.End(xlDown).Select
Range("A1:A65536").Find(What:=word, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByColumns).Activate
word = frmSearch.txtEnterDate.Text
If frmSearch.cboSystems.ListIndex = 0 Then
Sheets("Current").Select
Range("A1").Select
'Selection.End(xlDown).Select
Range("A1:A65536").Find(What:=word, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByColumns).Activate

INI

Similar Threads

error checking in Java
Boolean Algebra in C++
Recursive prime number f(x) in C
How to Perform Disk Error Checking in Windows XP in Windows tips 'n' tweaks
Need some help with a Java lab... in Java

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

Jun 15th, 2006

Re: Boolean checking

Never mind guys

, I think I figured it out ! I had to insert the error handler and it work.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim power As Variant
word = frmSearch.txtEnterDate.Text
If frmSearch.cboSystems.ListIndex = 0 Then
Sheets("Current").Select
Range("A1").Select
'Selection.End(xlDown).Select
On Error GoTo ErrorHandler
Range("A1:A65536").Find(What:=word, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByColumns).Activate
ErrorHandler:
   power = CVErr(Err.Number)
If IsError(power) Then
    MsgBox ("Word not found")
End If
 
End If
Dim power As Variant
word = frmSearch.txtEnterDate.Text
If frmSearch.cboSystems.ListIndex = 0 Then
Sheets("Current").Select
Range("A1").Select
'Selection.End(xlDown).Select
On Error GoTo ErrorHandler
Range("A1:A65536").Find(What:=word, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByColumns).Activate
ErrorHandler:
   power = CVErr(Err.Number)
If IsError(power) Then
    MsgBox ("Word not found")
End If
 
End If

Last edited by INI; Jun 15th, 2006 at 11:40 am.

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

Jun 15th, 2006

Re: Boolean checking

I have seen people cut an paste screen shots in the threads, how is taht done?

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

Permalink

Jun 15th, 2006

Re: Boolean checking

ctrl-printscreen seems to copy a screenshot (in XP anyways) to the clipboard..... then you can run mspaint (start run mspaint) and paste it into paint, in which case you can manip the image...... then when posting your thread (in advanced mode) there is an option to attach a file.... save the file in mspaint and attach it in the thread.....voila.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jun 15th, 2006

Re: Boolean checking

Never mind guys

, I think I figured it out ! I had to insert the error handler and it work.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim power As Variant
word = frmSearch.txtEnterDate.Text
If frmSearch.cboSystems.ListIndex = 0 Then
Sheets("Current").Select
Range("A1").Select
'Selection.End(xlDown).Select
On Error GoTo ErrorHandler
Range("A1:A65536").Find(What:=word, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByColumns).Activate
ErrorHandler:
power = CVErr(Err.Number)
If IsError(power) Then
MsgBox ("Word not found")
End If
 
End If
Dim power As Variant
word = frmSearch.txtEnterDate.Text
If frmSearch.cboSystems.ListIndex = 0 Then
Sheets("Current").Select
Range("A1").Select
'Selection.End(xlDown).Select
On Error GoTo ErrorHandler
Range("A1:A65536").Find(What:=word, LookAt:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByColumns).Activate
ErrorHandler:
power = CVErr(Err.Number)
If IsError(power) Then
MsgBox ("Word not found")
End If
 
End If

Last edited by Comatose; Jun 15th, 2006 at 8:16 pm.

INI

Reputation Points: 13

Solved Threads: 0

Light Poster

Offline

39 posts
since May 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: error handling in VB6 + + ODBC + MySQL...(Help!!!!)

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Sort a dynamic array of structs

DaniWeb Message

Cancel Changes

User Name
Password