Posso seguir no mesmo padrão que foi o do tipo de veiculo, e como ficaria o codigo criando tanto para o cliente quanto para o veiculos juntos ? Tentei criar, porém ele ficou criando no mesmo campo do veiculo e não no cliente.
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Posso seguir no mesmo padrão que foi o do tipo de veiculo, e como ficaria o codigo criando tanto para o cliente quanto para o veiculos juntos ? Tentei criar, porém ele ficou criando no mesmo campo do veiculo e não no cliente.
Oii, Elaine! Tudo bem?
Para criar um laço que percorra tanto a lista de veículos quanto a lista de clientes, você pode utilizar dois laços separados, um para cada lista. Dessa forma, você consegue percorrer cada lista individualmente e realizar as verificações necessárias.
Aqui está um exemplo de como ficaria o código para percorrer as duas listas juntas:
Function fnVerificaItemNaLista(pItem As String, pLista As ComboBox) As Boolean
Dim iContador As Integer
fnVerificaItemNaLista = False
If pLista.ListCount <> 0 Then
For iContador = 0 To pLista.ListCount - 1
If pLista.List(iContador) = pItem Then
fnVerificaItemNaLista = True
Exit Function
End If
Next iContador
End If
End Function
Nesse exemplo, a função fnVerificaItemNaLista recebe dois parâmetros: o item que você quer verificar e a lista na qual você quer realizar a verificação. A função percorre a lista utilizando um laço For...Next e verifica se o item atual é igual ao item que você está buscando. Se ele encontrar um item igual, a função retorna como True. Caso contrário, retorna False.
Para utilizar essa função para verificar tanto a lista de veículos quanto a lista de clientes, você pode fazer algo deste modo:
If fnVerificaItemNaLista("Carro", cmbTipoVeiculo) Then
MsgBox "O veículo já está na lista!"
End If
If fnVerificaItemNaLista("João", cmbClientes) Then
MsgBox "O cliente já está na lista!"
End If
Se outra dúvida surgir, fique à vontade para postar aqui no fórum.
Abraços!