[RESOLVED] Runtime error '91': Object variable or with block not set

I improved my little sample app that displays the message form only when the user wants to see it. I also added some more comments.

Ok. Thanks alot.

On this code you gave me I set the control color at Focus time to the below but I want a situation when the Focus time out the colour should also. How do I go about that, Thanks.

Code:

---

Public Sub Flash(ctl As Control)

    Dim dblClock As Double
    Dim lngCount As Long
   
    For lngCount = 1 To 6 ' If you change the 6, make sure it's an even number
        dblClock = Timer
       
        ' Pause .25 seconds
        While Timer < dblClock + 0.25
            DoEvents
        Wend
        ctl.Visible = Not ctl.Visible
    Next
  ctl.SetFocus
 

       

vb Code:

       

ctl.BackColor = &H80000013

   
End Sub

---

Seriously, you should get some sleep.

To answer your question however, you could move the ctl.SetFocus to just before the For/Next loop and set a color right after that and set another color when the For/Next is done.

Quote:

---

Originally Posted by MartinLiss

Seriously, you should get some sleep.

To answer your question however, you could move the ctl.SetFocus to just before the For/Next loop and set a color right after that and set another color when the For/Next is done.

---

Lol. Yeah I will. Not met my target yet. Thanks for the infor.

Good morning. I've attached a revised CPSystems form. If you want to try it, save a copy of your current CPSystems form first.

OK. Thanks

Quote:

---

Originally Posted by MartinLiss

Seriously, you should get some sleep.

To answer your question however, you could move the ctl.SetFocus to just before the For/Next loop and set a color right after that and set another color when the For/Next is done.

---

Quote:

---

Originally Posted by MartinLiss

Good morning. I've attached a revised CPSystems form. If you want to try it, save a copy of your current CPSystems form first.

---

That thing looks something else. It seems you want my supervisor to make me a suspect. Please details of the properties that makes that thing look like an apple PC is required, Thanks

I can now see the usefulness of the array properties. Thanks

It seems you work for MS or apple. You are GENIUS. Thanks for sharing the knowledge at no cost. Experiment #4 works so good. I'm loving it. Thanks

Thanks, it was pretty straightforward using a control array of command buttons and a frame control. Anything else is in the code. Have you used control arrays before?

Did you notice the change in wording from "Computer simulation for…" and "...part 1 and 2" to "Computer simulation of…" and "...parts 1 and 2"?

Please give me a clue to what I am not doing wrong here. If i click on the "NO" option the form vanishes. very annoying. Thanks.

Code:

---

Private Sub cmdcancel_Click()
 MsgBox "Are you sure you want to exit program", vbQuestion + vbYesNo, "Confirm"
    Unload Me
End Sub

---

Quote:

---

Originally Posted by Ehwenomare

It seems you work for MS or apple. You are GENIUS. Thanks for sharing the knowledge at no cost. Experiment #4 works so good. I'm loving it. Thanks

---

I'm 70 so my working days are long since over but I appreciate the compliment. Also if you've considered buying a MAC of some sort but you didn't do it because you thought that you couldn't run VB on it, you can. I use an iMAC with a piece of software called Parallels which allows me to run a Windows session side by side with the iMAC's Lion OS. It's seamless. I can run VB in the windows session and transfer files between the two, etcetera.

Quote:

---

Originally Posted by MartinLiss

Thanks, it was pretty straightforward using a control array of command buttons and a frame control. Anything else is in the code. Have you used control arrays before?

Did you notice the change in wording from "Computer simulation for…" and "...part 1 and 2" to "Computer simulation of…" and "...parts 1 and 2"?

---

To hell with whatever that thing says. It has been trashed into the recycle bin. Thanks.

Quote:

---

Originally Posted by Ehwenomare

To hell with whatever that thing says. It has been trashed into the recycle bin. Thanks.

---

I try avoiding it. Never understood it's usefulness until now.

Code:

---

Private Sub cmdcancel_Click()
 MsgBox "Are you sure you want to exit program", vbQuestion + vbYesNo, "Confirm"
    Unload Me
End Sub

---

You need to query the user's response as you did here

Code:

---

If MsgBox("Is this the most economical alternative?", vbQuestion + vbYesNo, "Confirm") = vbYes Then

---

BTW you never did answer my question which was how does the user know that this is the most economical alternative?

Quote:

---

Originally Posted by MartinLiss

Code:

---

Private Sub cmdcancel_Click()
 MsgBox "Are you sure you want to exit program", vbQuestion + vbYesNo, "Confirm"
    Unload Me
End Sub

---

You need to query the user's response as you did here

Code:

---

If MsgBox("Is this the most economical alternative?", vbQuestion + vbYesNo, "Confirm") = vbYes Then

---

BTW you never did answer my question which was how does the user know that this is the most economical alternative?

---

I thought I have already in an earlier post. It is a choice the user has to make. It has to do with the cost. I mean the life cycle costing of implementing the system. Whether, if it's gonna be cheaper to do an impressed current protection of the pipeline or a sacrificial anode protection of the pipeline. It is a cost comparison which the client or the operator of the pipeline has to consider. He enters all the costing for the different stages of the project: meaning total cost at design, operation, decommissioning etc and compares the two values giving the scope of the project and other factors ecetera, ecetera. Hope it's clear this way.

Quote:

---

Originally Posted by Ehwenomare

I thought I have already in an earlier post. It is a choice the user has to make. It has to do with the cost. I mean the life cycle costing of implementing the system. Whether, if it's gonna be cheaper to do an impressed current protection of the pipeline or a sacrificial anode protection of the pipeline. It is a cost comparison which the client or the operator of the pipeline has to consider. He enters all the costing for the different stages of the project: meaning total cost at design, operation, decommissioning etc and compares the two values giving the scope of the project and other factors ecetera, ecetera. Hope it's clear this way.

---

I did that but still has same problem. Maybe I try it out again. Thanks

I only gave the "as you did here" as an example of how it's done. If you look ad the two pieces of code you'll see that the latter one starts with an If and compares the result to vbYes. So what you should do is

Code:

---

Private Sub cmdcancel_Click()
 If MsgBox ("Are you sure you want to exit program", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    Unload Me
End If
End Sub

---

BTW unless I misunderstand what you were saying in your last post you should have been able to figure that out.

Quote:

---

Originally Posted by MartinLiss

I'm 70 so my working days are long since over but I appreciate the compliment. Also if you've considered buying a MAC of some sort but you didn't do it because you thought that you couldn't run VB on it, you can. I use an iMAC with a piece of software called Parallels which allows me to run a Windows session side by side with the iMAC's Lion OS. It's seamless. I can run VB in the windows session and transfer files between the two, etcetera.

---

But I believe you'r very proud at your achievement. You are still very strong and agile like a youth. Your old age doesn't count. You are an ocean of knowledge, a grand master in the act. That's a good infor. I'll try it someday when bored with this Toshiba.

Quote:

---

Originally Posted by MartinLiss

I only gave the "as you did here" as an example of how it's done. If you look ad the two pieces of code you'll see that the latter one starts with an If and compares the result to vbYes. So what you should do is

Code:

---

Private Sub cmdcancel_Click()
 If MsgBox ("Are you sure you want to exit program", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    Unload Me
End If
End Sub

---

BTW unless I misunderstand what you were saying in your last post you should have been able to figure that out.

---

Thanks. Resolved.

You may have fixed this by now but I just noticed that in onshoresystems.Form_Load you fill cbocoating and cboanodename twice. More importantly you never refer to the data for either one.

Another bug.

Code:

---

Private Sub cbocpstype_Click()
    If (cbocpstype.Text = "Impressed Current") Then
        FrameImpressedCurrent.Visible = True
        FrameSacrificialCurrent.Visible = False
        Framelifecycleanalysis.Visible = True
        offshorecpsystems.Height = 10845
        cmdcancelform.Visible = False
    Else
            FrameImpressedCurrent.Visible = False
            FrameSacrificialCurrent.Visible = True
            Framelifecycleanalysis.Visible = True
            offshorecpsystems.Height = 10845
            cmdcancelform.Visible = False
            Your If/Else structure is wrong and you only get here if cbocpstype.Text = "Impressed Current"
            If (cbocpstype.Text = "") Then
                FrameImpressedCurrent.Visible = False
                FrameSacrificialCurrent.Visible = False
                offshorecpsystems.Height = 4500
                cmdcancelform.Visible = True
            End If
        End If
   

End Sub

---

Just a suggestion:

since this thread has long been resolved I don't think members will benefit from it's "going, and going, and going...". I'm pretty positive that original question has been answered and maybe it's time to split this thread into several smaller "stand alone" threads each with distinct title.