please help me in Private Sub bt1_Click()

please
pleaaaaaaaaaaaaaaaaaaase

compile error:
Method or data member not found

Private Sub balance_Click()

Dim sc As Single
Dim sd As Single

sc = 0
sd = 0

For i = 0 To listcr.ListCount - 1
sc = sc + CSng(List.List(i))

Next i
For j = 0 To listde.ListCount - 1
sd = sd + CSng(List.List(j))

Next j
totcr.Caption = sc
totde.Caption = sd
totb = sc - sd

End Sub

Private Sub bt1_Click()

If opt1.Value = True Then

listcr.AddItem (t1.Text)
listde.AddItem ("0")

Else
listcr.AddItem (t1.Text)
listcr.addltem ("0")
End If

End Sub

Private Sub bt2_Click()

listcr.RemoveItem (listcr.ListCount - 1)
listde.RemoveItem (listde.ListCount - 1)

balance_Click
End Sub

Private Sub bt3_Click()

End

End Sub

Private Sub Form_Load()
bt1.Enabled = False
bt2.Enabled = False

End Sub

Private Sub t1_Change()
If t1.Text <> "" Then
bt1.Enabled = True
bt2.Enabled = True
End If
End Sub

Private Sub t1_validate(cancel As Boolean)

If Not IsNumeric(t1.Text) Then
cancel = True
Else
cancel = False
End If
End Sub


picture in error

http://www.daniweb.com/forums/attachment.php?attachmentid=13905&stc=1&d=1267662518

Edited 6 Years Ago by mahdouch5: n/a

Attachments picture_in_error.jpg 275.4 KB

Hi mahdouch5,

I am 100% sure this will solve your problem. By looking your attached Image I found out that your control opt1 has array. Just change your code as under.

If opt1(0).Value = True Then

Or you can clear Index on Properties on that option if you have unique name.

Thanks

What that error is telling you is that you do not have a control by that name. So, go to form design view and click on the option button that you think is of that name and see what its name is in properties...

Good Luck

it cause your option button is an array control.. so vb doesn't recognize the control..
so your code must be :

If Opt1(0).Value = True Then
This article has been dead for over six months. Start a new discussion instead.