raphael_suporte

antes de preencher a combo. 1 - coloca o da cboInst no Form_Load 2 - coloca o da cboCurso no cboInst_click

sim vai dar erro mesmo, declaramos o codInst como integer, e rsSelecao seria do tipo string, na verdade o código correto é: codInst = rsSelecao("codInst")

cara, coloca uma variável para fazer o controle tipo assim: dim grava as string grava = "sim" if isNull(campo1) then grava = "não" end if if isNull(campo2 )then grava = "não" end if if isNull(campo3) then grava = "não" end if if grava = "não" then msgBox " Existem campos que ainda não foram preenchidos" else evento end if

tenta assim: SELECT name FROM tb_user, tb_connection WHERE tb_connection.ID_user = tb_user.ID AND tb_connection.ID_adj in ('2','3') o campo ID está como Char ou int?? se tiver como Int, não precisa da aspa simples.

este é o código. você falou que não funcionou no change então coloca no Click, não esquece de colocar o combo.Clear e é no cboInst_click

Fabin, como coloquei no código anterior, a consulta na tabela da instituição serve apenas pra você conseguir pegar o código da instituição, verifica o último código que lhe enviei, o erro ao adicionar acontece pois você não está limpando a combo ao trocar o evento. adiciona essa linha no seu código dentro o evento Click cboCurso.clear

mas funcionou ou ele arredondou novamente? deixa como geral...essa mensagem é para ajudar na formatação, você pode desabilitar isso.

fabin, eu não tinha acabado de alterar o código e a pagina atualizou, já modifiquei... porem sua observação está correta.

agora que a combo Instituição está com os seus devidos valores, no Change dela você vai por o seguinte Código Dim cnnComando As New ADODB.Command dim codInst as integer With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT * FROM Instituiçao where nome = '" & Combo_Inst.text & "'" 'Aqui eu pego o código da Instituição, pois na tabela do Curso é a referência que temos Set rsSeleçao = .Execute End With codInst = rsSelecao("nome") 'Aqui eu Guardo a variável para poder filtrar if rsSelecao.status = 1 then rsSelecao = close With cnnComando .ActiveConnection = conexao .CommandType = adCmdText .CommandText = "SELECT Nome FROM Curso where Codigo_inst = codInst 'Filtramos todos os registros que tem o Código da Instituição selecionada que temos. Set rsSeleçao = .Execute End With With rsSeleçao Do While Not rsSeleçao.EOF If Not IsNull(rsSeleçao!Nome) Then Combo_curso.AddItem rsSeleçao!Nome End If rsSeleçao.MoveNext Loop End With Agora é adaptar para suas tabelas e Combos,

cara aqui funcionou bem, mas quando eu fui no "formatar Célula" e tirei de Geral para numero e removi as 2 casas decimais, o seu erro pode ser percebido, ou seja altere a propriedade desta célula, o código não está errado e sim a célula que está recebendo o valor digitado

poderia postar seu código aqui?? e verifica a propriedade da célula que está recebendo este valor.

Peraí, estamos falando de 2 coisas diferentes... 1 - a Combo Instituição, essa sim tem que ser preenchida na Form_load, uma vez que o conteúdo dela tem que estar disponível para o preenchimento da outra Combo, 2 - o Preenchimento da Combo CURSO, é que tem que ficar na COMBO_CHANGE da combo Instituição 3 - O modo de preenchimento que você usa está correto e também pode ser usado neste caso, ele ficou branco porque você usou o preenchimento da combo dentro do evento dela mesmo.

apenas na da instituição, quando ela for alterada a mesma faz um select e preenche o combo curso.

a questão não é o select e sim onde ele fica, ele não pode ficar no "FORM_LOAD" ele tem que ficar na COMBO_CHANGE.

cara provavelmente essa alteração está na forma que você está armazenando na planilha, tipo se estiver como string mesmo não pode alterar, porem se em algum momento você usar referência de "inteiro" ele vai arrendondar o Valor, e isso pode ocorrer na propriedade da célula em questão

label1 é o tipo de objeto, Olá mundo, será o valor da propriedade.. cara da uma olhada nesse link. http://scriptbrasil.com.br/forum/index.php?showtopic=46892, pode te ajudar

então, é isso que estou tentando te explicar... no evento Change da combo instituição, você irá fazer um select para preencher filtrando o nome da instituição ou o código. 1 - Na tabela de Cursos, o "vinculo" com a tabela de Instituição é pelo código da instituição, então o seu primeiro select será pra pegar o código da instituição. "Select * From Instituicao where nome = '" & combo_inst.text &"'" 2 - Guardar o valor em uma variavél cod = rs("codInst") 3 - Fazer o Select através do código encontrado "Select * From Curso where condInst = Cod" Coloquei apenas os Selects que você terá que usar.

as combos se não forem dependentes ( o seja padrão sempre terão o mesmo conteúdo, independente do que for selecionada em outra ), você pode carregar no form load sem problemas, usando um select para cada, agora se eles forem dependentes, você terá que usar esse select dentro no evento Change da combo "principal" e o preenchimento da label também ficaria neste evento.

cara vai ser algo parecido com o que falei na hora de preencher duas combos, você terá que por um select no evento Change da Combo e o resultado na pesquisa irá preencher a propriedade caption da Label em questão.

fabin, Desculpa foi erro meu, as variáveis estão com os nomes alterado, perceba que a variável em que foi guardado o valor chama-se cod_inst, e o que colocamos foi codigo_inst, basta alterar o nome da variável no insert que tem que funcionar( ou pelo menos pegar o valor)

fabin, era o que eu suspeitava, acho que a propriedade da compo está errada, coloca o Break na hora que a variável está recebendo o valor da combo, e vê qual o valor está sendo recebido.

coloca um break point nesta linha e verifica os valores passados se estão corretos, se o nome do campo está correto...

não digo a palavra em si, e sim o que você quer que o PC faça com isso.. como assim guardar?? cara você tem que guardar os valores em uma variável para depois exibi-la? você sabe o que é variável? e não estou me referindo o que está escrito no dicionário e sim, o que ela faz em uma linguagem de programação?

CORINTHIANS-SP SANTOS-SP SANTO ANDRÉ-SP CORITIBA-PR INTERNACIONAL-RS FLAMENGO-RJ GOIÁS-GO NÁUTICO-PE x VITÓRIA-BA CRUZEIRO-MG

coloca um break point e verifica o valor que ele está pegando?, e outra acho que esqueci e você tambem, tem que colocar o nome do campo que é para ser comparado: neste caso "nome" "SELECT CodInst FROM Instituiçao where nome = '" & cboInst.Text & "'"