"run time error 91" with form

[hsc14]

dear I receive error " run time error 91" + "object variable or With Block Variable not set in line # 7. Please check my code as follow,

Private Sub ComboBox3_Change()
Dim c As Range
Dim FindMe As Double
If Flag = True Then Exit Sub
FindMe = Val(Me.ComboBox3.Text)
Set c = Sheets("Customers").Columns(2).Find(FindMe, LookIn:=xlValues)
Me.TextBox1.Text = c.Offset(0, 1).Value

End Sub

I am getting error Me.TextBox1.Text = c.Offset(0, 1).Value
line # 7. Please help me

[Sean Thomas]

does Me.TextBox1.Text exist?
try using Me.TextBox1.value

oh and can you please wrap your code in tags else you will get in trouble!

select your code and then click # on the tool bar

[hsc14]

Private Sub ComboBox3_Change()
 Dim c As Range
 Dim FindMe As Double
 If Flag = True Then Exit Sub
 FindMe = Val(Me.ComboBox3.Text)
 Set c = Sheets("Customers").Columns(2).Find(FindMe, LookIn:=xlValues)
Me.TextBox1.Value = c.Offset(0, 1).Value

 End Sub

I tried but same erroe

[cytop]

Check that something was actually found...

 Set c = Sheets("Customers").Columns(2).Find(FindMe, LookIn:=xlValues)

 If Not c in Nothing then
     Me.TextBox1.Value = c.Offset(0, 1).Value
 Else
     '// Some kind of error message
 End If

[hsc14]

its give compile and syntax error on line

If Not c in Nothing then

[hsc14]

thanks its ok and working it was typing mistake

[Fotis1991]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)