Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
VB para VBA
VB para VBA
Private Sub Check1_Click(Index As Integer)
Dim check As CheckBox
If Check1(Index).Value = 1 Then
For Each check In Check1
If check.Index <> Index Then check.Value = 0
Next
End If
End Sub
Como passo a rotina acima para VBA? Em VB funciona normalmente.
Dim check As CheckBox
If Check1(Index).Value = 1 Then
For Each check In Check1
If check.Index <> Index Then check.Value = 0
Next
End If
End Sub
Como passo a rotina acima para VBA? Em VB funciona normalmente.
Re: VB para VBA
Irenko,
Que tipo de controle é o Check1? Não é um checkbox, certo? Não faz sentido um Checkbox ter uma coleção de Checkboxes, como diz o código, a não ser que seja um CheckListBox, certo?
Abraços
Que tipo de controle é o Check1? Não é um checkbox, certo? Não faz sentido um Checkbox ter uma coleção de Checkboxes, como diz o código, a não ser que seja um CheckListBox, certo?
Abraços
Re: VB para VBA
Consegui resolver com a ajuda de um amigo: vja bem o projeto é em VB usando componente VBA, como o VB é burro para algumas rotinas, criamos um antiburro, hehehe!
Dim AntiBurroCheck As Boolean
Private Sub Chk_Cartao_Click(Index As Integer)
If AntiBurroCheck = False Then
Dim I As Integer
AntiBurroCheck = True
For I = 1 To Chk_Cartao.Count
If I <> Index Then
Chk_Cartao(I).Value = False
End If
Next
AntiBurroCheck = False
End If
Dim AntiBurroCheck As Boolean
Private Sub Chk_Cartao_Click(Index As Integer)
If AntiBurroCheck = False Then
Dim I As Integer
AntiBurroCheck = True
For I = 1 To Chk_Cartao.Count
If I <> Index Then
Chk_Cartao(I).Value = False
End If
Next
AntiBurroCheck = False
End If