Using If statement between 2 text boxes in VB6

[hariharanmca]

I have used the code like you have suggested, but still same object required error. :-<<

can you say which line is that object error?

[Wernerh]

can you say which line is that object error?

Highlights the first line : If Val(textbox4.Te xt) < 100 Then

[hariharanmca]

Highlights the first line : If Val(textbox4.Te xt) < 100 Then

just check the textbox name is 'textbox4'

[Wernerh]

just check the textbox name is 'textbox4'

Damn that was wrong it is actually text4 not textbox4, but still same error! I am not sure if I should preceed that part of the code with maybe something like :

Dim text4 as Integer ???? - tried it,but then said invalid qualifier.

[hariharanmca]

Damn that was wrong it is actually text4 not textbox4, but still same error! I am not sure if I should preceed that part of the code with maybe something like :

Dim text4 as Integer ???? - tried it,but then said invalid qualifier.

Already text4 is an textbox control then how can you declare it again for integer?

[Wernerh]

Already text4 is an textbox control then how can you declare it again for integer?

Pure shot in the dark! I am as you can see a TOTAL newbie at this, so just starting to learn all the bits and pieces.

[Killer42]

Pure shot in the dark! I am as you can see a TOTAL newbie at this, so just starting to learn all the bits and pieces.

I think all the textbox business is probably somewhat incidental to the main issue, which is that (unless things work a lot differently to VB6) there is no object in your application called Retail. Most likely, you need to change Retail.Range("g 5") to a proper reference to xlBook or one of the WorkSheet objects contained within it.

[rcollins]

I am having a similar problem in my code. Should be simple, what am I missing?
[Code=vb]
If Val(Standardize dAllocation.Tex t) = "HOUSE MEETINGS: " Then StandardizedAll ocationSumm.Tex t = "Consult with direct care staff ongoing medical concerns and plan of care."
End If
[/CODE]

[Killer42]

[Code=vb]If Val(Standardize dAllocation.Tex t) = "HOUSE MEETINGS: " Then StandardizedAll ocationSumm.Tex t = "Consult with direct care staff ongoing medical concerns and plan of care."
End If
[/CODE]

Well, I don't know exacly what problem you are having. But I can see two fairly obvious problems with this code.

• The purpose of the Val() function is to take a string, convert it, and return a number. So it doesn't make any sense to compare the result to "HOUSE MEETINGS: ".
• Since you've coded the IF on a single line, it doesn't require (or perhaps it would be more precise to say it doesn't allow) an End If. To demonstrate the difference, these two pieces of code do precisely the same thing...
  [CODE=vb]' Single-line...
  If A = 1 Then B = 3
  
  ' Multi-line...
  If A = 1 Then
  B = 3
  End If[/CODE]

[rcollins]

So, per you example, this is what I have now

If StandardizedAllocation.Text = HOUSE MEETINGS: Then StandardizedAllocationSumm.Text = Consult with direct care staff ongoing medical concerns and plan of care.

I still don't get anything returned in the second text box.

[rcollins]

Here is the error I am getting now: "You can't reference a property or method for a control unless the control has the focus."
Here is my exact code for picking from two choises. I only get this error on the first choice, but don't get anything in the text box with the second one.

Private Sub StandardizedAllocation_AfterUpdate()
If StandardizedAllocation.Text = "HOUSE MEETINGS:" Then StandardizedAllocationSumm.Text = "Consult with direct care staff ongoing medical concerns and plan of care."
If StandardizedAllocation.Text = "MD Appt.Prep:" Then StandardizedAllocationSumm.Text = "Case file reviewed for pending medical appointment.  Plan of care reviewed and updated."
 
End Sub

[rcollins]

Got it working, another member helped me. Thanks

[Killer42]

"You can't reference a property or method for a control unless the control has the focus."

You said you were using VB6. VB6 does not report this error. Unless I'm gravely mistaken, this is an MS Access message.

Anyway, glad to hear you got it working.