[Resolvido]acessar dados com submenu

Boa Tarde amigos...

Estou fazendo um BD me baseando no Northwind um dos modelos do office...

e tem uma coisa nele que estou tentando copiar para o meu BD mas não consigo.



Como podem ver na imagem acima quando clico na seta para baixo aparece uma lista e quando clico em um dos nomes os dados dele aparecem abaixo.

tentei fazer isso inserindo uma caixa de combinação e o assistente de caixa de combinação... ai vai o BD que tentei fazer mas não deu certo.

alguém pode me ajudar por favor e falar o nome disso?

O Banco de dados exemplo usa macros para fazer isso. Basta voce olhar o que está nos eventos e fazer igual. Contudo, prefiro VBA. Infelizmente agora estou sem tempo. Mas se fizer igual, dará certo.
Caso não consiga, e nenhum outro colega te ajudar aqui, quando eu puder, vejo com mais calma.
Abraço

Eu tentei, mas não consegui copiar a macro... são muitos códigos que eu não conheço e não entendi....


alguém pode me dar umas dicas por favor?

Boa noite rogerio, vendo o teu exemplo me lembrei do meu primeiro contato com o access, eu comecei justamente xom este modelo, e hoje ele se tornou o Syspen (sistema penitenciario) hoje o syspen nao tem mais nenhuma semelhanca com o modelo que o origiou, devido a mnha evolucao e a substituicao das macor por vba, que apartir de agora deves tentar a utilizar.. pois bem... estou em um tablet. Ma te passarei um codigo, e na combo em propriedades, retire a macro e coloque procedimento do evento... e no vba este codigo


Private Sub ComboBusca_AfterUpdate()
Me.RecordsetClone.FindFirst "suatabela.codigo = " & Me.Combobusca.Column(1)
If Me.RecordsetClone.NoMatch Then M
MsgBox "No entry found"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!Combobusca = Null
End If
End Sub

Olá Harysohn

Com relação ao Primeiro... pode ter certeza que é o primeiro BD mesmo que eu faço...
estou tentando aprender como mexer com os códigos, mas ainda não entendo quase nada...
tentei colocar esse código que você me passou na caixa de combinação em propriedade após atualizar...
após algumas tentativas fico mais ou menos assim o código

=====================================================================================

Private Sub Combinação23_AfterUpdate()
Me.RecordsetClone.FindFirst "teste" & Me.Código
If Me.RecordsetClone.NoMatch Then M
MsgBox "No entry found"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!Combobusca = Null
End Sub


=====================================================================================

agora o erro que eu não estou conseguindo consertar fica em "Then M" que não sei o que colocar.

se puder me dar uma dica se consigo aprender esses códigos on-line ou algum bom livro que realmente me profissionalize... pois todos os livros que compro ou baixo da internet quando chega em macros o curso para e fica por ai mesmo, nem mesmo chega em VBL....

desde já agradeço a todos

Acredito que o "M" depois de then foi digitado por engano.

Experimente retirar ele e rodar o código.

Quanto à cursos, veja no repositório, parece que tem uma apostila de vba 2007 para baixar.

abraços

ainda não deu certo =[

mesmo tirando a letra "m"

tentei copiar a macro mas fico faltando uma linha

DefinirValor

Que eu não consegui achar na lista de opções de macro, tem algum nome diferente?

Olá amigos,

Rogerio tentei usar seu exemplo, mas, ele tá corrompido, emitindo mensagem de formato não reconhecido.

Aproveitando a dica do Harysohn, experimente assim: Coloque no evento após atualizar da ComboBox:

Me.RecordsetClone.FindFirst "[CampoDoNomeDaEmpresa] = '" & Me![SuaComboBox] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.SuaComboBox = ""


Nessa ComboBox coloque na origem de dados a tabela e o campo correspondente ao nome da empresa que é o que deduzo que seja.

Se desejar, poste outra cópia do seu protótipo que ficará fácil ajudá-lo.

Me.RecordsetClone.FindFirst "teste" = & Me.Código

Faltou o sinal de igualdade.

Depois de sinal você deverá fazer referência ao valor que quer encontrar...
= me.NomeDaSuaCaixaDeCombinação.column(X)

veja em qual coluna está o valor que está procurando e substitua pelo X

Abraços

Bom... agora pelo menos o código de certa forma está funcionando mas quando escolho uma algum nome da lista da ComboBox aparece a mensagem "No entry found"

agora o código fico assim

=====================================================================================
Private Sub Combinação23_AfterUpdate()
Me.RecordsetClone.FindFirst teste = Me.Combinação23.Column(1)
If Me.RecordsetClone.NoMatch Then
MsgBox "No entry found"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!Combobusca = Null
End If
End Sub
=====================================================================================


aqui vai o exemplo atualizado pra quem não conseguiu baixar

http://www.megaupload.com/?d=K621KQL4

abraços

Boa noite amigo Dilson, nem no msn eu digito abreviado, alias detesto isso, e primo por sempre utillizar o portugues o mais correto possivel inclusive utilizando de acentuacao, isso muito me foi cobrado sempre por minha mae que era professora de portugues, e acredite ja ganhei alguns castigos por tirar um 7 nas provas, rsrsr.
No texto da ajuda que dei acima, os erros foi por eu estar digitando em um tablet e o teclado e na propria tela que esensivel ao toque... ainda estou me acostumando a isto.


Abracos

Boa noite amigo Dilson,

Imagino que esteja se referindo ao acento circunflexo da palavra você que esqueci no seguinte trecho da minha escrita: "...Basta voce olhar..."
Peço desculpas por esse lapso, mas não foi minha intenção nem tão pouco é a maneira como escrevo no msn. O que aconteceu foi esquecimento mesmo do acento gráfico. E quanto às regras do fórum, já as li e sempre volto a lê-las periodicamente para evitar infringi-las.
Fico grato pelo alerta.
Forte abraço.

Harysohn, imagino que a assinatura do amigo Dilson aparece com o nome do usuário logado. Pois em todas as postagens do Dilson, lá está meu nome... Achei extranho você se justificar, pois vi ele se referindo a mim e não a você (risos).

Hehehe.. bom para ficarmos sempre alerta... abraços

Se possível ao invés de ficarem discutindo por causa de erros de português puderem voltar ao assunto do forum que é duvidas referente ao Access... que por um acaso ainda não consegui resolver...

obrigado a todos que puderem me ajudar no problema.

abraços

E o que estamos tentando fazer meu amigo, ajudá-lo da maneira mais prestativa possivel, no entanto lembre-se que o cuidado com a ortografia e uma das prioridades do fórum, assim como sempre nos lembra nosso moderador Dilson, e como foi suscitada no tópico uma questão sobre isso, nos cabe na mais cordial forma possível esclarecermos a mesma.


Paciência é uma virtude.


Cumprimentos

Olá Rogerio,

De uma olhada neste tutorial do Avelino http://www.usandoaccess.com.br/tutoriais/tuto35.asp?id=1#inicio

Ele explica detalhadamente sobre o assunto que esta precisando.
Observação: No final da pagina tem a video aula ok!!

Qualquer duvida avise.

Na sua tabela o primeiro campo é o campo da chave primaria, veja qual o nome, possivelmente será código ou Id..

Bem supondo qu seja código, tente assim:

Private Sub ComboBusca_AfterUpdate()
Me.RecordsetClone.FindFirst "código = " & Me.Combobusca.Column(O)
If Me.RecordsetClone.NoMatch Then
MsgBox "No entry found"
Else Me.Bookmark = Me.RecordsetClone.Bookmark
Me!Combobusca = Null
End If
End Sub

Convem frisar que sua combo tem que estar carregada com 2 camppos a saber:

O campo código e o campo com o nome

Clique na combo, digite F-4 e em propriedades va na origem da linha e veja se a combo esta carregada com os 2 campos acima

Sua solução e realmente esta:

Private Sub ComboBusca_AfterUpdate()
Me.RecordsetClone.FindFirst "código = " & Me.ComboBusca.Column(O)
If Me.RecordsetClone.NoMatch Then
MsgBox "No entry found"
Else: Me.Bookmark = Me.RecordsetClone.Bookmark
Me!ComboBusca = Null
End If
End Sub


http://dl.dropbox.com/u/26441349/Rogerio1987.rar

Cumprimentos

Amigos,

Eu utilizei uma variável que captura o nome do usuário logado no fórum, então, aquele que está logado, vê seu nome no corpo da mensagem.

Esta mensagem nesta altura é genérica.

Aqueles que escrevem corretamente não devem levar em consideração, tenham ciência que é política preventiva da Moderação Global. Aliás, uma prevencão importante, haja vista, os assuntos aqui tratados serem técnicos em sua totalidade.

Rogério, como disse o Harysohn, e, ótima resposta achei (respeitosa), reforço: Tenha paciência, as soluções generosamente estão sendo ofertadas, basta estudar, entender o código e aplicar no sistema.

Vamos em frente brothers!

Harysohn,

Esta condição if é residuo neste código, não é necessária, basta isso:

Me.RecordsetClone.FindFirst "código = " & Me.ComboBusca.Column(O)
Me.Bookmark = Me.RecordsetClone.Bookmark
Me!ComboBusca = Null

Muito Obrigado pela ajuda...

e me desculpe pela minha falta de paciência... mas é que este problema estava me deixando nervoso

Danilo, ainda não vi o tutorial mas assim que puder dou uma olhadinha

e mais uma vez, obrigado a todos

Danilo... esse tutorial é MUITO BOM

vou vasculhar aquele site e aprender tudo o que eu puder sobre access, parece ter excelentes tutoriais,dicas e truques, tudo o que eu procurava desde o início...

Muito obrigado pela ajuda e por me informar sobre o site...

Abraços e até a próxima a todos que se despuseram a me ajudar

O forum agradece o retorno.