ARGUMENT NOT OPTIONAL " QUE TEM ERRADO !"
bem !!
tenho duas list box
1- checklist
2- listbox
que to fazendo!
ao clicar em um item, ele deve ser passado para a segunda listbox. mas isto nao ta acontecendo. que to fazendo de errado?
o erro da na palavra "selected"
Private Sub MTpf_Click()
Dim Quantos As Integer
If Mac.MTpf.<b>Selected</b> = True Then
Mac.List_is_PF.AddItem (Mac.MTpf.List(MTpf.ListIndex))
Quantos = InputBox("quantas pçs.?")
Else: Exit Sub
End If
End Sub
desde ja agradeco, valeu !!!
tenho duas list box
1- checklist
2- listbox
que to fazendo!
ao clicar em um item, ele deve ser passado para a segunda listbox. mas isto nao ta acontecendo. que to fazendo de errado?
o erro da na palavra "selected"
Private Sub MTpf_Click()
Dim Quantos As Integer
If Mac.MTpf.<b>Selected</b> = True Then
Mac.List_is_PF.AddItem (Mac.MTpf.List(MTpf.ListIndex))
Quantos = InputBox("quantas pçs.?")
Else: Exit Sub
End If
End Sub
desde ja agradeco, valeu !!!
Tem que ser:
If Mac.MTpf.Selected(numero_da_linha) = True
If Mac.MTpf.Selected(numero_da_linha) = True
é porque você declarou essa variável como Integer.
Uma String sem valor equivale a "" (char de comprimento 0), e um Integer sem valor é 0. Logo, Integer não pode ser "".
Uma String sem valor equivale a "" (char de comprimento 0), e um Integer sem valor é 0. Logo, Integer não pode ser "".
Tópico encerrado , respostas não são mais permitidas