Preciso fazer uma consulta num banco Access pelo VBA onde só existe uma tabela de uma lista de filmes.
Exemplo: Tabela
Cod_Ator “contem as informações do ator e seus filmes
Cod_tipo “diferencia o ator dos títulos do filme
Onde cod_tipo : 1 = Nome do Ator
2= Ação
3= Drama
4= Comedia
Obs: A variável “cod_tipo” pode se repetir pois pode ter mais de um
filme do mesmo gênero.
Preciso preencher o seguinte formulário
Formulário Artista e Filmes
Consegui preencher o Ator com o seguinte código mas ainda preciso pular para o próximo Ator
com algo tipo um next ou mover para o próximo registro sem ficar navegando pelos titulos
Private Sub CmdFicha_Click()
If cod_ator <> "" Then
Comando = "Select * from locadora where cod_tipo=1"
Question
RBSolution
Preciso fazer uma consulta num banco Access pelo VBA onde só existe uma tabela de uma lista de filmes.
Exemplo: Tabela
Cod_Ator “contem as informações do ator e seus filmes
Cod_tipo “diferencia o ator dos títulos do filme
Onde cod_tipo :
1 = Nome do Ator
2= Ação
3= Drama
4= Comedia
Obs: A variável “cod_tipo” pode se repetir pois pode ter mais de um
filme do mesmo gênero.
Preciso preencher o seguinte formulário
Formulário Artista e Filmes
Consegui preencher o Ator com o seguinte código mas ainda preciso pular para o próximo Ator
com algo tipo um next ou mover para o próximo registro sem ficar navegando pelos titulos
Private Sub CmdFicha_Click()
If cod_ator <> "" Then
Comando = "Select * from locadora where cod_tipo=1"
valida_selecao
If dataset.RecordCount <> 0 Then
TxtnomeAtor = dataset("nome ")
TxtCod_ator_ = dataset("cod_ator")
End if
End if
End Sub
Edited by RBSolutionLink to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.